Question

Написать программу для нахождения суммы S=1+1/2+1/3+...+1/n. (с while)
Составить блок-схему алгоритма к этой программе и трассировочную таблицу.

Answer 1

Трассировка
№         Команда\Условие        FCounter  FQuant  FSum
1)              Инициализация                -               -           0
2)              Ввод данных                    -               4          0
3)              Проверка ввода              -               4          0
4)              Цикл от 1 до FQuant        1               4          0
4.1)             FSum := FSum + 1/1          1               4          1
4.2)            FSum := FSum + 1/2         2              4          1.5
4.3)            FSum := FSum + 1/3         3               4          1.83333
4.4)            FSum :   FSum + 1/4         4               4          2.08333
5)               Вывод   данных              4               4          2.08333
6)               Конец