freepascal.ru

Что получилось:

Код: Выделить всё

var   F1, F2 : text;
  C1, C2, C3 : char;
  C          : char;
  Res        : char;

begin
  Assign(F1, 'Proba_27_G_1.txt');
  Assign(F2, 'Proba_27_G_2.txt');
  Reset(F1);
  Rewrite(F2);
  if not Eof(F1)
    then
      begin
        Writeln(F2, 'Na vhode', ' ', 'Na vihode');
        Readln(F1, C1);
        Res := C1;
        Writeln(F2, C1, '        ', Res);
        Readln(F1, C2);
        Writeln(F2, C2, '        ', Res);
        Readln(F1, C3);
        Writeln(F2, C3, '        ', Res);
      end;
  while not Eof(F1) do
                      begin
                        Readln(F1, C1);
                        Readln(F1, C2);
                        Readln(F1, C3);
                        if (C1= C2) and (C1= C3)
                          then
                            begin
                              C := C1;
                              Writeln(F2, C1, '        ', Res);
                              Writeln(F2, C2, '        ', Res);
                              Writeln(F2, C3, '        ', C);
                              Res := C;
                            end
                          else
                            begin
                              Writeln(F2, C1, '        ', Res);
                              Writeln(F2, C2, '        ', Res);
                              Writeln(F2, C3, '        ', Res);
                            end;
                      end;
  Close(F1);
  Close(F2);
  Readln;
end.




Не знаю как закачать скриншоты. Меня интересует вопрос, почему в результате появляются лишние строки?
Исходные данные На выходе
a a
b a
b a
b a
b a
a a
a a
a a
b a
a
a

Одна ошибка очевидна: вы забываете проверять Eof() перед каждой операцией чтения. Для новичка задача может быть не такой уж простой, тогда по крайней мере, разберитесь с ответом, а на следующий день повторить решение самостоятельно.

Теперь ясно. Спб.