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

Формулировка задачи:

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

                    Листинг программы
                
 
                        
                          
                    
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.

Решение задачи: «Сформировать квадратную матрицу по образцу»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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

Оцени полезность:

9 голосов , оценка 4.222 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы