Даны вещественные числа a,b,c,d; Составить программу, определяющую наибольшее из четырех чисел.Написать и использовать специальную функцию max2 , находящую наибольшее из двух чисел — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
DECLARE FUNCTION max2! (x AS SINGLE, y AS SINGLE)
CLS
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
INPUT "d="; d
x = max2(a, b)
y = max2(x, c)
z = max2(y, d)
PRINT "Max="; z
 
FUNCTION max2 (x AS SINGLE, y AS SINGLE)
IF x > y THEN max2 = x ELSE max2 = y
END FUNCTION

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

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

Leave a Comment