Изучаем язык BASIC. Занятие 29. Печать элементов, находящихся над главной диагональю в виде треугольника.

Занятие 29.

Печать элементов, находящихся над главной диагональю в виде треугольника

Задан массив A(N,N), заполненный целыми числами в диапазоне [-20,15], распечатать элементы массива, находящиеся над главной диагональю в виде треугольника.

CLS

RANDOMIZE TIMER

INPUT “N=”;N

DIM A(N,N)

FOR I=1 TO N

FOR J=1 TO N

A(I,J)=INT(RDN*42-18)

PRINT USING “####”; A(I,J);

NEXT J

PRINT

NEXT I

FOR I=1 TO N

FOR J=1 TO N

IF I<J THEN PRINT USING “####”; A(I,J); ELSE PRINT “‗ ‗ ‗ ‗”;

NEXT J

PRINT

NEXT I

Задан массив A(N,N), заполненный целыми числами в диапазоне [-20,15], распечатать элементы массива, находящиеся под главной диагональю в виде треугольника.

IF I>J THEN PRINT USING “####”; A(I,J); ELSE PRINT “‗ ‗ ‗ ‗”;

Задан массив A(N,N), заполненный целыми числами в диапазоне [-20,15], распечатать элементы массива, находящиеся над побочной диагональю в виде треугольника.

IF I+J<N+1 THEN PRINT USING “####”; A(I,J); ELSE PRINT “‗ ‗ ‗ ‗”;

Задан массив A(N,N), заполненный целыми числами в диапазоне [-20,15], распечатать элементы массива, находящиеся под побочной диагональю в виде треугольника.

IF I+J>N+1 THEN PRINT USING “####”; A(I,J); ELSE PRINT “‗ ‗ ‗ ‗”;

Задан массив A(N,N), заполненный целыми числами в диапазоне [-20,15], распечатать элементы массива, находящиеся в 2,3,6,7, сохранив их положение.

IF (I<J AND I+J<N+1) OR (I>J AND I+J>N+1)  THEN PRINT USING “####”; A(I,J); ELSE PRINT “‗ ‗ ‗ ‗”;

Задан массив A(N,N), заполненный целыми числами в диапазоне [-20,15], распечатать элементы массива, находящиеся в 1,4,5,8, сохранив их положение.

IF (I>J AND I+J<N+1) OR (I<J AND I+J>N+1)  THEN PRINT USING “####”; A(I,J); ELSE PRINT “‗ ‗ ‗ ‗”;

Задан массив A(N,N), заполненный целыми числами в диапазоне [-20,15], распечатать элементы массива, находящиеся в 2,3,5,8, сохранив их положение.

IF (I<J AND I+J<N+1) OR OR (I>N/2 AND I<J) THEN PRINT USING “####”; A(I,J); ELSE PRINT “‗ ‗ ‗ ‗”;

Задан массив A(N,N), заполненный целыми числами в диапазоне [-20,15], распечатать элементы массива, находящиеся в 1,4,6,7, сохранив их положение.

IF (I>J AND I+J>N+1) OR (I<N/2 AND I>J) OR(I<N/2 AND I+J>N+1)  THEN PRINT USING “####”; A(I,J); ELSE PRINT “‗ ‗ ‗ ‗”;

Задан массив A(N,N), заполненный целыми числами в диапазоне [-20,15], распечатать элементы массива, находящиеся в 1,4,6,8, сохранив их положение.

Задан массив A(N,N), заполненный целыми числами в диапазоне [-20,15], распечатать элементы массива, находящиеся в 1,3,5,7, сохранив их положение.