Составить схему вычислительного процесса и написать её на Basic: G=max(cos(A+1), min(B, C+D))- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
INPUT "vvedite A ", a
INPUT "vvedite B ", b
INPUT "vvedite C ", c
INPUT "vvedite D ", d
IF b < c + d THEN min = b ELSE min = c + d
IF COS(a + 1) > min THEN g = COS(a + 1) ELSE g = min
PRINT "cos(A+1)="; COS(a + 1)
PRINT "B="; b
PRINT "C+D="; c + d
PRINT "G="; g

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment