Паскаль в примерах. Иринчеев А.А - 71 стр.

string[n] выделяется n+1 байт памяти. К конкретному символу строки можно обратиться как
к элементу массива. Пусть строка s определена следующим образом:
      type
        st20 = string[20]; var
        s : st20;
    Тогда после присваивания s: = 'Едят ли кошки мошек', выражение s[7] будет иметь зна-
чение 7-го элемента присвоенной строки, а именно 'и'. Длину строки можно получить с по-
мощью стандартной функции length. Строка, обозначенная двумя апострофами, стоящими
рядом друг с другом, т.е. ", - это строка, не содержащая ни одного символа, или пустая стро-
ка.
    Для слияние нескольких строк используют операцию сложения +. Рассмотрим их под-
робнее.
    Функция length(s) возвращает длину строки s. Результат типа integer. Например,
length('uiopbKH') равно 7, а length(") равно О
    Строковой переменной можно присвоить любую строку, жесткого контроля соответствия
типов, как в случае массивов, здесь нет. Если возможная длина строки меньше, чем длина
присваиваемого значения, то лишние символы отбрасываются.
    Рассмотрим несколько фрагментов программ обработки строк. Пусть, к примеру, требу-
ется подсчитать число букв "а", в строке, введенной пользователем.

program pr56;
var J,x:INTEGER;
 {определение количества символов "а" в строке}
 f:string;
  begin
   write('Введите символы');
   readln(f) ;
    x:=0;
    for j:=0 to length(f) do {length(f)-конец строки f}
     if f[j]='a' then x:=x+1;
       if x=0 then write('Символа "а" в строке нет ')
         else write('Строка содержит ',x,' символ(a)\/(ов) "а" ');
end.

program pr56;
var J:INTEGER;
{Программа запрашивает ФИО,здоровается и приветствует}
 F,I,O,fio,gL,sgL,s,T:string;
{используется строковый тип данных}
begin
 write('Фамилия ?');
 readln(f) ; ;
 write('Имя ? ');
 readln(I);
 write('Отчество ? ');
 readln(o);
  fio:=F+' '+I+' '+O;
  s:='ВАМ '; gl:=' ПРИВЕТ';T:='ЗДРАСТВУЙТЕ';
  sgl:= gl+' '+s ;
    for J:=1 to 25 do writeln;
     writeLN(' ':30,t);
     writeLN;

                                                                                          71