Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Alexartun
1 / 1 / 0
Регистрация: 01.10.2015
Сообщений: 127
1

Вычислить значение выражения

15.02.2016, 21:25. Просмотров 778. Ответов 1
Метки нет (Все метки)

Для матрицы В(5 строк и 4 столбца) вычислить выражение Y=5M1+4M2+...1M5 - где Мк- значение наименьшего элемента в k-й строке этой матрицы

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

Вычислить значение выражения
Всем добрый день, очень нужна помощь в решении программы на паскале. Заранее...

Вычислить значение выражения
вычислить z= (x1+y1)/(x2-y2) где x1 и x2-корни уравнения 2x^2+x-4=0, y1 и y1-...

Вычислить значение выражения
Вычислить значение выражения:...

Вычислить значение выражения
помогите вычислить значение выражения y=x^+x^1+x^2+...+x+1 значения x и n...

Вычислить значение выражения

1
Kapytan
129 / 143 / 64
Регистрация: 27.06.2013
Сообщений: 516
16.02.2016, 15:24 2
Лучший ответ Сообщение было отмечено Alexartun как решение

Решение

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
32
33
uses crt;
Procedure Poisk(A:array[1..5,1..4] of integer;nomer:integer;var mnel:integer);
var k:integer;
begin
  mnel:=A[nomer,1];
  for k:=2 to 4 do
    if A[nomer,k]<mnel then mnel:=A[nomer,k];
end;
 
type mas=array[1..5,1..4] of integer;
Var B:mas;
Y,i,j,nom,mel:integer;
begin
  randomize;
  writeln('Исходная матрица:');
  for i:=1 to 5 do
    begin
      for j:=1 to 4 do
        begin
          B[i,j]:=random(24);
          write(B[i,j]:5);
        end;
        writeln;
    end;
  write('Выражение Y = ');
  Y:=0;
  for nom:=1 to 5 do
    begin
      Poisk(B,nom,mel);
      Y:=Y+(6-nom)*mel;
    end;
    write(Y:3);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.02.2016, 15:24

Вычислить значение выражения
Люди добрые,помогите,пожалуйста \frac{c\cdot...

Вычислить значение выражения
Не используя стандартные функции (за исключением abs), вычислить с точностью...

Вычислить значение выражения
y=(3*sqrt(a-b))/(sqrt(c)+3*sqrt(abs(a)))


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

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

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