Символьные переменные

Символьные переменные

 Урок 1

Символьная константа – символ, заключенный в апострофы. Внутри апострофов допускается любой символ, за исключением символа апостроф (‘).

Символьная переменная – имеет имя, ее значением является один символ.

Строковая константа – строка символов, заключенная в

апострофы.

Строковая переменная – имеет имя, ее значением является строка символов.

Типы переменных

Операции над символами

Операции над строками

Символьные функции

Строковые функции

* Примечание: коды русских и латинских букв отличаются.

Задачи по теме «Строковые переменные»

Тема 1 «Составление новых слов»

1. Из слов «вода» и «падение» составить новое слово «водопад».

Program Slova;

Var a, b, c : string;

Begin a:= ‘вода’;                      ВОДОПАД

           b:= ‘падение’;

           c:= Copy(a,1,3) + Copy(a,2,1) +  Copy(b,1,3)

                                 writeln(c)

End.      

2. Из слов «информация» и «математика» составить новое слово «информатика».

3. Из слов «гонг», «трибуна», «километр» и «революция» составить новое слово «тригонометрия».

4. Самостоятельно составить новое слово из трех заданных.

Тема 2 «Подсчет количества»

1.     В заданной строке подсчитать количество букв ‘я’ (строка на русском языке вводится с клавиатуры).

Program kolichestvo;

Var  s : string;

       i, k : integer;

Begin writeln (‘введите строку на русском языке’);

readln(s);

k:=0;

for i:=1 to Length(s) do

        if  copy(s,i,1)= ‘я’ then k:=k+1;

writeln(‘количество букв «я» - ’,k);

End.

2.     В заданной строке подсчитать количество сочетаний ‘ый’ (строка на русском языке вводится с клавиатуры).

3.     В заданной строке подсчитать количество слов (строка вводится с клавиатуры).

4.     В заданной строке подсчитать количество предложений (строка вводится с клавиатуры, предложение может заканчиваться ‘.’, ‘!’ или ‘?’).

5.     В заданной строке подсчитать количество цифр (строка вводится с клавиатуры).

Program kolichestvo;

Var  s, n : string;

       i, j, k : integer;

Begin writeln (‘введите строку’);

readln(s);

n:= ‘0123456789’;

k:=0;

for i:=1 to 10 do

for j:=1 to Length(s) do

       if  copy(n,i,1)=copy(s,j,1) then k:=k+1;

writeln(‘количество цифр  k=’,k);

End.

6.     В заданной строке подсчитать количество слогов (строка на русском языке вводится с клавиатуры).

7.     В заданной строке подсчитать каких букв «а» или «я» больше и на сколько (строка вводится с клавиатуры).

8.     В заданной строке подсчитать количество букв латинского алфавита (строка вводится с клавиатуры).

…

if  ((‘A’>=copy(s,i,1)) and (copy(s,i,1)<= ‘Z’))

or  ((‘a’>=copy(s,i,1)) and (copy(s,i,1)<= ‘z’))

then KL:=KL+1;

…

9.     В заданной строке подсчитать количество букв русского алфавита (строка вводится с клавиатуры).

10. В заданной строке подсчитать букв какого алфавита больше русского или латинского (строка вводится с клавиатуры).

11. В заданной строке подсчитать количество слов, начинающихся с буквы “я” (“Я”).

Возможные ситуации: Я люблю_ягоды.

Яша и_Яна любят_ягоды.

Program kolichestvo;

Var  s : string;

       i, k : integer;

Begin writeln (‘введите строку на русском языке’);

readln(s);

k:=0;

for i:=1 to Length(s) do

if  copy(s,i,2)= ‘_я’ or copy(s,i,2)= ‘_Я’ then k:=k+1;

if  copy(s,i,1)= ‘Я’ then k:=k+1;

writeln(‘количество цифр  k=’,k);

End.

Примечание: отдельно проверяется первая буква строки.

12. В заданной строке подсчитать количество слов, оканчивающихся буквой “я”.

Тема 3 «Замена, удаление символов»

1.      Из заданной строки (s) получить новую(t), заменив все пробелы на точки. Распечатать полученную строку.

Program zamena;

Var  s, t: string;

       i : integer;

Begin writeln (‘введите строку на русском языке’);

t:= ‘’;

for i:=1 to Length(s) do

if  copy(s,i,1)= ‘_’ then t:=t+ ‘.’

       else t:=t+ copy(s,i,1);

writeln(‘новая строка ’);

writeln(t);

End.

2.      Из заданной строки получить новую, удалив из нее все точки. Распечатать полученную строку.

3.      Из заданной строки получить новую, удалив все “*” и повторив дважды каждый символ, отличный от звездочки.

4.      Из заданной строки получить новую, заменив все фразы “так как” на сокращенное “т.к.”

…

i:=1;

while i<=length(s) do

begin if  copy(s,i,7)<> ‘так_как’

then begin t:=t+ copy(s,i,1);

                  i:=i+1

         end        

            else begin t:=t+ ‘т.к.’;

                        i:=i+7

                   end;         

end;

…

5.      Из заданной строки получить новую, заменив все фразы “может быть” на сокращенное “м.б.”