Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Заданы 2 матрицы A(6,6), B(6,6). (задать рандомно в программе)
Выполнить указанные преобразования – 2 для той матрицы, которая отвечает заданному условию – 1.
Условие 1 – выполнить в подпрограмме FUNCTION, условие 2 – выполнить в подпрограмме PROCEDURE. Например, для матрицы, в которой max элемент в первой строке больше – (это условие 1) просуммировать элементы в каждом столбце – (это условие 2).
Условие 1: больше строк начинается с нуля;
Условие 2: вывести в вектор все положительные элементы.

Просмотров: 65
Объяснение: -
Отзывов: 0

РЕШЕНИЕ:

program PascalGuru; uses crt; type arr=array[1..6,1..6] of integer; vector=array[1..36] of integer; var A,B:arr; C:vector; i,j,n:integer; {----------------------------------------} function countNul(X:arr):integer; var i,rez:integer; begin rez:=0; for i:=1 to 6 do if X[i,1]=0 then inc(rez); countNul:=rez; end; {----------------------------------------} procedure createVector(X:arr; var Y:vector; var n:integer); var i,j,k:integer; begin k:=0; for i:=1 to 6 do for j:=1 to 6 do if X[i,j]>0 then begin inc(k); Y[k]:=X[i,j]; end; n:=k; end; {----------------------------------------} begin for i:=1 to 6 do for j:=1 to 6 do A[i,j]:=-8+random(26); for i:=1 to 6 do for j:=1 to 6 do B[i,j]:=-8+random(26); write ('Vot matrica A:'); for i:=1 to 6 do begin writeln; for j:=1 to 6 do write (A[i,j]:8,' '); end; writeln;writeln; write ('Vot matrica B:'); for i:=1 to 6 do begin writeln; for j:=1 to 6 do write (B[i,j]:8,' '); end; writeln;writeln; if countNul(A)=countNul(B) then begin writeln('Kol-vo v obeih matritsah ODINAKOVOE!'); readln; halt; end; if countNul(A)>countNul(B) then begin createVector(A,C,n); writeln('Polojitelinie elementy matricy "A":'); for i:=1 to n do write(C[i]:5); end else begin createVector(B,C,n); writeln('Polojitelinie elementy matricy "B":'); for i:=1 to n do write(C[i]:5); end; readln; end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.