Написать алгоритм, составить блок-схему и отладить программу для определения суммы - Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите, пожалуйста решить задачу. Нужно написать алгоритм, составить блок-схему и отладить программу для определения суммы (произведения). помогите пожалуйста.

Решение задачи: «Написать алгоритм, составить блок-схему и отладить программу для определения суммы»

textual
Листинг программы
const
    EPS = 0.0001;
var
    s, si: Extended; //Double, Real
    a: Single;
    i, n: LongWord;
begin
    Write('Input n(>0): '); ReadLn(n);
    if (n <> 0)
    then
    begin
        Write('Input a: '); ReadLn(a);
        if (Abs(a) > EPS)
        then
        begin
            s := 0; si := 1;
            for i := 0 to n do
            begin
                s := s + si;
                si := si / a;
            end;
            WriteLn('S=', s:0:4);
        end
        else
            WriteLn('ERROR! Division by zero!');
    end
    else
        WriteLn('S=', 1);           
end.

Объяснение кода листинга программы

  1. Объявляется константа EPS со значением 0.0001 для указания точности вычислений.
  2. Объявляются переменные:
    • s типа Extended для хранения суммы (Double, Real);
    • si типа Extended для хранения вспомогательной суммы (Double, Real);
    • a типа Single для ввода значения с клавиатуры;
    • i типа LongWord для использования в цикле;
    • n типа LongWord для хранения введенного значения n.
  3. Пользователю выводится приглашение Input n(>0): для ввода значения n через стандартный ввод.
  4. Проверяется условие, что n не равно нулю.
  5. В случае выполнения предыдущего условия, пользователю выводится приглашение Input a: для ввода значения a через стандартный ввод.
  6. Проверяется условие, что абсолютное значение a больше EPS (установленная точность).
  7. При выполнении предыдущего условия устанавливаются начальные значения переменных: s устанавливается в 0, si устанавливается в 1.
  8. Запускается цикл от 0 до n.
    • На каждой итерации происходит увеличение значения s на si.
    • si делится на a.
  9. Выводится результат суммы S с точностью до 4 знаков после запятой.
  10. Если значение a не удовлетворяет условию из пункта 6, выводится сообщение об ошибке деления на ноль.
  11. Если введенное значение n равно 0, выводится сообщение S=1.

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы