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

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

Вводятся размеры матрицы, состоящей из целых чисел, и её элементы. С этой матрицей произвести указанные действия и вывести результаты.
Действие:

составить вектор произведений простых элементов в столбцах матрицы.

Обработку матрицы реализовать в виде процедуры. Проверку числа реализовать в виде функции. Все данные передаются через параметры.

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

РЕШЕНИЕ:

Program PascalGuru; uses crt; type massiv=array[1..50,1..50] of integer; vector=array[1..50] of integer; var A:massiv; {переменная массива} B:vector; {переменная массива} i,j,m,n:integer; {переменные для циклов} {------------------------------------------------------------} function simple(x:integer):boolean; {процедура проверки числа на "простоту"} label 1; var i:longint; result: boolean; begin if (x=1) or (x=0) then begin result:=false; goto 1; end; for i:=2 to x div 2 do if x mod i=0 then begin result:=false; goto 1; end; result:=true; 1:simple:=result; end; {***конец процедуры проверки числа на "простоту"} {------------------------------------------------------------} procedure make_vector(A:massiv;m,n:integer;var B:vector); var i,j,pr :integer; begin for j:=1 to m do begin pr:=1; for i:=1 to n do if simple(A[i,j]) then pr:=pr*A[i,j]; B[j]:=pr; end; end; {------------------------------------------------------------} begin write('N= '); readln (n); {считываем размер массива} write('M= '); readln (m); {считываем размер массива} writeln ('Vvedite elementy massiva A: '); for i:=1 to n do for j:=1 to m do begin write ('A[',i,',',j,']='); readln (A[i,j]); end; {считываем элементы массива} clrscr; write ('Vot vvedennyi vami massiv A: '); for i:=1 to n do begin writeln; for j:=1 to m do write (A[i,j]:4,' '); end; {выводим массив на экран} writeln;writeln; make_vector(A,m,n,B); writeln ('Vot vector B: '); for j:=1 to m do write (B[j]:4,' '); readln; end.
нажми на эту область и скопируй решение


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