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

Тлумачний словник
Авто
Автоматизація
Архітектура
Астрономія
Аудит
Біологія
Будівництво
Бухгалтерія
Винахідництво
Виробництво
Військова справа
Генетика
Географія
Геологія
Господарство
Держава
Дім
Екологія
Економетрика
Економіка
Електроніка
Журналістика та ЗМІ
Зв'язок
Іноземні мови
Інформатика
Історія
Комп'ютери
Креслення
Кулінарія
Культура
Лексикологія
Література
Логіка
Маркетинг
Математика
Машинобудування
Медицина
Менеджмент
Метали і Зварювання
Механіка
Мистецтво
Музика
Населення
Освіта
Охорона безпеки життя
Охорона Праці
Педагогіка
Політика
Право
Програмування
Промисловість
Психологія
Радіо
Регилия
Соціологія
Спорт
Стандартизація
Технології
Торгівля
Туризм
Фізика
Фізіологія
Філософія
Фінанси
Хімія
Юриспунденкция

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.

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