Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
driveme
0 / 0 / 0
Регистрация: 22.05.2014
Сообщений: 25
#1

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

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

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

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

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

Составить процедуру и функцию для вычисления значений элементов матрицы по заданной формуле - Turbo Pascal
Составить подпрограмму-процедуру и подпрограмму-функцию для вычисления значений элементов а ij матрицы A=|aij|nm по формуле aij=z(xi, yj,...

Составить пользовательскую процедуру или функцию для вычисления произведения - Turbo Pascal
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ••• * (n/(n+1)2).

Составить пользовательскую процедуру или функцию для вычисления произведения - Turbo Pascal
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ··· * (n/(n+1)2)....

Составить пользовательскую процедуру или функцию для вычисления произведения - Turbo Pascal
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ••• * (n/(n+1)2).

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
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
Привет! Вот еще темы с ответами:

Составить пользовательскую процедуру или функцию для вычисления произведения - Turbo Pascal
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ... * (n/(n+1)2).

Составить пользовательскую процедуру или функцию для вычисления произведения - Pascal
Составить пользовательскую процедуру или функцию для вычисления произведения: (1^2/(1+1)^2) * ( 2^2/(2+1)^2) * ( 3^2/(3+1)^2) * ... *...

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

Составить пользовательскую процедуру или функцию для вычисления произведения - Turbo Pascal
Составить пользовательскую процедуру или функцию для вычисления произведения: (12/(1+1)2) * ( 22/(2+1)2) * ( 32/(3+1)2) * ··· *...


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

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

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