28.12.2012, 17:55 | #1 (permalink) |
Новичок
Регистрация: 28.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Блок схема в QBasic
DIM k(n) RANDOMIZE TIMER FOR i = 1 TO n k(i) = INT(RND * 91) - 45 NEXT p = 1: im = 1 FOR i = 1 TO n p = p * k(i) IF k(i) > k(im) THEN im = i NEXT FOR i = 1 TO n PRINT k(i); NEXT PRINT STRING$(80, 196) PRINT "p="; p, "max = k("; im; ") = "; k(im) FOR i = 1 TO n IF k(i) < 0 THEN k(i) = 0 NEXT PRINT STRING$(80, 196) FOR i = 1 TO n PRINT k(i); NEXT |
28.12.2012, 17:55 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вам хорошо было бы ознакомиться со схожими обсуждениями на нашем форуме Блок-схема 1 Блок-схема 2 Блок-схема Блок-схема Блок-схема 2 Блок-схема |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
qbasic, блок схема |
Опции темы | |
Опции просмотра | |
|
|