Текст задания

Дан файл, содержащий программу на языке Паскаль. Проверить эту программу на несоответствие числа открывающихся и закрывающихся скобок. Считать, что каждый оператор программы занимает не более одной строки файла.

Решение

Решение программы оформлено в виде отчета в Word, данный отчет содержит следующие пункты:

• описания варианта задания;
  
• постановки задачи;
  
• описания переменных и констант;
  
• структуры программы и спецификации: общая структурная схема должна отражать взаимосвязи основной программы и всех ее модулей и подпрограмм. Спецификация программы должна включать: имя программы; входные данные с указанием типа данных; входные данные с указанием типа данных. Спецификация подпрограммы должна включать: имя подпрограммы; назначение подпрограммы; входные данные с указанием типа данных; выходные данные с указанием типа данных; вид подпрограммы; заголовок подпрограммы;
  
• распечатки текста программы с комментариями;
  
• результата ручной обработки данных;
  
• результата электронной обработки данных.
  

Исходный код программы

Program Skobki;
uses crt;
var
Pr: text;
St,pt,sim:String;
i,stroka,skob1,skob2:integer;
flag:boolean;
begin
ClrScr;
Write('vvedit put k failu: '); {Ddjlbv путь к файлу с программой}
Readln(pt);
Assign (Pr,pt);{Связваем фаловую переменную Pr и файл}
Reset(Pr);{Открываем фал для чтения}
stroka:=0;
While not Eof(Pr) do {Цикл будет поворятся, пока не будет ддостигнут конец файла}
 begin
 Readln (Pr,St);{Считываем строку из файла}
 Stroka:=stroka+1;
 skob1:=0;
 skob2:=0;
  For i:=1 to length(St) do
   begin
    sim:=copy(st,i,1); {копируем один символ считаной строки, начиная с позиции i}
    if sim='(' then skob1:=skob1+1; {Сравниваем считанный символ с '('}
    if sim=')' then skob2:=skob2+1; {Сравниваем считанный символ с ')'}

   end;
 if skob1<>skob2 then {Если количество'(' не равно количеству ')'в одной строке, то выводим номер данной строки}
    begin
      Writeln('Oshibka v ',stroka,' stroke');
      flag:=true; {переменная сигнализирует о наличии ошибок в файле}
    end;
end;
if not flag then writeln ('Oshibok net'); {Если ошибок не было, то выводим соответствующее сообщение}
close (Pr); {Закрываем файл}
readln;
end.