TURBO PASCAL:Учебное пособие. Терёхин В.В. - 122 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

122
end;
Close (f);
end.
program p57;
{Программа читает матрицу n*m из текстового файла}
const
n= 3;
m= 4;
var
Т: array[1.. n, 1.. m] of real;
f: Text;
S: String;
i, j: integer;
begin
Writeln('введите имя файла');
Readln(s);
Assign(f, s);
{$i-}
Reset(f); {открываем текстовый файл для чтения}
if lOResult <> 0 then
begin
Writeln('Ошибка при открытии файла'};
Halt;
End;
{$i+}
for i:= 1 to n do
begin
for j:= 1 to m do
begin
Read(f, T[i, j] ) ;
Write(T[i, j] : 8: 3);
end;
Writeln;
End; 
     end;
  Close (f);
end.

program p57;
{Программа читает матрицу n*m из текстового файла}
const
  n= 3;
  m= 4;
var
  Т: array[1.. n, 1.. m] of real;
  f: Text;
  S: String;
  i, j: integer;
begin
  Writeln('введите имя файла');
  Readln(s);
  Assign(f, s);
{$i-}
  Reset(f); {открываем текстовый файл для чтения}
  if lOResult <> 0 then
     begin
         Writeln('Ошибка при открытии файла'};
         Halt;
     End;
{$i+}
  for i:= 1 to n do
     begin
         for j:= 1 to m do
           begin
                 Read(f, T[i, j] ) ;
                 Write(T[i, j] : 8: 3);
           end;
         Writeln;
      End;
                                                     122

Страницы