1. Операции с файлами

Задача заключается в том, что бы изменить элементы исходной таблицы (массива) и вывести полученный результат в таком же виде.

В данном случае мы каждый элемент таблицы умножили на 3.

Текст задачи:

const c=3;

var t,p:text; a,b:array [1..10,1..10] of integer;

i,j,n,m,k:integer;

begin

assign(t,H:Phoenix1.txt);

assign(p,H: Phoenix2.txt);

reset(t); i:=0;

while not eof(t) do

begin i:=i+1; j:=0;

while not eoln(t) do

begin j:=j+1; read(t,a[i,j]);

end; readln(t); end;

n:=i; m:=j;

for i:=1 to n do

begin for j:=1 to m do

write(a[i,j]:4); writeln; end; writeln;

for i:=1 to n do begin

for j:=1 to m do begin

b[i,j]:=a[i,j]*3;

write(b[i,j]:4); end;

writeln; end;

rewrite(p);

for i:=1 to n do begin

for j:=1 to m do

write(p,b[i,j], );

writeln(p); end; close(p);

end.

Исходные данные:

Полученные данные:

Вывод:

Данный способ работы с файлами достаточно прост и удобен. В данном случае выполняется всего одно действие (умножение на 3). Данные файла преобразуются не вручную, а автоматически.