Курсовая работа: Основы программирования в среде Qbasic

1.1.2 Программа, работающая в диалоговом режиме

10 INPUT "Введитеa,b,c"; a, b, c

20 d = a

30 IF d = 0 GOTO 60

40 END

50 PRINT (c * (a ^ 3 * b) - c ^ 2) * (c ^ 3 / a)

60 PRINT "а не должно быть 0"

70 GOTO 10

Результат: 11623,5

1.2 Найти значение выражения

Рис.2. Алгоритм вычисления

1.2.1 Программа, составленная с присвоением значений переменным

10 a = 6: b = 4: с = 3

20 d = 9 – a^2

30 IF d = 0 GOTO 60

40 END

50 PRINT (a^2 + 3 * b ^ 3 * c) – (5 * c / (9 – a^2))

60 PRINT "а не должно быть 3 или -3"

70 GOTO 10

1.2.2 Программа, работающая в диалоговом режиме

10 INPUT "Введитеa,b,c"; a, b, c

20 d = 9 – a^2

30 IF d = 0 GOTO 60

40 END

50 PRINT (a^2 + 3 * b ^ 3 * c) – (5 * c / (9 – a^2))

60 PRINT "а не должно быть 3 или -3"

70 GOTO 10

Результат: 612,5555