Считать числа из файла, проанализировать и записать в другой файл

17.05.2013, 22:07. **Показов** 1346. **Ответов** 1

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

Pascal

program if1;
var a,b,c,n:integer;
f1,f2: text;
begin
assign (f1,'input.txt');
assign (f2,'res.txt');
reset(f1);
read(a,b);
n:=0;
c:=0;
if a>b then n:=a;
if a<b then n:=b;
if a>b then c:=b;
if a<b then c:=a;
rewrite(f2);
writeln(f2,n);
close(f2);
close(f1);
end.

в чем проблема?

@ermolay · 18.05.2013, 05:09

Екатерина123, желательно бы задание озвучить, приходится додумывать, что должна делать программа. Насколько я понял задание такое: читаем два числа из файла input.txt, наибольшее из двух записываем в файл res.txt?
тогда вот Ваша исправленный код:

Pascal

program if1;
var a,b,c,n:integer;
f1,f2: text;
begin
assign (f1,'c:\Files\input.txt');
assign (f2,'c:\Files\res.txt');
reset(f1);
read(f1,a,b); // чтение из файла
n:=0; // не обязательно
c:=0; // не обязательно
if a>b then n:=a;
if a<b then n:=b;
if a>b then c:=b;
if a<b then c:=a;
rewrite(f2);
writeln(f2,n);
close(f2);
close(f1);
end.

Добавлено через 1 минуту
но я бы сделал без дополнительных переменных n, c, еще не повредит добавить в конце программы уведомление о завершении работы программы:

Pascal

program if1;
var
  a, b: integer;
  f1, f2: text;
begin
  assign(f1, 'c:\Files\input.txt');
  assign(f2, 'c:\Files\res.txt');
  reset(f1);
  rewrite(f2);
  read(f1, a, b); // чтение из файла
  if a > b then writeln(f2, a)
    else writeln(f2, b);
  close(f2);
  close(f1);
  writeln('Наибольшее записано в файл. Работа программы завершена');
end.

	18.05.2013, 05:09