Вычислить значение функции в заданном диапазоне - QBasic
Формулировка задачи:
Добрый день.
Помогите в QBasic написать программу и составить блок-схему к ней.
Решение задачи: «Вычислить значение функции в заданном диапазоне»
textual
Листинг программы
- CLS
- DEF FnY (X) = ((X + 1) ^ X) / X
- Min = FnY(3)
- Max = Min
- FOR X = 3 TO 7 STEP .4
- Y = FnY(X)
- IF Y > Max THEN Max = Y
- IF Y < Min THEN Min = Y
- S = S + Y
- NEXT
- PRINT "Sum ="; S
- PRINT "Max ="; Max
- PRINT "Min ="; Min
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д