| ← Ноябрь 2018 → | ||||||
|
1
|
2
|
3
|
4
|
|||
|---|---|---|---|---|---|---|
|
5
|
7
|
8
|
9
|
10
|
11
|
|
|
12
|
13
|
14
|
15
|
16
|
17
|
|
|
19
|
20
|
21
|
22
|
23
|
24
|
25
|
|
26
|
27
|
28
|
29
|
30
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
 ) и матрицу rmatr размера N на M случайных целых чисел (num вводятся пользователем...Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 27.10.2018, 17:10 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Степанов Иван /REDDS! © Цитата: Степанов Иван /REDDS Без использования встроенных функций операций над матрицами. Ни одной стандартной функции, работы с матрицами  Код (Pascal) :: выделить код type
z=^integer;
var
matr:z;
rmatr:z;
d:z;
i,j,n,m:integer;
procedure show(a:z;b,c:integer);
var
d:integer;
begin
while b>0 do
begin
d:=c;
while d>0 do
begin
write(a^:3);
inc(a);
dec(d);
end;
writeln;
dec(b);
end;
end;
begin
repeat write('Enter N:=');readln(n);until n>0;
GetMem(matr,n*n*sizeof(integer));
d:=matr;
for i:=1 to n do for j:=1 to n do
begin
if j>i then d^:=0 else d^:=n-i+j;
inc(d);
end;
show(matr,n,n);
FreeMem(matr,n*n*sizeof(integer));
repeat write('Enter M:=');readln(m);until m>0;
GetMem(rmatr,n*m*sizeof(integer));
d:=rmatr;
for i:=0 to n do for j:=0 to m do
begin
d^:=random(100);
inc(d);
end;
show(rmatr,n,m);
FreeMem(rmatr,n*m*sizeof(integer));
end.Проверял на малых N и M, думаю num так переводится. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: 
| В избранное | ||
