Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Блок схема в QBasic (http://www.tehnari.ru/f41/t83235/)

Favorit 28.12.2012 17:55

Блок схема в QBasic
 
CONST n = 27
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


Часовой пояс GMT +4, время: 19:47.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.