окажите содействие с решением пожалуйста,очень надо сдать!)

@Beloff9999 · Регистрация: 28.12.2016

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

окажите содействие с решением пожалуйста,очень надо!)

echs · 28.12.2016, 10:28

1)

QBasic/QuickBASIC

CLS
CONST pi = 3.141593
PRINT "10 < R < 100"
INPUT "R = "; R
 
SCREEN 11
WINDOW (-200, 150)-(200, -150)
 
A = SQR(2) * R
s1 = pi * R ^ 2
s2 = A ^ 2
DS = s1 - s2
PRINT DS
 
CIRCLE (0, 0), R
LINE (-A / 2, -A / 2)-(A / 2, A / 2), , B
END

2)

QBasic/QuickBASIC

CLS
 
INPUT "CHISLO LET = "; A
 
IF A >= 18 THEN
   PRINT "GOLOSUY"
ELSE
   B = 18 - A
   PRINT "PODOSHDI ESHHYO"; B; "LET"
END IF
END

@Beloff9999 · 28.12.2016, 12:25 **[ТС]**

Спасибо)Осталось задачка с радианом

echs · 28.12.2016, 12:56

1)

QBasic/QuickBASIC

CLS
PRINT "10 <= R <= 100"
INPUT "R = "; R
PRINT "0 <= U <= 6.2832"
INPUT "U ="; U
 
CONST pi = 3.141593
 
S = pi * R ^ 2 * U / 360
 
SCREEN 11
WINDOW (-200, 150)-(200, -150)
 
CIRCLE (0, 0), R, , -.001, -U
PRINT "S ="; S
END

2)

QBasic/QuickBASIC

CLS
RANDOMIZE TIMER
FYZ = INT(3 * RND) + 3
MATH = INT(3 * RND) + 3
 
PRINT "FYZ ="; FYZ
PRINT "MATH ="; MATH
PRINT
 
IF FYZ + MATH >= 9 THEN
   PRINT "MOLODEC"
ELSE
   PRINT "PODTYANIS"
END IF
END

@Beloff9999 · 28.12.2016, 13:35 **[ТС]**

Спасибо!)

@Beloff9999 0 / 0 / 0 Регистрация: 28.12.2016 Сообщений: 15
		1
	окажите содействие с решением пожалуйста,очень надо сдать!) 28.12.2016, 09:37. Показов 863. Ответов 4 Метки нет (Все метки) окажите содействие с решением пожалуйста,очень надо!) Миниатюры 0

@Beloff9999 0 / 0 / 0 Регистрация: 28.12.2016 Сообщений: 15
	28.12.2016, 12:25 [ТС]	3
	Спасибо)Осталось задачка с радианом 0

@Beloff9999 0 / 0 / 0 Регистрация: 28.12.2016 Сообщений: 15
	28.12.2016, 13:35 [ТС]	5
	Спасибо!) 0