Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Обработка матриц
Дана последовательность целых чисел 1,2,...,100. Заполнить ими матрицу следующим образом
1 2 ...... 10
11 12 ...  20
21 22 ...  30
...................
91 92 ... 100  
и распечатать.
1 | Автор: Greschnik | 2015-11-27, 19:56   |  Репутация: [ + 0 ]
Правильна....проверте
Program matr;
var m:array [1,2,...100] of integer;
    i,j: integer;
begin
writeln('matriza');
for i:1 to 100 do
for j:i to 100 do
begin
m[i,j]:=j-i+1;
m[j,i]:=m[i,j]
end;
for i:=1 to 100 do
begin
for j:=1 to 100 do
writeln(m[i,j]:2);
writekn
end.
2 | Автор: Greschnik | 2015-11-27, 20:37   |  Репутация: [ + 0 ]
2 | Автор: Greschnik | 2015-11-27, 20:37   |  Репутация: [ + 0 ]
Вот решение задачи (в твоей есть ошибки и она не компилится):
Код
Program matr;
var m:array [1..10,1..10] of integer;
    i,j,k: integer;
begin
k:=1;
writeln('matriza');
writeln;
for i:=1 to 10 do
for j:=1 to 10 do
begin
m[i,j]:=k;
k:=k+1;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(m[i,j]:2);
writeln;
end;
writeln;
end.
3 | Автор: babax | 2015-11-27, 22:11 | Изменено: babax - Пт, 2015-11-27, 22:11   |  Репутация: [ + 5 ]
  • Страница 1 из 1
  • 1
Поиск: