Строки в Pascal

Символы и их коды 13

Функции ORD и CHR

Функция Ord(S) – определяет порядковый номер символа.

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

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

Символы и их коды 14

Задача 6. Составьте программу, которая по символу введенному с клавиатуры, выводит его номер в кодовой таблице.

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

PROGRAM Primer;

uses Crt;

VAR S: char;

n,code:INTEGER;

BEGIN

Write( ' Введи символ ');readln(s);

Writeln( ' Символ ', s , ' имеет код -', ord(s) );

END.

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

Задача 7. Дана строка символов. Определить сколько раз в ней встречается буква А (русская).

Program n 5 ;

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

Замечание 16

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

for i:=1 to length(s) do begin

if (s[i]=……

if (s[i]=……

end;

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

Начало

Ввод S

Блок-схема к задаче подсчета букв А в строке

К=0

i,1,length(s)

S i ='A'

Нет

Да

К=К+1

Вывод К

Конец

Замена символов в строке 18

Задача 8. Дана строка символов. Заменить в ней все буквы А на букву О.

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

Program n 6 ;

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.

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

Замена символов в строке 19

Начало

Ввод S

Блок-схема к задаче замен буквы А на О

i,1,length(s)

S i ='A'

Нет

Да

S i ='O'

Вывод S

Конец

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

Задача 9 Удалить из строки введенной с клавиатуры все буквы R (латинские, заглавные).

Подготавливаем дополнительную переменную

Program n 7 ;

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.

Если на i -ом месте не стоит R то прибавляем эту букву к тому, что есть в B

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

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

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

Начало

Ввод A

Блок-схема к задаче удаления букв R из строки

B = ''

i,1,length(A)

A i 'R'

Нет

Да

B=B+ A i

A = B

Вывод А

Конец

Вложенные условия. 22

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

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

begin

clRscr;

Readln(s);

for i:=1 to length(s) do

if (s[i]='а') or (s[i]='б') then

if (s[i]='а') then s[i]:='б' else s[i]:='а';

writeln(s);

end.

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

Вложенные условия 23

Начало

S i =' а ' или S i =' б '

Ввод S

i, 1, length(S)

Да

Нет

S i =' а '

Да

Нет

S i =' б '

S i =' а '

Вывод S

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

Конец

Вложенные циклы 24

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

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

begin

ClrScr;

Write(' ВВеди строку '); readln(s);

s1:=',.;:"!?-';

for i:=1 to length(s1) do begin

k:=0;

for j:=1 to length(s) do if (s[j]=s1[i]) then k:=k+1;

if (k0) then writeln(s1[i],' - ',k:5,' раз ');

end;

end.

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

Вложенные циклы 25

Начало

Ввод S

s1=',.;:"!?-'

i, 1, length(S1)

K=0

j, 1, length(S)

Конец

S j = S1 i

Да

K=K+1

Нет

Блок-схема к задаче подсчета знаков препинания

K0

Да

Нет

Вывод S 1 i ,K