close

Вход

Забыли?

вход по аккаунту

?

lab5(5.2.3) otchyot

код для вставкиСкачать
Лабораторная работа №5
Гончаров Виктор, ИМ-07-12
№ 5.2.3. Подпрограммы в задачах обработки текста
Разработать программу, выполняющую однотипные действия с одной или несколькими последовательностями символов (они обозначены A,B,C), самостоятельно выделив одну или несколько подпрограмм.
Определить, содержит ли последовательность A строчные латинские буквы, а последовательность B - прописные.
Код программы
Type posled=set of char;
var
A,B:string;
str,prop:posled;
function input_string(s:string;c:char):string;
Begin
write('Input ',c,': ');
readln(s);
input_string:=s;
End{input_string};
function check(s:string;posl:posled):boolean;
var len,i:byte; prov:boolean;
Begin
len:=length(s);
prov:=false;
for i:=1 to length(s) do
if s[i] in posl then prov:=true;
check:=prov;
End{check};
begin
{ TODO -oUser -cConsole Main : Insert code here }
str:=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'];
prop:=['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'];
A:=input_string(A,'A');
B:=input_string(B,'B');
If check(A,str) then writeln('Posledovatelnost` A soderzhit strotchniye bukvy') else writeln('Posledovatelnost` A ne soderzhit strotchniye bukvy');
If check(B,prop) then writeln('Posledovatelnost` B soderzhit propisnye bukvy') else writeln('Posledovatelnost` B ne soderzhit propisnye bukvy');
readln;
end.
Форма ввода
Форма вывода
Блок-схема
Тесты:
1. Ввод:
A=aaaaaaa
B=DDDDDD
Вывод: 'Posledovatelnost` A soderzhit strotchniye bukvy'
'Posledovatelnost` B soderzhit propisnye bukvy' 2. Ввод:
A=AAAAAA
B=ddddddd
Вывод: 'Posledovatelnost` A ne soderzhit strotchniye bukvy'
'Posledovatelnost` B ne soderzhit propisnye bukvy'
Документ
Категория
Рефераты
Просмотров
7
Размер файла
44 Кб
Теги
otchyot, lab5
1/--страниц
Пожаловаться на содержимое документа