Алгоритмы и программы. Афанасьева Т. В - 105 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

105
readln(fin,str);
writeln(str);
end;
close(fin);
b:=[ ]; {формирование множества букв последней строки}
for i:=1 to length (str) do
begin
s:=str[i]; {выделение буквы}
if not( s in b) then b:=b+[s]; {формирование множества}
end;
writeln ('Множество букв последней строки:');
for j:='А' to 'я' do if j in b then
writeln (j:4);
reset (fin); {печать множества букв последней строки в выходной
файл}
writeln ('Слова, содержащие буквы последней строки:');
while not eof (fin) do
begin
readln(fin,str);
i:=1;
while i <= length (str) do
begin
begin
sl:=' ';
pr:=false;
{формирование очередного слова и проверка его букв}
while not (Str[i] IN [' ',',','–',':','.']) do
begin
if str[i] in b then
pr:=true;
sl:=sl+str[i];
i:=i+1;
end;
if pr then writeln(sl);
repeat {пропуск пробелов}
i:=i+1;
until(str[i]<>' ');
end;
end;
end;
close (fin);
end.

Страницы