Как в abc pascal сделать входной и выходной файл?

@Le_Xa · Регистрация: 17.11.2010

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

Например входной input.txt выходной output.txt

Pascal

program poizvedenie;
var n,l,s:integer;
begin
writeln ('ââåäèòå 2 ÷èñëà');
read (n,l);
s:=n*l;
write ('ðàâíî',s)
end.

Помогите сделать на этом примере,что бы брались 2 числа из input.txt и выходились output.txt

@Kizer · 17.11.2010, 19:00

Олимпиады что ли начались в стране?
входной
reset(f)

выходной
rewrite(f)

есть свои тонкости, курите мануалы. Под тонкостями имеется ввиду ioresult, путь к файлу и закрытие файла close(f), естественно, что файлы должны быть предварительно описаны в блоке описаний и соглашений

@Puporev · 17.11.2010, 19:04

Сообщение от Kizer

имеется ввиду ioresult

В АВС этого нет, там типа fileexits(filename);

@Le_Xa · 17.11.2010, 19:06 **[ТС]**

Не могли бы ткнуть где это расписано?

@Puporev · 17.11.2010, 19:09

Запускаем АВС, жмем кнопку Помощь, выбираем Стандартные процедуры и функции, Файловые стандартные процедуры и функции

@wrong_truth · 31.01.2011, 22:06

В этой помощи, как-то скудно все... ((

27.11.2014, 16:58

Pascal

program name;
var
n,l,s,a:integer;
begin
assign(input,'a.in');
reset(input);
assign(output,'a,out');
rewrite(output);
readln(n);
s:=n*l;
writeln('s=',s);
readln;
close(output);
end.

@Kizer 80 / 82 / 36 Регистрация: 20.11.2009 Сообщений: 326
	17.11.2010, 19:00	2
	Олимпиады что ли начались в стране? входной reset(f) выходной rewrite(f) есть свои тонкости, курите мануалы. Под тонкостями имеется ввиду ioresult, путь к файлу и закрытие файла close(f), естественно, что файлы должны быть предварительно описаны в блоке описаний и соглашений 1

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	17.11.2010, 19:04	3
	Сообщение от Kizer имеется ввиду ioresult В АВС этого нет, там типа fileexits(filename); 1

@Le_Xa 1 / 1 / 1 Регистрация: 17.11.2010 Сообщений: 12
	17.11.2010, 19:06 [ТС]	4
	Не могли бы ткнуть где это расписано? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	17.11.2010, 19:09	5
	Запускаем АВС, жмем кнопку Помощь, выбираем Стандартные процедуры и функции, Файловые стандартные процедуры и функции 1

@wrong_truth 0 / 0 / 0 Регистрация: 31.01.2011 Сообщений: 4
	31.01.2011, 22:06	6
	В этой помощи, как-то скудно все... (( 0

Опции темы