Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Множини
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 8
з дисципліни
“Основи програмування та алгоритмічні мови”
Тема: Множини
Постановка задачі
Заданий рядок, що містить літери латинського алфавіту і цифри. Вивести голосні та цифри, підрахувати кількість елементів в кожній підмножині.
Текст програми з коментарями
uses crt;
type mnogina=set of char;
var s,s1:string;
m:mnogina;
procedure UP(var mn:mnogina);
var i:byte;
begin
for i:=97 to 122 do
if chr(i) in mn then
mn:=mn+[chr(i)];
end;
function kol(var s2:string; a:boolean):byte;
var i,sum:byte;
m1,m2:mnogina;
begin
m1:=[]; m2:=[]; s2:='';
if a
then
begin
m1:=['a','e','y','u','i','o'];
UP(m1);
end
else m1:=['0'..'9'];
sum:=0;
for i:=1 to length(s) do
if s[i] in m1
then
begin
sum:=sum+1;
m2:=m2+[s[i]];
end;
for i:=1 to 255 do
if chr(i) in m2 then
s2:=s2+chr(i);
kol:=sum;
end;
procedure vvod;
var c:char;
i:byte;
b:boolean;
begin
s:='';
i:=0;
writeln('vvedie stroky:');
repeat
c:=readkey;
if (c in m)and b then
begin
write(c);
s:=s+c;
inc(i);
end;
if c=#0
then b:=false
else b:=true;
until (c=#13)or(i=255);
writeln;
end;
procedure vivod(stroka:string;b:boolean);
begin
write('v stroke '); textcolor(1); write(s);
textcolor(0); write(' sodergitsya ');
textcolor(1); write(kol(s1,b)); textcolor(0);
writeln(stroka); textcolor(1); writeln(s1); textcolor(0);
end;
BEGIN
textbackground(7);
textcolor(0);
clrscr;
m:=['a'..'z','A'..'Z','0'..'9',' ','.',',','-','_'];
WriteLn('Result of laboratory work 7');
WriteLn('variant 4');
WriteLn('Executed student of group IP-02 Bondur Vladislav');
vvod;
vivod(' glasnix: ',True);
vivod(' cifer: ',False);
readln;
END. Блок-схема алгоритму
Результат виконання програми у вигляді відеокопії екрана
/
Висновки
Перевіримо, чи правильно працює моя програма:
Введений рядок містить тільки літери латинського алфавіту та цифри, при спробі ввести інші символи програма на них ніяк не реагувала. Підрахувавши кількість голосних у введеному рядку, можна переконатися що їх кількість дорівнює 20, та при цьому зустрічаються усі без виключення стрічні голосні, та прописна літера «А».
А також у рядку присутні 10 голосних: «12345» та «54321».
Отже програма працює правильно.
25.02.2013 16:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора