Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
driveme
0 / 0 / 0
Регистрация: 22.05.2014
Сообщений: 25
#1

Написать процедуру для вычисления произведения минимальных элементов строки матрицы.

26.05.2014, 09:49. Просмотров 1046. Ответов 2
Метки нет (Все метки)

Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы A(m n) (процедура только для произведения).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2014, 09:49
Ответы с готовыми решениями:

Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n)
Составить процедуру для вычисления произведения минимальных элементов каждой...

Составить программу вычисления произведения элементов каждой строки А(6Х7). Элементы матрицы – действительные числа
Составить программу вычисления произведения элементов каждой строки А(6Х7)....

Составить процедуру и функцию для вычисления значений элементов матрицы по заданной формуле
Составить подпрограмму-процедуру и подпрограмму-функцию для вычисления значений...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения:...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: ...

2
driveme
0 / 0 / 0
Регистрация: 22.05.2014
Сообщений: 25
28.05.2014, 21:08  [ТС] #2
Помоги)
0
Power torr
9 / 9 / 9
Регистрация: 28.05.2014
Сообщений: 11
28.05.2014, 21:09 #3
Лучший ответ Сообщение было отмечено driveme как решение

Решение

Pascal
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
Program z1;
uses crt;
type mas=array[1..100,1..100] of integer;
var i,j,n,m:integer;
a:mas;
k:integer;
procedure pr(n,m:integer; b:mas; var p:integer);
var
i,j,min:integer;
begin
p:=1;
for i:=1 to n do begin
 min:=b[i,1];
 for j:=2 to m do
 if b[i,j]<min then min:=b[i,j];
 p:=p*min;
 end;
 end;
begin
 write('vvesti chisla N,M ');
 readln(n,m);
 for i:=1 to n do begin
 for j:=1 to m do begin
 a[i,j]:=random(20)+1;
   write(a[i,j]:4); end;
  writeln;
      end;
pr(n,m,a,k);
writeln('k=',k:8);
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2014, 21:09

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: ...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: ...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru