Процедуры + матрицы :( Опции

[Олег]

Привет.
Вот попалась мне такая програмка.

Дано 5ть матриц!!! При этом все они разной размерности (5*1, 1*5 или 5*5). И все их надо забивать, ну если я сделаю пять циклов для ввода, меня повесят

Вот я и решил сделать процедурку, но столкнулся с проблемой: как указать, какой из пяти массивов заполнять?

[GLuk]

Народ, принципиального ничего нет, но вот суть задачи:
Есть пять массивов (двумерных), у всех разная размерность, и мне нужно все их заводить. Я никогда не поверю что мой препод проглотит пять циклов... Как бы вы сделали это безобразие?
А в моем коде как раз таки и есть пять циклов

Насчет принципиальности - это ты к чему;?
принципиальности действия, понятия или что-то ишшо?!
До кучи есть ишшо один вариант (без объявления типа):

Код

Var
P:Pointer;
a1:array[1..5] of LongInt;
Begin
P:=Addr(a1);
End.

Сообщение отредактировано: volvo - 17.12.2004 18:50