Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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



Ответ
 
Опции темы
Старый 23.12.2017, 10:26   #1
dmitry_hog
Новичок
 
Регистрация: 23.12.2017
Сообщений: 1
Репутация: 10
По умолчанию Помогите по 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, 16:30   #2
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,618
Репутация: 1463

skype: newerow1989
По умолчанию

Код:

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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с задачкой на 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




01:58.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru