Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 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 [ім’я автора приховано]'); 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”, що і вивела программа.Таким чином ми переконалися в правильності моєї программи.