Заданы три группы чисел: 10, 20, 50 и 100, 200, 75 и A, B, C. Найти max значение в каждой группе чисел и max из полученных max — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DECLARE FUNCTION max (a, b, c)
DATA 10,20,50,100,200,75
READ a, b, c
k = max(a, b, c)
PRINT "maximum 1 gruppy="; k
READ l, m, n
t = max(l, m, n)
PRINT "maximum 2 gruppy="; t
INPUT "vvedite a ", a
INPUT "vvedite b ", b
INPUT "vvedite c ", c
p = max(a, b, c)
PRINT "maximum 3 gruppy="; p
r = max(k, t, p)
PRINT "maximum sredi maximumov="; r
 
FUNCTION max (a, b, c)
IF a > b AND a > c THEN max = a ELSE IF b > a AND b > c THEN max = b ELSE max = c
END FUNCTION

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

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

Leave a Comment