Курсовая работа по основам программирования: «Задача на паскале» заказ № 527752

http://yadi.sk/d/AV8rJ6O5NFGLX Программирование, задача на паскале, сам код уже есть, просто нужно составить блок-схему к этой задаче составить комментарии что означает каждая строка Сама задача: Написать программу нахождения длинного слова в текстовом файле и вывода всех слов наибольшей длины. Словом считать набор символов не содержащий пробелов и ограниченный пробелами, началом/концом строки или знаками препинания Решение: uses crt; const rz=[' ','.',',','-','?','!'];{символы, разделители слов, можно добавить} var f:text; s,s1:string; n,i,k,d,mx:byte; begin clrscr; assign(f,'text.txt'); reset(f);{файл с текстом в папке с программой} {определяем максимальную длину слова} mx:=0; while not eof(f) do begin readln(f,s); n:=length(s); i:=1; while i<=n do if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если не разделитель и первый или перед ним разделитель, то начало слова*} begin k:=i; d:=0; while (k<=n) and not(s[k] in rz) do {пока не разделитель и не конец строки} begin d:=d+1; k:=k+1; end; if d>mx then mx:=d; i:=i+d+1 end else i:=i+1;{пропускаем разделители} end; close(f); {ищем все слова максимальной длины} writeln('Максимальная длина слова=',mx); writeln('Это слова:'); reset(f); while not eof(f) do begin readln(f,s); n:=length(s); i:=1; while i<=n do if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если не разделитель и первый или перед ним разделитель, то начало слова*} begin k:=i; s1:=''; while (k<=n) and not(s[k] in rz) do {пока не разделитель и не конец строки} begin s1:=s1+s[k]; k:=k+1; end; if length(s1)=mx then writeln(s1); i:=i+length(s1); end else i:=i+1;{пропускаем разделители} end; close(f); readln end.