Тема. Множества.
Задание. Составить программу, используя множественный тип.
Дан текст, содержащий слова, разделенные знаками препинания. Определить, какие знаки препинания и специальные символы использованы в тексте. Вывести на печать найденные символы. При отсутствии указанных символов выдать соответствующее сообщение.
Исходный код программы на Delphi 7:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
var
i:integer;
s:string;
k:boolean;
begin
Readln(s);
Writeln('Znaki prepinaniya i simvoli');
for i:=1 to length(s) do
begin
if s[i] in ['a'.. 'z', 'A'..'Z','0'..'9'] then
else begin
Writeln(s[i]);
k:=true;
end;
end;
if k<>true then Writeln('Net simvolov');
Readln;
end.
Блок схема:
 |
Главная
Каталог файлов
