Среди вводимых чисел подсчитать количество случаев Ai >Ai+1, случаев Ai =Ai+1 и случаев Ai<Ai+1. При вводе числа -32768 закончить работу- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
DIM a(1000)
i = 0: k = 0: n = 0: m = 0
DO UNTIL a(i) = -32768
    i = i + 1
    INPUT a(i)
    IF i > 1 THEN
        IF a(i - 1) > a(i) THEN k = k + 1
        IF a(i - 1) < a(i) THEN n = n + 1
        IF a(i - 1) = a(i) THEN m = m + 1
    END IF
LOOP
PRINT "kolvo sluchaev a(i)>a(i+1)="; k
PRINT "kolvo sluchaev a(i)<a(i+1)="; n
PRINT "kolvo sluchaev a(i)=a(i+1)="; m
END

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

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

Leave a Comment