Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К)

@Kymajan · Регистрация: 21.02.2013

[QBASIC] Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К) прогу и блок схему напишите пожалуйста:*

@АББА · 22.02.2013, 12:23

QBasic/QuickBASIC

CLS
INPUT N
DIM A(N, N)
FOR I = 1 TO N
FOR J = 1 TO N
A(I, J) = INT(RND * 100)
PRINT USING "####"; A(I, J);
NEXT J
PRINT
NEXT I
FOR I = 1 TO N
FOR J = 1 TO N
IF I <> J AND I < J THEN A(I, J) = 1
IF I <> J AND I > J THEN A(I, J) = 0
NEXT J, I
PRINT
FOR I = 1 TO N
FOR J = 1 TO N
PRINT USING "####"; A(I, J);
NEXT J
PRINT
NEXT I

@Kymajan · 22.02.2013, 17:47 **[ТС]**

пасиба,очень помогли

echs · 04.06.2016, 16:27

Зачем дублирование условий?

QBasic/QuickBASIC

1 2	IF I <> J AND I < J THEN A(I, J) = 1 IF I <> J AND I > J THEN A(I, J) = 0

Так ведь проще

QBasic/QuickBASIC

1 2	IF I < J THEN A(I, J) = 1 IF I > J THEN A(I, J) = 0

@Kymajan 0 / 0 / 0 Регистрация: 21.02.2013 Сообщений: 9
		1
	Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К) 21.02.2013, 15:58. Показов 2056. Ответов 3 Метки нет (Все метки) [QBASIC] Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К) прогу и блок схему напишите пожалуйста:* 0

@Kymajan 0 / 0 / 0 Регистрация: 21.02.2013 Сообщений: 9
	22.02.2013, 17:47 [ТС]	3
	пасиба,очень помогли 0

Опции темы

Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К)

Решение