VPF::[Delphi] создание массива 5*5 - Форум программистов

xoyk

Дата 8.4.2009, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.4.2009

Репутация: нет
Всего: нет

народ кто разбирается в делфи выручите пожалуста можете поробно расписать эту задачу если кто может очень надо

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

xoyk

Дата 12.4.2009, 20:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.4.2009

Репутация: нет
Всего: нет

народ ну помогите зачет через неделю решите задачу плизз

t_gran

Дата 13.4.2009, 03:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

Держи горе-студент! smile

Написано в PascalABC, но не бойся в Delphi попрёт как миленький.

Код


const
   CSize= 5;
type
   TArr= array [1..CSize,1..CSize] of integer;
{-----------------------------------------------}
procedure ArrRand (var theArr: TArr);
var
   i, j: integer;
begin
   randomize;
   for i:= 1 to CSize do
      for j:= 1 to CSize do
         theArr[i,j]:= random(39)+10;
end;
{-----------------------------------------------}
procedure ArrPrint (theArr: TArr);
var
   i, j: integer;
begin
   for i:= 1 to CSize do
   begin
      for j:= 1 to CSize do
         write (theArr[i,j], ' ');
      writeln;
   end;
   writeln;
end;
{-----------------------------------------------}
procedure ArrBaseDiagonal (var theArr: TArr);
var
   i: integer;
begin
   for i:= 1 to CSize do
         theArr[i,i]:= theArr[i,1]+theArr[1,i];
end;
{-----------------------------------------------}
var
   arr: TArr;
begin
   ArrRand (arr);
   ArrPrint (arr);
   ArrBaseDiagonal (arr);
   ArrPrint (arr);
end.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »