Помощь - Поиск - Пользователи - Календарь
Полная версия: Работа со внешним файлом *.txt
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Jill
Подскажите, пожалуйста
Потерялась что-то... blink.gif

Есть внешний файл.
Данные в нем:

-2 5 -1 4
-1 4 -2 5
1 3 -2 6

Как в программе вывести эти данные в виде:
а[1,1]=-2
а[1,2]=5
а[1,3]=-1
b[1]=4
а[2,1]=-1
а[2,2]=4
а[2,3]=-2
b[2]=5
а[3,1]=1
а[3,2]=3
а[3,3]=-2
b[3]=6
Бродяжник
Program primer;

Var
i,j: byte;
f: text;
a: array [1..3,1..3] of integer;
b: array [1..3] of integer;

Begin
Assign(f,'primer.dat');
Reset(f);

for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
Read(f,a[i,j]);
Writeln('a[',i,',',j,']=',a[i,j]);
end;

Readln(f,b[i]);
Writeln('b[',i,']=',b[i]);
end;

Close(f);
End.
Jill
ок, пасиба
красиво получается smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.