Решение задачи №1698
Условие задачи №1698:
В матрице 12х15 найти минимальный элемент в матрице. Поделить всю матрицу на этот элемент , если он равен нулю, не изменить матрицу. Использовать процедуру. Вывести исходную матрицу и полученную в основной программе.Решение
Описание отсутствует1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | program matrizi; {$APPTYPE CONSOLE} uses SysUtils; type mas=array[1..12,1..15] of double; procedure VVOD (var a:mas;var n,m:integer);var i,j:integer;beginrepeatwriteln('VVedite kolichestvo strok');readln(n);until n<12;repeatwriteln('VVedite kolichestvo stolbzov');readln(m);until m<15;writeln('Vvedite matrizu');for i:=1 to n do begin for j:=1 to m do read (a[i,j]); readln; end;end; procedure POISK (a:mas;n,m:integer;var b:mas);var i,j:integer; min:double;begin min:=a[1,1];for i:=1 to n do begin for j:=1 to m do if a[i,j]<min then min:=a[i,j]; end;for i:=1 to n do begin for j:=1 to m do begin b[i,j]:=a[i,j]; b[i,j]:=b[i,j]/min; end; end;end; procedure VIVOD (a:mas;n,m:integer);var i,j:integer;beginfor i:=1 to n do begin for j:=1 to m do write (a[i,j]:1:1,' '); writeln; end;end; var A,B:mas; n,m:integer;begin VVOD(A,n,m); POISK(A,n,m,B);writeln('Isxodnaya matriza'); VIVOD(A,n,m);writeln('Poluchennaya matriza'); VIVOD(B,n,m);readln;end. |