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

встречается подстрока '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;

Writeln(введите слово ') ; Readln(S);

Записываем длину строки в переменную целого типа

PROGRAM Dlina_2;
VAR S : STRING;
BEGIN
Writeln(’введите слово’) ; Readln(S);
Writeln(’слово состоит из ’, Length (S) ,’букв. ’);
END.

Выводим на экран длину строки, как результат выполнения функции

Задача 1. Составить программу подсчитывающую количество букв в слове.

Writeln('ВВеди первую строку ');Readln(a);
Writeln('ВВеди вторую строку ');Readln(b);
m:=Length(a);

Задача 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.

Из строки берем первый и третий символ и преобразуем в число

все буквы R (латинские, заглавные).
Program n7;
Uses Crt;
var a,b:String;

Перебираем от 1 до последней буквы

Подготавливаем дополнительную переменную

Если на i-ом месте не стоит R то прибавляем эту букву к тому, что есть в B

То, что получилось в В перемещаем обратно в А

Удаление символов из строки