Работа с файлами
В этом курсе, как и в других курсах и олимпиадных задачах программа должна уметь читать и писать из/в текстового файла. Если вы изучаете паскаль "с нуля" то это становится настоящей проблемой. Для облегчения вашей работы мы приводим шаблон программы, которая читает из входного файла 'input.txt' 10 чисел, и сохраняет их в массив A, а потом выводит массив A в файл 'output.txt'.
Program Standart;
Var
i :integer;
a :array[1..10] of integer;
Begin
Assign(input,'input.txt'); Reset(input); {Открываем файл input.txt на чтение}
For i:=1 to 10 do Read(a[i]); {Читаем 10 чисел в массив A}
Close(input); {Закрываем файл}
{ ... }
{ Что-то делаем с массивом A }
Assign(output,'output.txt'); ReWrite(output); {Открываем файл output.txt на запись}
For i:=1 to 10 do Writeln(a[i]); {Записываем 10 чисел из массив A}
Close(output); {Закрываем файл}
End.
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]); { Выводим строчку чисел }
writeln; { Переходим на следующую строчку }
end;
Var
i :integer;
a :array[1..10] of integer;
Begin
Assign(input,'input.txt'); Reset(input); {Открываем файл input.txt на чтение}
For i:=1 to 10 do Read(a[i]); {Читаем 10 чисел в массив A}
Close(input); {Закрываем файл}
{ ... }
{ Что-то делаем с массивом A }
Assign(output,'output.txt'); ReWrite(output); {Открываем файл output.txt на запись}
For i:=1 to 10 do Writeln(a[i]); {Записываем 10 чисел из массив A}
Close(output); {Закрываем файл}
End.
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]); { Выводим строчку чисел }
writeln; { Переходим на следующую строчку }
end;
Вещественные числа надо выводить с точностью в два знака после запятой (т.е. что бы вывести вещ. число a, надо написать writeln(a:0:2)).
Двухмерные массивы необходимо выводить в виде таблицы.
Полезное видео о работе с файлами:
