Пример 3. Табулирование функции на отрезке

С оставить программу для вывода значений функции на отрезке [a, b] с шагом h, используя цикл с предусловием.

Блок-схема предложенной задачи показана на рисунке.

Текст программы имеет вид:

REM Табулирование функции с предусловием

CLS

INPUT "'Введите границы отрезка a и b "; a, b

INPUT "'Введите шаг h "; h

x = a

WHILE x <= b

y = x*(1+exp(-x *x))

PRINT x, y

x = x + h

WEND

Если для решения этой задачи использовать цикл с постусловием, то листинг программы будет иметь вид:

REM Табулирование функции с постусловием

CLS

INPUT "'Введите границы отрезка a и b "; a, b

INPUT "'Введите шаг h "; h

x = a

DO

y = x*(1+exp(-x *x))

PRINT x, y

x = x + h

LOOP UNTIL x > b

Пример 4. Нахождение суммы

Составить программу для вычисления значения суммы

1. Запустите QBasic.

2. В окне редактирования наберите текст программы:

REM Нахождение суммы

CLS

INPUT "'Введите значение n "; n

s = 0

FOR i = 1 TO n STEP 1

s = s+(i ^ 3 1);

NEXT i

PRINT "Сумма равна "; s

3. Сохраните программу на диске.

4. Самостоятельно составьте программу нахождения суммы для произвольного значения n. (Проверка: для n = 15 сумма должна быть равна 3.318229).

Пример 5. Подсчет числа делителей натурального числа

Составьте программу подсчета числа делителей натурального числа N.

REM Нахождение числа делителей

CLS

INPUT "'Введите значение n "; n

k = 0

FOR i = 1 TO n STEP 1

IF n mod i = 0 THEN

k = k +1

END IF

NEXT i

PRINT "Количество делителей равно "; k

Пример 6. Подсчет суммы нечетных делителей

Составьте программу вычисления суммы нечетных делителей натурального числа N.

REM Нахождение суммы нечетных делителей

CLS

INPUT "'Введите значение n "; n

s = 0

FOR i = 1 TO n STEP 1

IF (n mod i = 0) AND (i mod 2 <> 0) THEN

s = s +i

END IF

NEXT i

PRINT "'Сумма нечетных делителей "; s

Задание 1. Решение задач по теме Номера задач задает преподаватель!

1. Составьте программу табулирования функции на отрезке [0,1] с шагом 0.2.

2. Составьте программу табулирования функции на отрезке [1,10] с шагом 0.5.

3. Составьте программу табулирования функции на отрезке [0,1] с шагом 0.1.

4. Составьте программу, выводящую на экран таблицу соответствия значений температуры по Цельсию Т_С и значений температуры по Фаренгейту Т_F на отрезке от 15С до 30С с шагом в 1С, если формула перевода температур имеет вид: .

5. Составить программу вычисления суммы первых 20 натуральных чисел

6. Составить программу вычисления суммы натуральных чисел от 15 до 35

7. Составить программу вычисления суммы синусов натуральных чисел от N до M.

8. Составить программу вычисления произведения первых 7 натуральных чисел.

9. Составить программу вычисления произведения логарифмов натуральных чисел от 2 до 18.

10. Составить программу вычисления произведения квадратов косинусов натуральных чисел от N до M.

11. Составить программу вычисления суммы: .

12. Составить программу вычисления суммы: .

13. Составить программу вычисления произведения: .

14. Составить программу вычисления произведения: .

Задание 2. Решение задач по теме