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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2017, 09:26   #1
dmitry_hog
Новичок
Джуниор
 
Регистрация: 23.12.2017
Сообщений: 1
По умолчанию Помогите по turbo pascal

«ПОДПРОГРАММЫ»

Задание к лабораторной работе.

Разработать программы для выполнения над матрицей размера 5х5 операций в соответствии с вариантом. На печать вывести исходную матрицу и полученный результат с текстовым комментарием.

Варианты заданий.


Вариант 18
1. Определение максимального значения среди элементов, находящихся под главной диагональю.
2. Удвоение всех значение исходной матрицы.


Примечание: Для пункта 1 исходную матрицу задать самостоятельно в виде типизированной константы.
Для пункта 2 исходную матрицу сформировать, используя датчик псевдослучайных чисел
RANDOM.

у меня есть фот такой кусочек кода


const n=5;
type mtr=array[1..n,1..n] of integer;
//поиск максимального под главной диагональю
function Max(a:mtr):integer;
var i,j,mx:integer;
begin
mx:=a[2,1];
for i:=3 to n do
for j:=1 to i-1 do
if a[i,j]>mx then mx:=a[i,j];
Max:=mx
end;
//удвоение элементов
procedure Udv(var a:mtr);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=a[i,j]*2;
end;



НО Я НЕ ЗНАЮ КАК ЕГО ДОРАБОТАТЬ.
КТО СМОЖЕТ ПОМОГИТЕ
dmitry_hog вне форума Ответить с цитированием
Старый 23.12.2017, 15:30   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const n=5;
type mtr=array[1..n,1..n] of integer;

function Max(a:mtr):integer;
var i,j,mx:integer;
begin
   mx:=a[2,1];
   for i:=3 to n do
      for j:=1 to i-1 do
         if a[i,j]>mx then
            mx:=a[i,j];
   Max:=mx;
end;

procedure Udv(var a:mtr);
var i,j:integer;
begin
   for i:=1 to n do
      for j:=1 to n do
         a[i,j]:=a[i,j]*2;
end;

var a:mtr;
    i,j:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=Random(99);
         Write(a[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   Writeln('max = ',Max(a));
   Writeln;
   Udv(a);
   For i:=1 to n do
   begin
      For j:=1 to n do
         Write(a[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с задачкой на Turbo Pascal Svet_lana Помощь студентам 6 07.06.2009 19:25
Помогите с задачками на Turbo Pascal.... veterok Помощь студентам 4 17.04.2009 01:15
Помогите с Turbo Pascal ohotnik Помощь студентам 4 13.04.2009 22:14