Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Рядки
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2013
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 6
з дисципліни
“Основи програмування та алгоритмічні мови”
Тема: Рядки
Постановка задачі
У заданому рядку символів підрахувати кількість слів, які починаються групою заданих символів.
Текст програми з коментарями
uses crt;
var strok,slov:string;
function BigLetter(s,c:string):boolean;
var l,i:byte;
b:boolean;
begin
b:=false;
l:=0;
for i:=1 to length(c) do
if Upcase(s[i])=Upcase(c[i]) then
l:=l+1;
if l=length(c) then
b:=true;
BigLetter:=b;
end;
function del(stroka,slovo:string):byte;
var i,sum:byte;
podstroka:string;
begin
podstroka:=stroka;
delete(podstroka,length(slovo)+1,length(stroka)-length(slovo));
sum:=0;
if podstroka=slovo then
sum:=1;
podstroka:=stroka;
slovo:=' '+slovo;
for i:=1 to length(stroka) do
begin
delete(podstroka,length(slovo)+1,length(stroka)-length(slovo));
if BigLetter(podstroka,slovo) then
sum:=sum+1;
podstroka:=stroka;
delete(podstroka,1,i);
end;
del:=sum;
end;
procedure vivod(i:integer);
begin
textcolor(white);
write('v stroke ');
textcolor(0);
write(strok);
textcolor(white);
write(' naxoditsya ',i,' slov(a) nachinaushixsya s simvolov ');
textcolor(0);
writeln(slov);
end;
BEGIN
textbackground(7);
textcolor(0);
clrscr;
writeln ('Result of laboratory work 6');
writeln ('variant 4');
writeln ('Executed student of group IP-02 Bondur Vladislav');
writeln('vvedite stroky');
readln(strok);
writeln('vvedite gruppy dannix simvolov!');
readln(slov);
vivod(del(strok,slov));
readln
END.
Блок-схема алгоритму
Результат виконання програми у вигляді відеокопії екрана
/
Висновки
Перевіримо, чи правильно працює моя програма:
У введеному рядку символів є 4 словосполучення “da”, та по 1 словосполученню “Da” та “DA”. Разом 6 груп символів починаються з набору символів “da”, що і вивела программа.Таким чином ми переконалися в правильності моєї программи.
25.02.2013 16:29
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора