Программа вычисления значения выражения с использованием подпрограмм. Что не так? - Pascal ABC

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

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

Для организации вычислений по заданной формуле составить программу с использованием функции или подпрограммы.Для этого в фомуле выявить вычисления,подобные по своей схеме,т.е. различающиеся только объектами операций t=(1/x+1/x2+1/x3+1/x4+1/x5+1/x6+p)/(2b-c-c2-c3-c4-c5-20).

Решение задачи: «Программа вычисления значения выражения с использованием подпрограмм. Что не так?»

textual
Листинг программы
procedure k(var y:real; x:real);
var n: integer;
begin
  y := 0;
  for n := 1 to 6 do y := y + 1 / (exp(n * ln(x)))
end;
 
procedure m(var y: real; x:real);
var n: integer;
begin
  y := 0;
  for n := 1 to 5 do y := y + exp(n * ln(x))
end;
 
var p, b, c, x, t, r, z: real;
begin
  writeln('Введите x, p, b, c');
  readln(x, p, b, c);
  k(r, x);
  m(z, c);
  t := (r + p) / (2 * b - z - 20);
  writeln('t = ', t);
  readln
end.

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

Код представляет собой программу на языке Pascal ABC, которая выполняет следующие действия:

  1. Создает процедуры k и m, которые принимают два параметра типа real и не используют вложенные списки.
  2. Объявляет переменные y, n, x, t, r, b, c, p и z типа real.
  3. Задает начальные значения для переменной y в обоих процедурах.
  4. Использует цикл for для вычисления значения выражения в процедуре k и присваивает результат переменной r.
  5. Затем использует тот же цикл for для вычисления значения выражения в процедуре m и присваивает результат переменной z.
  6. Вычисляет среднее значение t путем деления суммы r и z на разность суммы коэффициентов b и p и вычитания суммы значений x и z из суммы коэффициентов b и p.
  7. Выводит значение t на экран.
  8. Завершает программу, ожидая ввода от пользователя.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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