Программа вычисления значения выражения с использованием подпрограмм. Что не так? - 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, которая выполняет следующие действия:
- Создает процедуры
k
иm
, которые принимают два параметра типаreal
и не используют вложенные списки. - Объявляет переменные
y
,n
,x
,t
,r
,b
,c
,p
иz
типаreal
. - Задает начальные значения для переменной
y
в обоих процедурах. - Использует цикл
for
для вычисления значения выражения в процедуреk
и присваивает результат переменнойr
. - Затем использует тот же цикл
for
для вычисления значения выражения в процедуреm
и присваивает результат переменнойz
. - Вычисляет среднее значение
t
путем деления суммыr
иz
на разность суммы коэффициентовb
иp
и вычитания суммы значенийx
иz
из суммы коэффициентовb
иp
. - Выводит значение
t
на экран. - Завершает программу, ожидая ввода от пользователя.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д