0
Program tp10; uses crt; type tmass = array[1..30,1..30] of real; point = ^tmass; var a: point; m, n :integer; Procedure Input(var x:point; name: string; var n,m:integer); var i,j:byte; begin ClrScr; WriteLn('Введите кол-во строк'); readln(n); ClrScr; WriteLn('Введите кол-во столбцов'); readln(m); ClrScr; for i:=1 to n do for j:=1 to m do begin Writeln('input ',name,'[',i,',',j,']'); readln(x^[i,j]); ClrScr; end; end; Procedure FindReplace(x: point; n,m:integer); var i,j,h,v : integer; max: real; Begin max := x^[1,1]; for i:=1 to n do for j:=1 to m do if x^[i,j] > max then begin max := x^[i,j]; v:=j; h:=i; end; for i:=1 to n do begin if i = h then continue; x^[i,v] := 1; end; for j:=1 to m do begin if j = v then continue; x^[h,j] := 1; end; end; Procedure Output(x:point; name:string; n,m:integer); var i,j:integer; begin WriteLn('Матрица : ',name); WriteLn('Кол-во рядов - ', n); WriteLn('kil-st stovbciv - ', m); WriteLn; for i:=1 to n do begin for j:=1 to m do Write(x^[i,j]:6:2,' '); WriteLn; end; end; Begin new(a); Input(a,'a',n,m); WritelN('laboratorna robota TP-9'); WriteLn('z discipliny OPAM'); WriteLn('studenta grupy'); WriteLn('Oberemka Volodymira'); WriteLn(#10#13, 'Vhidni danni'); Output(a,'a',n,m); FindReplace(a,n,m); Writeln(#10#13,'vyhidni danni'); output(a,'a',n,m); dispose(a); end.
|