VPF::"[Turbo Paskal] Двумерные массивы" - Форум программистов

kmt5

Дата 15.10.2012, 20:29 (ссылка)

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

Загрузка ...

Новичок

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

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

задача:

Задан двумерный массив А из 4-х строк и 4-х столбцов. Составить программу, которая подсчитывает произведение элементов массива, лежащих вне главной диагонали и написать блок-схему

t_gran

Дата 17.10.2012, 08:20 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


const
   CArraySize = 4;
type
   TArray = array [1..CArraySize, 1..CArraySize] of integer;

{-----------------------------------------------}
procedure Fill(var arr : TArray);
var
   i, j: word;
begin
   randomize;

   for i := 1 to CArraySize do
      for j := 1 to CArraySize do
         arr[i, j] := random(9) + 1;
end;
{-----------------------------------------------}
procedure Print(arr : TArray);
var
   i, j : word;
begin
   for i := 1 to CArraySize do
   begin
      for j := 1 to CArraySize do
         write(arr[i, j], ' ');
      writeln;
   end;
end;
{-----------------------------------------------}
function Calc(arr : TArray) : longint;
var
   i, j : word;
begin
   Calc := 1;
   
   for i := 1 to CArraySize do
      for j := 1 to CArraySize do
         if (i <> j) then
            Calc := Calc * arr[i, j];
end;
{-----------------------------------------------}
var
   arr : TArray;

begin
   Fill(arr);
   Print(arr);
   
   writeln('Calc = ', Calc(arr));
end.

Присоединённый файл ( Кол-во скачиваний: 3 )

archive.7z 18,19 Kb

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

Я знаю, что ничего не знаю© Сократ
user posted image

kmt5

Дата 23.10.2012, 17:55 (ссылка)

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

Загрузка ...

Новичок

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

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

подскажите как для этой программы написать блок-схему?

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