Реферат: Общие сведения о языке программирования Qbasic

PRINT "НАИБОЛЬШЕЕ ЧИСЛО X="; X

ELSE

PRINT "НАИБОЛЬШЕЕ ЧИСЛОY=";Y

END IF

END

Пример 2. Вычислите Функцию для любого значения Х.

X² +4X-7 , X<=-2 CLS: INPUT "введите X";X

Y=< IF X<=-2 THEN

X² -3X+12 , X>2 Y=X^2+4*X-7

ELSE

Y=X^2-3*X+12

END IF

PRINT "ФУНКЦИЯ =";У;" при Х=";Х

END

Пример 3. Вычислите функцию У=3Х² -5Х+12 на отрезке (-3,3) с шагом 1.

CLS: PRINT "Y", "X"

X=-3

4 Y=3*X^2-5*X+12

PRINT Y,X

X=X+1

IF X<3 THEN GOTO 4

END

Пример 4. Вычислите сумму целых чисел от 10 до 20

S =10+11+12+...+20

CLS: S=0: X=10

5 S=S+X

X=X+1

IF X<=20 THEN GOTO 5

PRINT "сумма = ";S