Работа с файлами. Ради Бога, решите пожалуйста. Задание ниже

@Juliia · Регистрация: 28.01.2013

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

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

Kodzaev · 25.02.2013, 21:04

Файл создайте сами в блокноте

Pascal

Var
  f: Text;
  s: String;
  k1,k2,c1,c2: Integer;
  ch: Char;
BEGIN
Write('Введите имя файла без расширения: ');
Readln(s);
Assign(f,s+'.txt');
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
  While not Eof(f) do
  begin
    Read(f,ch);
    If ch='(' Then Inc(k1);
    If ch=')' Then Inc(k2);
    If ch='[' Then Inc(c1);
    If ch=']' Then Inc(c2);
  end;
  Writeln('Круглые скобки: ');
  If k1=k2 Then Writeln('Да')
  Else
  Writeln('Нет');
  Writeln('Квадратные скобки:');
  If c1=c2 Then Writeln('Да')
  Else
  Writeln('Нет');
  Close(f);
end
Else
Writeln('Файл не найден');
Readln
END.

@Juliia 0 / 0 / 0 Регистрация: 28.01.2013 Сообщений: 7
		1
	Работа с файлами. Ради Бога, решите пожалуйста. Задание ниже 25.02.2013, 20:37. Показов 1213. Ответов 1 Метки нет (Все метки) Дан текстовый файл f, содержащий программу на языке Паскаль. Проверить эту программу на несоответствие числа открывающих и закрывающих круглых и квадратных скобок. 0

	25.02.2013, 21:04

Работа с файлами. Ради Бога, решите пожалуйста. Задание ниже

Решение