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

Раздел Информатика
Класс -
Тип Конспекты
Автор
Дата
Формат doc
Изображения Есть
For-Teacher.ru - все для учителя
Поделитесь с коллегами:

Занятие 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‗ ‗ ‗ ‗";

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‗ ‗ ‗ ‗";

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

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

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

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

IF (IJ 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+JN+1) THEN PRINT USING "####"; A(I,J); ELSE PRINT "‗ ‗ ‗ ‗";

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

IF (IN/2 AND I‗ ‗ ‗ ‗";

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

IF (I>J AND I+J>N+1) OR (IJ) OR(IN+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, сохранив их положение.








© 2010-2018