Строки в Pascal

var Имя : string [Длина];

Если длина не указана, выделяется память под строку до 255 символов.

Теория 1

var s1:string;

строка 255 символов

var s2:string[20];

строка 20 символов

Сравнение двух строк

Теория 2

Сумма кодов строки S1

Сумма кодов строки S1>S2,

Теория 4

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. Составить программу подсчитывающую количество букв в слове.

Теория 6

В фразе МАМА МЫЛА РАМУ слово РАМУ начинается с 11 буквы и состоит из 4 букв
COPY(s1,11,4)

Program n3_1;
Uses crt;
var a,b,c,d:string;
Begin
Clrscr;
a:='информатика';
b:='';
c:=copy(a,8,1);
d:=copy(a,4,2);
b:=c+d+c;
writeln(b);
End.

Задача на составление строк 7

Используем функцию работы с символьными переменными
COPY

Второй вариант:
Program n3_2;
Uses crt;
var a,b:string;
Begin
Clrscr;
a:=‘информатика';
b:=a[8]+a[4]+a[5]+a[8];
writeln(b);
End.

Используем определение строки как массива символов

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

Преобразуем натуральное число в строку

Преобразование типов 9

Процедура VAL

Преобразование типов 11

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.

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

Функция Chr(i) – определяет символ с порядковым номером i

По номеру 255 выводим символ из кодовой таблицы Я

PROGRAM Primer;
uses Crt;
VAR S: char;
n,code:INTEGER;
BEGIN
Write('Введи символ ');readln(s);
Writeln('Символ ', s ,' имеет код -',ord(s));
END.

Функция ORD работает только символьным типом данных

Program n5;
Uses Crt;
Var s:string;
i,k:integer;
begin
ClrScr;
Write('ВВеди строку '); readln(s);
k:=0;
for i:=1 to length(s) do if (s[i]='А') then k:=k+1;
writeln('Буква А встречается = ', k:8,' раз');
end.

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

Если на i-ом месте стоит А увеличиваем К на 1

Подсчет символов в строке 15

Замечание. Если требуется поиск нескольких символов в строке, то условия заключаем в программные скобки BEGIN … END

К=0

Program n6;
Uses Crt;
Var s:string;
i:integer;
begin
ClrScr;
Write('ВВеди строку '); readln(s);
for i:=1 to length(s) do if (s[i]='A') then s[i]:='O';
writeln(s);
end.

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

Если на i-ом месте стоит А ставим на i-е место О.

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

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

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

B=''

A=B

Задача 10. В заданном тексте везде букву "а" заменить на букву "б",  а букву "б" - на букву "а".

Из всей строки нам нужно выбрать только А и Б

И только после осуществлять замену

Конец

Si ='а' или Si ='б'

Да

Нет

Да

Нет

Блок-схема к задаче замены А на Б и наоборот

Задача 11. Дана строка символов, содержащая знаки препинания. Подсчитать какие и сколько знаков препинания содержит строка.

Внешний цикл, осуществляющий перебор знаков записанных в S1

Тело внешнего цикла содержит цикл, отвечающий за перебор символов введенной строки