- Преподавателю
- Информатика
- Изучаем язык BASIC. Занятие 29. Печать элементов, находящихся над главной диагональю в виде треугольника
Изучаем язык BASIC. Занятие 29. Печать элементов, находящихся над главной диагональю в виде треугольника
Раздел | Информатика |
Класс | - |
Тип | Конспекты |
Автор | Гегелашвили Т.П. |
Дата | 17.08.2015 |
Формат | doc |
Изображения | Есть |
Занятие 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
NEXT I
FOR I=1 TO N
FOR J=1 TO N
IF I‗ ‗ ‗ ‗";
NEXT J
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 "‗ ‗ ‗ ‗";
Задан массив 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, сохранив их положение.