»
| | | | | |

» , : |
    
    
        !
  [ ]
» " " «


<< >>

: paradise, KMA
  

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.

: 2 | : 2009 | : 29 . 2009 18:03 | IP

:
  ?
  ?

HTML

IkonCode

?
e-mail?
?
?  
 


<< >>

© Ikonboard.com