Баланс BEGIN-END

@клим · Регистрация: 18.06.2012

Студворк — интернет-сервис помощи студентам

Баланс BEGIN-END. Дан текстовый файл, содержащий программу на языке Паскаль. Проверить в нем баланс служебных слов BEGIN и END. Учесть, что каждый оператор CASE и каждое описание типа RECORD требует дополнительно слова END. По результатам проверки вывести на экран соответствующее сообщение. При обнаружении ошибки указать, какого слова и сколько раз недостает.

@КонецСвета · 19.06.2012, 00:29

Pascal

uses crt;
var  f: text;
     s: string;
     i,k: integer;
begin
assign(f,'D:\in.txt');
reset(f);
while not (eof(f)) do
      begin
      readln (f,s);
      for i:=1 to length (s)-2 do
          begin
          if copy(s,i,5)='BEGIN' then dec(k);
          if copy(s,i,4)='CASE' then dec(k);
          if copy(s,i,6)='RECORD' then dec(k);
          if copy(s,i,3)='END' then inc(k);
          end;
      end;
if k=0 then writeln ('Операторные скобки расставлены правильно') else
   if k>0 then writeln ('Отсутствует END в количестве ',k) else
      writeln ('Отсутствует BEGIN в количестве ',abs(k));
close(f);
end.

@клим · 19.06.2012, 17:52 **[ТС]**

при много благодарен.

Добавлено через 8 часов 20 минут
почти идеальная программа, но есть один недачёт:

Pascal

uses crt;
var  f: text;
     s: string;
     i,k: integer;
begin
assign(f,'*.pas');
reset(f);
while not (eof(f)) do
      begin
      readln (f,s);
      for i:=1 to length (s)-2 do
          begin
          if copy(s,i,5)='BEGIN' then inc(k);
          if copy(s,i,4)='CASE' then inc(k);
          if copy(s,i,6)='RECORD' then inc(k);
          if copy(s,i,3)='END' then dec(k);
          end;
      end;
if k=0 then writeln ('Операторные скобки расставлены правильно') else
   if k>0 then writeln ('Отсутствует END в количестве ',k) else
      writeln ('Отсутствует BEGIN в количестве ',abs(k));
close(f);
end.

Добавлено через 1 минуту
но всё равно большое спасибо

@КонецСвета · 19.06.2012, 18:05

Сообщение от клим

assign(f,'*.pas');

это?! на любителя =) в условии уточнений не было =)
более того, в условии

Сообщение от клим

Дан текстовый файл

@клим · 20.06.2012, 08:59 **[ТС]**

основная ошибка была в том, что были перепутаны (inc) и (dec).Программа выдавала не правильный результат. А так препод сказал, что программа идеальная,то что надо.

@КонецСвета · 20.06.2012, 09:23

клим, а, ну это возможно, внимательность - не моя сильная сторона =)

@клим · 20.06.2012, 09:31 **[ТС]**

бывает=)

@клим 0 / 0 / 0 Регистрация: 18.06.2012 Сообщений: 7
		1
	Баланс BEGIN-END 18.06.2012, 23:27. Показов 2316. Ответов 6 Метки нет (Все метки) Баланс BEGIN-END. Дан текстовый файл, содержащий программу на языке Паскаль. Проверить в нем баланс служебных слов BEGIN и END. Учесть, что каждый оператор CASE и каждое описание типа RECORD требует дополнительно слова END. По результатам проверки вывести на экран соответствующее сообщение. При обнаружении ошибки указать, какого слова и сколько раз недостает. 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	19.06.2012, 18:05	4
	Сообщение от клим assign(f,'.pas'); это?! на любителя =) в условии уточнений не было =) более того, в условии Сообщение от клим* Дан текстовый файл 0

@клим 0 / 0 / 0 Регистрация: 18.06.2012 Сообщений: 7
	20.06.2012, 08:59 [ТС]	5
	основная ошибка была в том, что были перепутаны (inc) и (dec).Программа выдавала не правильный результат. А так препод сказал, что программа идеальная,то что надо. 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	20.06.2012, 09:23	6
	клим, а, ну это возможно, внимательность - не моя сильная сторона =) 1

@клим 0 / 0 / 0 Регистрация: 18.06.2012 Сообщений: 7
	20.06.2012, 09:31 [ТС]	7
	бывает=) 0

Опции темы