|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2017, 09:26 | #1 |
Новичок
Джуниор
Регистрация: 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; НО Я НЕ ЗНАЮ КАК ЕГО ДОРАБОТАТЬ. КТО СМОЖЕТ ПОМОГИТЕ |
23.12.2017, 15:30 | #2 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,950
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с задачкой на 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 |