• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

RandomNumber Suma

Алгоритм розв’язання задачі

Текст програми

programpr (input, output);

usescrt;

Label

label1,label2;

Const

r=50;

s=50;

Type

matrix=array[1..r,1..s] ofinteger;

Var

n,m,i,j,ran:integer;

a:matrix;

procedure RandomNumber(varb: Matrix);

// Заповнення матриці випадковими числами

vari,j,rd:integer;

Begin

writeln('Введіть максимальне рандомне число');

readln(rd);

fori:=1 ton do

forj:=1 tom do

b[i,j] := Random(rd);

end;

functionSuma(x:matrix):real;

// Знаходження суми елементів матриці

vari,j:integer;

s:real;

Begin

s:=0;

fori:=1 ton do

forj:=1 tom do begin

s:=s+x[i,j];

end;

Suma:=s;

end;

Begin

clrscr;

gotoxy(20,3);

writeln('Лабораторна робота №8');

gotoxy(22,4);

writeln('Матричні перетворення ');

gotoxy(25,5);

writeln('Варіант №31');

gotoxy(30,7);

writeln('Виконав: студент 1-го курсу');

gotoxy(30,8);

writeln('групи ПБ-41');

gotoxy(30,9);

writeln('Панас Українець');

gotoxy(30,10);

writeln('Перевірили: Барандич К.С., Демченко М.О.');

label1:

writeln('Введіть розмірність матриці n на m');

write('n=');

readln(n);

write('m=');

readln(m);

if(n<=0) or(m<=0) then

beginwriteln('Розмірність матриці ведена неправильно, повторіть введення'); gotolabel1;

end;

writeln('Якщо бажаєте заповнити матрицю випадковими числами введіть 1');

readln(ran);

ifran=1 then begin

RrandomNumber(a);

gotolabel2;

end;

writeln('Введіть елементи матриці А');

fori:=1 ton do

forj:=1 tom do

Begin

write('a[',i,'-',j,']= ');

readln(a[i,j]);

end;

label2:

writeln('Виведення елементів матриці А');

fori:=1 ton do begin

forj:=1 tom do begin

write(' a[',i,',',j,']=',a[i,j]);

end;

writeln;

end;

write('Сума елементів матриці S=',Suma(a));

readln;

end.

Переглядів: 485