Вычислить сумму - QBasic (27528)
Формулировка задачи:
Собственно требуется решить данный пример в QBasic.
Кто сможет сделать,буду благодарен,ибо подобного найти не могу
Решение задачи: «Вычислить сумму»
textual
Листинг программы
CLS INPUT "Vvedite m"; m INPUT "Vvedite c"; c s = 9 FOR t = 3 TO m s = s + c * t + 2 NEXT t PRINT "S="; s END
Объяснение кода листинга программы
CLS- очистка экранаINPUTVvedite m; m- ввод числа m, переменной m присваивается значение введенного числаINPUTVvedite c; c- ввод числа c, переменной c присваивается значение введенного числаs = 9- инициализация переменной s значением 9FOR t = 3 TO m- начало цикла, переменной t присваивается значение 3, и она увеличивается на 1 на каждой итерации цикла до тех пор, пока не достигнет значения ms = s + c * t + 2- увеличение значения переменной s за счет произведения c и t, а также добавление 2 к результатуNEXT t- переход к следующей итерации циклаPRINTS=; s- вывод значения переменной s на экранEND- конец программы