Тема 11. Строки.

Написать программу обработки строк в соответствии c условием задания. Обработка строк должна быть реализована в подпрограмме. Исходные строки ввести в главной программе. Результат обработки вывести в главной программе.

Пример 1. Ввести с клавиатуры предложение. Сформировать из него массив слов и вывести его в главной программе. Обработку предложения реализовать в подпрограмме.

program pr11;

uses crt;

type masstr = array[1..20] of string;

procedure ms(s1: string; var s2: masstr; var count: byte);

var i1, i2: byte;

i, L: byte;

begin

L:= length(s1);

i1:= 1; i2:= 0;

count:= 0;

for i:=1 to L do begin

if (s1[i] = ' ') and (s1[i+1] <> ' ')

then i1:= i + 1;

if (s1[i] <> ' ') and ((s1[i + 1] = ' ') or

(i = L)) then begin

i2:= i; inc(count)

end;

if i2 <> 0 then begin

s2[count]:= copy(s1, i1, i2-i1+1);

i2:= 0;

end;

end;

end;

var s: string;

s2: masstr;

i, nslov: byte;

begin clrscr;

write('Ведите предложение -> ');

readln(s);

ms(s, s2, nslov);

for i:= 1 to nslov do

writeln(i,'-е слово: ', s2[i]);

readkey

end.

Задания для самостоятельного выполнения.

1. Из заданного предложения выбрать те символы, которые встречаются в нем только один раз (в том порядке в котором они встречаются в предложении).