Разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов - Pascal (81619)

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

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

Разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. Результаты вывести на экран дисплея. Написал код, но чуйка внутри подсказывает что не так как надо. Будьте добры, проверьте и поправьте пожалуйста)

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

textual
Листинг программы
Program BATISTA;
var z, a, b, c : real;
n : integer;
 
begin
a:=2;
while a<=8 do
if a<4 then
for n:=1 to 10 do
z:=a*a/(power(a,n)-5);
if a>=4 then
begin
b:=(a+1)/a;
for n:=1 to 8 do
c:=(a-1)/n;
z:=b*c;
writeln(' | ', a, ' | ', z, ' |');
a:=a+0.5;
end;
end.

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

  1. Объявлены переменные z, a, b, c типа real и переменная n типа integer.
  2. Переменная a инициализируется значением 2.
  3. Запускается цикл while, который выполняется до тех пор, пока значение переменной a не станет больше или равным 8.
  4. Внутри цикла if выполняется проверка, является ли значение переменной a меньше 4.
  5. Если условие истинно, то выполняется вложенный цикл for, который выполняет вычисления для каждого значения переменной n от 1 до 10.
  6. В противном случае выполняется блок begin, который содержит вычисления для значения переменной a больше или равном 4.
  7. Внутри блока begin инициализируется переменная b как (a+1)/a.
  8. Затем выполняется вложенный цикл for, который выполняет вычисления для каждого значения переменной n от 1 до 8.
  9. После этого переменной z присваивается значение (b*c).
  10. Выводится сообщение с значениями переменных a и z.
  11. Значение переменной a увеличивается на 0,5.
  12. Цикл while повторяется до тех пор, пока значение переменной a не станет больше или равным 8.

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

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