Сделать блок-схемы к двум программам

@KolGru · Регистрация: 29.10.2012

Author24 — интернет-сервис помощи студентам

Помогите сделать блок-схемы к двум программам пожалуйста , срочняк надо

QBasic/QuickBASIC

OPTION BASE 1
DIM z(9)
DATA 1,2,0,-3,5,-2,4,7,8
FOR i=1 TO 9
READ Z(i)
NEXT i
E = Z(1)
IF i MOD 2 = 0 THEN H=H+Z(i)
IF E < Z(i) THEN E=Z(i)
IF Z(i) > 0 THEN G = G+1
NEXT i
D = H + (E / (H+1) ) * G
PRINT "H=";H
PRINT "E=";E
PRINT "G=";G
PRINT  "D=";D
END

_________________________

QBasic/QuickBASIC

INPUT "n=";n
DIM x(n)
D=1
FOR i=1 TO n
10 INPUT "x=";x(i)
IF x>= 0 AND x<=1 THEN D=D*COS(x(i)+ 0.1) ELSE GOTO 10
NEXT i
PRINT "F(x)="; D^(1/3)
END

@urbic · 09.12.2013, 20:51

К первой задаче

@urbic 140 / 130 / 127 Регистрация: 27.09.2012 Сообщений: 635
	09.12.2013, 20:51	2
	К первой задаче Миниатюры 2