Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.03.2017, 18:20   #1
Rimean
 
Регистрация: 23.11.2016
Сообщений: 9
По умолчанию Подпрограммы

составить программу поиска максимальных элементов во всех строках матрицы. Нахождение максимального элемента вектора оформить в виде подпрограммы.
Rimean вне форума Ответить с цитированием
Старый 03.03.2017, 20:04   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
uses crt;
type
    TMatrix = array [1..50, 1..50] of integer;
    TVector = array [1..50] of integer;
 
var Mas: TMatrix;
    Vec : TVector;
    i, j, m, n : integer;
 
function f(Stk: TVector; n: integer):integer;
var i, max: integer;
begin
 max := Stk[1];
 for i := 2 to n do
  if max < Stk[i] then max := Stk[i];
 f := max;
end;
 
BEGIN
ClrScr;
Randomize;
Write('m and n =  ');
Readln(m, n);
Writeln('Array: ');
for i := 1 to m do
 begin
      for j := 1 to n do
       begin
       Mas[i, j] := random(100);
       Write(Mas[i,j], ' ');
       end;
  Writeln;
 end;
Writeln('Result');
for i := 1 to m do
 begin
 for j := 1 to n do
   Vec[j] := Mas[i,j];
 Writeln(f(Vec, n));
 end;
Readln;
END.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подпрограммы Camelot_2012 Паскаль, Turbo Pascal, PascalABC.NET 1 09.04.2012 14:36
Подпрограммы Егор93 Помощь студентам 1 13.02.2011 18:52
подпрограммы!? nolx Помощь студентам 0 31.05.2010 18:53
Подпрограммы оО) SkyL1ne Помощь студентам 5 24.05.2010 21:21
Подпрограммы-процедуры, подпрограммы-функции в Pascal rishikesh Помощь студентам 19 18.05.2010 23:05