Основы алгоритмизации и программирования ABC PASCAL CHAR LENGTH COPY DELETE INSERT Сикор Ольга, 10 класс, гимназия 1

Символьный тип данных Char-присвоение по одной букве Пример 1. Составит программу, которая соединяет и выводит слово. Пример 1. Var a, b, c, d, e: char; begin readln(a, b, c, d, e); writeln(a+c+d); writeln(a+c+b); end.

Процедуры и функции обработки символьных переменных Pred(s)-предыдущий Succ(s)-следующий Составить программу, которая определяет предыдущий и следующий символ. Пример 2. Var ch: char; begin write(введите символ); read(ch); writeln(след=, succ(ch)); Writeln(след=, succ(ch)); end.

Строковый тип данных String-строка Составить программу, которая определяет длину строки. Пример 3. var s: string; i: integer; begin writeln(введите строку); readln(s); For i:=1 to length(s) do writeln (s[i]); end.

Строковый тип данных Length(s)-длина Составить программу, которая определяет, какое из слов больше. Пример 4. var a, b : string; begin s1:=школа; s2:=гимназия; if s1

Определение позиции вхождения подстроки Pos(s1,s)-начиная с какого символа подстрока s1 содержится в строке s. С клавиатуры вводят адрес электронной почты. Составить программу, которая определяет, сколько символов содержит имя почтового ящика. Пример 5. var s: string; k:integer; begin writeln(введите адрес электронной почты:); read(s); writeln(логин содержит, k,символов); end.

Копирование подстроки Copy-копировать Пример 6. var s, s1: string; begin s:=скоро Новый год; s1:=copy(s, 12, 3); writeln(s); writeln(s1); end.

Удаление и вставка символов Delete-удаление Insert-вставка подстроки Составить программу, которая из строки «скоро будет новый год» удаляет слово «будет» и вставляет слово «придёт». Пример 7. var s, s1: string; begin s:=скоро будет Новый год; s1:=придёт; writeln(s); delete(s, 6, 6); writeln(s); insert(s1, s, 7); writeln(s); end.

Преобразование регистра Upcase, lowcase(работают с отдельными символами) Uppercase, lowercase(работают с целыми строками). Составить программу, которая изменяет регистр введённой с клавиатуры строки. Пример 8. var s: string; i: integer; begin write(введите строку:); read(s); writeln (uppercase(s)); writeln (lowercase(s)); for i:=1 to length(s) do if (i mod 2=1) then write(upcase(s[i])) else write(lowcase(s[i])); end.

The End The End