|
#1
|
|||
|
|||
case of
у меня возникла трудность, нужно в оператор case of запихнуть две функции заполнения массива (ввод с клавы, и случайными числами и массив как константа. как это сделать выбивает кучу ероров как написать правильно (простите, но case of я не знаю вообще и не по литературе около недели бился) помогите вот эти функции и константа.
Код:
function InpuMatrix():mas; var a:mas; x:integer; begin Randomize; for x:=1 to 10 do begin a[x]:=random(20)-10; writeln(a[x]); {writeln(a[i,x]);} end;{1} InpuMatrix:= a; end;{2} Код:
function inputmatrix():mas var a:mas; i:integer; begin for i:=1 to 10 do begin write('a[',i,']','='); readln(a[i]); end; end. константу не скину потерял. П.С. первый курс Первый семестр пишу в console aplication жду совета. Тут может быть ваша программа... Последний раз редактировалось Dotam, 16.01.2011 в 20:59. |
#2
|
||||
|
||||
Не пойму, что надо. По какой переменной case? При каких значениях какая функция вызывается?
Общий вид: Код:
case i of 1: InpuMatrix; 2: inputmatrix; Код:
procedure InpuMatrix; ... procedure inputmatrix; ... jmp $ ; Happy End! The Cake Is A Lie. |