Лабораторная работа № 2

по дисциплине "Информатика и программирование.

Работа со строками и двумерными массивами"

Вариант N ____

Исполнители студенты группы	Оценки по БРС в баллах	Защита в срок

Руководитель: профессор Грибанов В.П.

Дата защиты «_____»__________2012_ г.

Москва 2012

Разбор задач обработки строк.

{ Определение количества символов в словах строки. }

Program Strings_0;

var

I, {номер обрабатываемого символа }

kol_sym { количество символов в словах строки}

: integer;

st : string; { исходная строка }

begin

{ В задаче простейший разделитель - ПРОБЕЛ }

writeln(‘Введите строку для обработки ’);

Readln (st);

i:=1; { обработка начинается с первого символа строки}

kol_sym:=0; {до обработки строки количество = 0 }

while ( i<=length(st)) do {обеспечение перебора всех

символов строки }

begin

if ( st[i] <> ‘ ‘) {очередной символ – не пробел}

then kol_sym := kol_sym +1;

i:=i+1; {переход к очередному символу строки }

end;

writeln (‘ В строке ‘ , st ,

‘ обнаружено ‘, kol_sym, ‘ символов’);

readln;

end.

{Условие то же, что и в предшествующей задаче, но }

{в качестве разделителей – набор спецсимволов, SET OF CHAR}

Program Strings_1;

var

razd : set of char; {множество предполагаемых

разделителей слов в строке }

I, {номер обрабатываемого символа }

kol_sym { количество символов в словах строки}

: integer;

st : string; { исходная строка }

begin

{ задание символов-разделителей слов в строке }

razd:=[ ' ',',','.',':','!' ];

writeln(‘Введите строку для обработки ’);

Readln (st);

i:=1; { обработка начинается с первого символа строки}

kol_sym:=0; {до обработки строки количество = 0 }

while ( i<=length(st)) do {обеспечение перебора всех

символов строки }

begin

If ( not (st[I] in razd))

then kol_sym := kol_sym +1;

i:=i+1; {переход к очередному символу строки }

end;

writeln (‘ В строке ‘ , st ,

‘ обнаружено ‘, kol_sym, ‘ символов’);

readln;

end.

{ Определение количества слов в строке. Использование флажка}

Program Strings_2;

var

razd : set of char; {множество предполагаемых

разделителей слов в строке }