Урок 19-21 октября

 Для хранения строк текста в языке Pascal используются переменные типа string. Одна переменная этого типа может хранить строку длиной до 255 символов.

Значениями типа string могут быть строки любых символов, заключенные в одинарные кавычки, например: 'школа', ' Аполлон', '3', ' Pascal ABC'. Если кавычка должна входить в состав строки, то её следует повторить дважды, например: ' на Pascal' ' е'.

К каждому символу строки можно обратиться по его номеру как к элементу массива.

 Кроме того, к строкам применима операция «+», которая позволяет склеивать две строки в одну.

Операция соединения (слияния) строк обозначается знаком  "+", например: 'пар'+ 'о' +'ход' дает в результате   'пароход'   

Пусть s, s1 и s2 - переменные строкового типа.   В результате выполнения операторов s1:='пар';  s2:='воз';   s:=s1+'о'+s2;  в переменную s запишется слово 'паровоз'.  

Если в операции слияния поменять местами переменные s1 и s2 местами:    s:=s2+'о'+s1; то в переменной s окажется слово 'возопар'.

Пример 1. Дана строка. Написать программу для вывода на экран первой буквы строки.

Var s:string; 

begin
  read(S); 
  write(s[1]); 
end.

Пример 2. Даны две строки. Написать программу для вывода на экран слова, полученного из суммы первых букв данных строк. 

Var a,b,s:string; 

begin
read(a); 
read(b);
 s:=a[1] +b[1]; 
 write(s); 
end.

Длину строки можно узнать с помощью функции length.

Пример 3. Дана строка. Написать программу, выводящую на экран её длину.

Var s:string; 
begin
 read(s);
 writeln(length(s)); 
end.

Пример 4. Дана строка. Написать программу, выводящую на экран слово, составленное из первой и последней букв данной строки. 

Var s, rez: string; 
begin
read(s);
      rez:=s[1] + s[length(s)];
 write(rez); 
end.

ВЫУЧИТЬ

Пример 5. Дана строка. Написать программу, определяющую, сколько раз в строке встречается буква «а» маленькая, русская.

Для решения задачи достаточно просмотреть каждый символ строки и сравнить его с буквой «а». При наличии совпадения необходимо увеличить на единицу счетчик количества букв «а». 

var s:string; 

       i,k:integer; 
begin 
   read(s); 
   k:=0;
for i:= 1 to length(s)  do if s[i]='а' then k:=k+1; 
write(k); 
end.