Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Seems_
0 / 0 / 1
Регистрация: 07.09.2017
Сообщений: 21
#1

Составить процедуру-функцию - Turbo Pascal

16.09.2017, 22:42. Просмотров 144. Ответов 1
Метки нет (Все метки)

Составить процедуру-функцию, определяющую номер строки матрицы А(М,М), содержащей наибольший из диагональных элементов(ближайший к первому, если их несколько) матрицы. Применить эту процедуру-функцию для исследования диагонали заданной матрицы B(30,30).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.09.2017, 22:42
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить процедуру-функцию (Turbo Pascal):

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

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

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

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

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

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
17.09.2017, 17:43 #2
Лучший ответ Сообщение было отмечено Seems_ как решение

Решение

Цитата Сообщение от Seems_ Посмотреть сообщение
ближайший к первому, если их несколько)
Не совсем понял, ищется первый макс.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
const
  n = 30;
 
type
  matrix = array [1..n, 1..n] of integer;
 
var
  A: matrix;
  i, j: integer;
 
function FindMax(a: matrix): integer;
var
  i, j, imax, max: integer;
 
begin
  max := A[1, 1];
  imax := 1;
  {главная диагональ}
  for i := 1 to n do
    if A[i, i] > max then 
    begin
      max := A[i, i];
      imax := i;
    end;
   {побочная диагональ}
  max := A[1, n];
  imax := 1;
  for i := 1 to n do
    if a[i, n - i + 1] > max then 
    begin
      max := A[i, i];
      imax := i;
    end;
  FindMax := imax;      
end;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to n do 
    begin
      a[i, j] := -n div 2 + random(n);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Max в строке ', FindMax(a));
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.09.2017, 17:43
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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