Сформировать квадратную матрицу по образцу

@Helton · Регистрация: 19.04.2011

Студворк — интернет-сервис помощи студентам

Салют форумчани!!!!!
Есть к вам очень большая просьба, помогите мне перевести задачю из Паскаля в бэйсик, а то я в нём вобще нулевой((((
не откажите в помощи, пожалуйста.

Сформировать квадратную матрицу (15,15) следующего вида:
1 1 1 . . 1
1 2 2 . . 2
1 2 3 . . 3
. . . . . .
. . . . . .
1 2 3 . . 15

вод мой код на Паскале:

Pascal

Program Matr_A;
uses crt;
var
A: array [1..15,1..15] of integer;
I,J : integer;
begin
ClrScr;
for I :=1 to 15 do begin
for J :=I to 15 do begin
A[I,J] :=I;
If J>I then A[J,I] :=I ;
end;
end;
for j :=1 to 15 do begin
for i :=1 to 15 do begin
Write(A[I,J], ' ') ;
end;
WriteLn;
end;
readkey;
end.

@кот Бегемот · 25.04.2011, 17:16

PureBasic

dim a(15,15)
for i=1 to 15
for j=1 to 15
if i>j then a(i,j)=j else a(i,j)=i
next
next
for i=1 to 15
for j=1 to 15
print a(i,j);
next
print
next

@Helton · 25.04.2011, 18:12 **[ТС]**

Спасибо, очень выручил!!!

@Helton 0 / 0 / 0 Регистрация: 19.04.2011 Сообщений: 31
	25.04.2011, 18:12 [ТС]	3
	Спасибо, очень выручил!!! 0

Опции темы

Сформировать квадратную матрицу по образцу

Решение