Даны 3 числа, возвести в Квадрат те из них которые положительные. (задачу решать только в QBASIK ). Заранее Спасибо.

Question

Си Сишка · Accepted Answer

10 CLS 
20 DIM M(3) 
30 FOR i = 1 TO 3 
40 PRINT "Vvedite" + STR$(i) + "-e 4islo:"; 
50 INPUT M(i) 
60 NEXT i 
70 PRINT "Polozhitel'nye 4isla:" 
80 FOR i = 1 TO 3 
90 IF M(i) >= 0 THEN PRINT M(i); "- kvadrat 4isla:"; M(i) ^ 2 
100 NEXT i

Надежда Дюльгерова · Answer

DIM x AS SINGLE 
DIM y AS SINGLE 
DIM z AS SINGLE 
RANDOMIZE TIMER 
x = RND * 20 - 10 
y = RND * 20 - 10 
z = RND * 20 - 10 
PRINT "Даны три числа: " 
PRINT USING "X = ###.###"; x 
PRINT USING "Y = ###.###"; y 
PRINT USING "Z = ###.###"; z 
IF x > 0 THEN x = x ^ 2 
IF y > 0 THEN y = y ^ 2 
IF z > 0 THEN z = z ^ 2 
PRINT "Результат: " 
PRINT USING "X = ###.###"; x 
PRINT USING "Y = ###.###"; y 
PRINT USING "Z = ###.###"; z 
END