Написать программу для вычисления заданного выражения - Turbo Pascal

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

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

Добрый вечер всем! Помогите, пожалуйста, первокурснице-студентке) Идет такое задание: Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор While: - 0,13+ 0,16 -0,19+…-0,31 Написала так, но ответ неверный( Когда считаешь вручную ответ идет -0,22, а по программе просто 0,22. Подскажите, пожалуйста, в чем моя ошибка.
Очень благодарна за ответы!)

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

textual
Листинг программы
uses crt;
var v,a,sum: real;
    i:byte;
begin
clrscr;
a:=0.13;
sum:=0;
i:=0;
while a<0.32 do //+0.01 чтобы точно вошло 0.31
 begin
  i:=i+1;
  if odd(i) then sum:=sum-a
  else sum:=sum+a;
  a:=a+0.03;
end;
writeln ('S=', sum:4:2);
readln;
end.

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

  1. В начале кода используется директива uses, которая указывает на использование функций и библиотек из стандартной библиотеки языка Turbo Pascal.
  2. Затем объявляются переменные v, a и sum, которые представляют собой числа с плавающей точкой (real).
  3. Также объявляется переменная i, которая представляет собой байтовый тип данных.
  4. Функция clrscr используется для очистки экрана перед началом работы программы.
  5. Переменная a инициализируется значением 0.13.
  6. Переменная sum инициализируется значением 0.
  7. Переменная i инициализируется значением 0.
  8. Запускается цикл while, который будет выполняться до тех пор, пока значение переменной a меньше 0.32.
  9. Внутри цикла переменная i увеличивается на 1.
  10. Если i является нечетным числом, то значение переменной sum уменьшается на значение переменной a.
  11. Если i является четным числом, то значение переменной sum увеличивается на значение переменной a.
  12. Значение переменной a увеличивается на 0.03.
  13. После завершения цикла while выводится строка S=, за которой следует значение переменной sum в формате с четырьмя знаками после запятой и двумя знаками до запятой.
  14. Вызывается функция readln, чтобы прочитать введенные пользователем данные и завершить выполнение программы.

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

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