Обсуждение:Лабораторная работа №7 Инициализация и использование в программах текстовых файлов: различия между версиями
Перейти к навигации
Перейти к поиску
(Новая: program projekt1; {$APPTYPE CONSOLE} uses SysUtils,uCRT; const m=5;n=6; var A:array[1..m,1..n] of integer;i,j:integer;f:text; S:array[1..n] of real; begin for i:=1 to m do begin for ...) |
|||
Строка 25: | Строка 25: | ||
end; | end; | ||
writeln(f); | writeln(f); | ||
− | writeln(f, | + | writeln(f,s:4:2); |
end; | end; | ||
close(f); | close(f); | ||
readln; | readln; | ||
end. | end. |
Версия 09:58, 30 июня 2008
program projekt1;
{$APPTYPE CONSOLE}
uses
SysUtils,uCRT;
const m=5;n=6; var A:array[1..m,1..n] of integer;i,j:integer;f:text; S:array[1..n] of real; begin for i:=1 to m do begin for j:=1 to n do begin randomize; a[i,j]:=random(100); write(a[i,j],' '); s[j]:= end; writeln; end; assign(f,'File.txt'); rewrite(f); for i:=1 to m do begin for j:=1 to n do begin write(f,a[i,j],' '); end; writeln(f); writeln(f,s:4:2); end; close(f); readln; end.