Презентация по информатике Строковый тип данных в языке Паскаль (10 класс)

Строковый тип данных Урок_2

Программа должна считать, сколько раз в строке S встречается подстрока 12. Какой оператор надо вставить вместо многоточия? Вводите ответ без пробелов. c := 0, repeat ... if p <,>, 0 then begin c := c + 1, Delete ( S, 1, p+1) end, until p = 0, p := POS (‘12’, S),

Благодаря этой рекламе сайт может продолжать свое существование, спасибо за просмотр.

Какой оператор надо вставить вместо многоточия, чтобы в строке S были записаны символы строки Q в обратном порядке? Вводите ответ без пробелов. Q := 123456789, S := 1, for k:=2 to 9 do begin ... end, S := Q[k] + S,

PROGRAM Dlina_1, VAR S : STRING, n:INTEGER, BEGIN Writeln(введите слово ) , Readln(S), n:= Length (S) , Writeln(‘введите слово , n:5 , букв..), END. Записываем длину строки в переменную целого типа PROGRAM Dlina_2, VAR S : STRING, BEGIN Writeln(’введите слово’) , Readln(S), Writeln(’слово состоит из ’, Length (S) ,’букв. ’), END. Выводим на экран длину строки, как результат выполнения функции Задача 1. Составить программу подсчитывающую количество букв в слове.

Uses crt, var a,b:string, m,n:Integer, Begin Clrscr, Writeln(ВВеди первую строку ),Readln(a), Writeln(ВВеди вторую строку ),Readln(b), m:=Length(a), n:=Length(b), if (m=n) then writeln(Строки равны), if (m>,n) then writeln(Первая больше), if (m<,n) then writeln(Вторая больше), End. Задача 2. Сравнить длину двух строк введенных с клавиатуры. Вычисляем длину строк Сравниваем длины и выводим соответствующие пояснения Задача на сравнение строк

Преобразование типов Задача 4 . Составьте программу которая выводит первую и последнюю цифру натурального числа, введенного с клавиатуры. PROGRAM Primer, uses Crt, VAR S: STRING, n:INTEGER, BEGIN Write(Введи число ),readln(n), Str(n,S), Writeln(Первая цифра -,S[1]), Writeln(Последняя цифра - ,S[length(S)]), END. Преобразуем натуральное число в строку

Преобразование типов Задача 5. Дано строка символов а1+а2=. Где 1<,=а1 и а2<,=9. Составить программу, вычисляющую это выражение. Измените программу так, что бы вместо знака «+» можно было писать «-», «*», «/». VAR S: STRING, a,b,c:real, code:INTEGER, BEGIN Write(‘Введи выражение = ),read(s), val(s[1],a,code), val(s[3],b,code), if (s[2]=+) then c:=a+b, if (s[2]=-) then c:=a-b, if (s[2]=*) then c:=a*b, if (s[2]=/) then c:=a/b, clrscr, Writeln(s,c), END. Из строки берем первый и третий символ и преобразуем в число

Задача 9 Удалить из строки введенной с клавиатуры все буквы R (латинские, заглавные). Program n7, Uses Crt, var a,b:String, i:integer, begin ClrScr, Write(Введи строку = ),readln(a), b:=, for i:=1 to length(a) do if (a[i]<,>,‘R) then b:=b+a[i], a:=b, writeln(a), end. Перебираем от 1 до последней буквы Подготавливаем дополнительную переменную Если на i-ом месте не стоит R то прибавляем эту букву к тому, что есть в B То, что получилось в В перемещаем обратно в А Удаление символов из строки

Вложенные циклы begin ClrScr, Write(ВВеди строку ), readln(s), s1:=,.,:!?-, for i:=1 to length(s1) do begin k:=0, for j:=1 to length(s) do if (s[j]=s1[i]) then k:=k+1, if (k<,>,0) then writeln(s1[i], - ,k:5, раз), end, end. Задача 11. Дана строка символов, содержащая знаки препинания. Подсчитать какие и сколько знаков препинания содержит строка. Внешний цикл, осуществляющий перебор знаков записанных в S1 Тело внешнего цикла содержит цикл, отвечающий за перебор символов введенной строки