В одну и ту же переменную последовательно вводятся действительные числа. Количество вводимых чисел заранее не известно. Определить номер и значение последнего максимального числа. Определить номер и значение первого минимального числа — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
ans$ = "Y"
flagmin$ = "false"
DO
INPUT "Введите любое действительное число"; a
IF cnt = 0 THEN min = a: nmin = cnt + 1:  ELSE IF min > a AND flagmin$ = "false" THEN min = a: nmin = cnt + 1
IF min < a AND flagmin$ = "false" THEN flagmin$ = "true"
IF cnt = 0 THEN max = a: nmax = cnt + 1: tmp = a: GOTO sled
IF max < a THEN max = a: nmax = cnt + 1
IF tmp < a THEN max = a: nmax = cnt + 1
IF max >= a THEN tmp = a
sled: cnt = cnt + 1
INPUT "Желаете продолжить? Y - да, N- нет"; ans$
LOOP UNTIL ans$ = "N" OR ans$ = "n"
PRINT "Первый минимум равен "; min
PRINT "Номер минимума - "; nmin
PRINT "Последний максимум равен "; max
PRINT "Номер максимума - "; nmax
END

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

Leave a Comment