Crousader
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: помогите, пожалуйста с задачей на рекурсию.
Составить программу, которая создает целочисленый массив, заполненный случайными числами ( в тм числе отрицательными). |
type Matr = array[1..100,1..100] of real;
var a:Matr;
n,i,j, m, k:byte;
b: Real;
c:char;
begin
randomize;
repeat
write('n = ');
readln(n);
until (n>=1) and (n<=100) ;
write ('input by hand (y) - ');
readln(c);
if upcase (c)= 'Y' then
for i:=1 to n do
for j := 1 to n do
begin
write('a[',i,', ', j, ']=');
readln(a[i, j]);
end
else
for i:=1 to n do
for j := 1 to n do
a[i, j]:=-100.0-random(100)+random;
for i:=1 to n do
begin
for j := 1 to n do
write(a[i, j]:5:2, ' ');
writeln;
end;
Добавлено:
Цитата:
Цитата:помогите, пожалуйста с задачей на рекурсию.
Составить программу, которая создает целочисленый массив, заполненный случайными числами ( в тм числе отрицательными).
type Matr = array[1..100,1..100] of real;
var a:Matr;
n,i,j, m, k:byte;
b: Real;
c:char;
begin
randomize;
repeat
write('n = ');
readln(n);
until (n>=1) and (n<=100) ;
write ('input by hand (y) - ');
readln(c);
if upcase (c)= 'Y' then
for i:=1 to n do
for j := 1 to n do
begin
write('a[',i,', ', j, ']=');
readln(a[i, j]);
end
else
for i:=1 to n do
for j := 1 to n do
a[i, j]:=-100.0-random(100)+random;
for i:=1 to n do
begin
for j := 1 to n do
write(a[i, j]:5:2, ' ');
writeln;
end; |
извиняюсь,там не real a integer
|
). Включение элемента осущствляется процедурой PutList.
))
