CLS : RANDOMIZE TIMER: s = 0
PRINT "IcxMas"
n = 5
DIM q(n, n)
FOR j = 1 TO n
FOR i = 1 TO n
q(i, j) = INT(RND(1) * 100 - 30)
PRINT q(i, j);
NEXT j
PRINT
NEXT i
FOR i = 1 TO n
FOR j = 1 TO n
IF q(i, j) = 2 * i + 3 * j THEN s = s + q(i, j) ^ 2
NEXT j
NEXT i
IF s = 0 THEN PRINT "No" ELSE PRINT s
---
Составить алгоритм программы в виде блок-схемы. С ув. FirsT, спасибо.
Вот, на скорую руку в paint. Если правильно понял, потому что сильно в суть кода не вникал.
Прикрепленные файлы
_________.bmp ( 259.55 килобайт )
Кол-во скачиваний: 9
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)