vasssiliy
Новичок
|
     
program files;
const
nmax=10;
mmax=15;
type
tmatr=array[1..nmax,1..mmax] of real;
tfile=file of real;
var
f:tfile;
n,m:byte;
c,a:tmatr;
s:real;
procedure vvodmatr(var a:tmatr;var n,m:byte;ch:char);
var
i,j:byte;
begin
writeln('ввод матрицы' );
write('n=');
readln(n);
write('m=');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write(ch,'[',i,',',j,']=' );
readln(a[i,j]);
end;
end;
procedure formfile(const a:tmatr;n,m:byte; var h:tfile);
var
i,j:byte;
b,mn:real;
begin
rewrite(h);
for j:=1 to m do
begin
mn:=a[1,j];
for i:=1 to n do
if a[i,j]<mn then mn:=a[i,j];
write(mn,' ');
write(h,mn);
end;
close(h);
end;
procedure vyvod(var h:tfile; ch:string);
var
a:real;
begin
reset(h);
if filesize(h)>0 then
begin
while not eof (h) do
begin
read(h,a);
write(a:6:2);
end;
writeln;
end;
close(h);
end;
begin
assign(f,',база1.txt');
vvodmatr(c,n,m,'c');
vyvod(f,'f');
end.
|
Форум
Файлы!
