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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2012, 19:32   #1
Макс7
 
Регистрация: 24.05.2012
Сообщений: 3
По умолчанию Сформировать квадратную матрицу!

помогите сделать програмку в turbo pascal


Сформировать квадратную матрицу с елементами х(j,k)=random(17*i)-N, где i номер варианта (№2), N-некоторое произвольное целое, j,k=1..5. Вывести на екран начальный и обработаный массивы в виде матрицы и все отрицательные елементы матрицы, которые находятся выше главной диагонали, поднести к квадрату и найти максимальный из них.



Буду благодарен за помощь!!!!!!!
Макс7 вне форума Ответить с цитированием
Старый 25.05.2012, 03:40   #2
kuy
Форумчанин
 
Аватар для kuy
 
Регистрация: 05.09.2011
Сообщений: 109
По умолчанию

Задание толком не понял, но вот тебе формирование и вывод массива:
Код:
var x:array[1..5,1..5] of integer;
    i,n,j,k:integer;
begin
  i:=2;
  N:=6;
  randomize;
  for j:=1 to 5 do
   for k:=1 to 5 do
    x[j,k]:=random(17*i)-N;

  writeln('My Array:');
  for j:=1 to 5 do
   begin
    for k:=1 to 5 do
     write(x[j,k],'  ');
   writeln;
   end;
  readln;
end.
kuy вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сформировать квадратную матрицу(Pascal) Макс7 Помощь студентам 0 24.05.2012 18:54
заполнить квадратную матрицу Orakyll08 Помощь студентам 13 12.07.2011 01:46
Задано квадратную матрицу /*Oleh*/ Visual C++ 7 08.03.2011 14:40
Задано квадратную матрицу /*Oleh*/ Помощь студентам 5 07.03.2011 18:56
Заполнить квадратную матрицу ac1d_buRn Помощь студентам 3 22.12.2010 19:40