Программа вычисления функции при заданных значениях - Pascal ABC
Формулировка задачи:
Помогите составить программу вычисления функции при заданных значениях аргументов. Или хотя бы каким алгоритмом руководствоваться при написание?
Решение задачи: «Программа вычисления функции при заданных значениях»
textual
Листинг программы
var k,n:byte;
x,p1,p2:real;
begin
x:=-0.5;
while x<=4.5 do
begin
p1:=1;
for k:=0 to 8 do
begin
p2:=1;
for n:=1 to 5 do
p2:=p2*(k+sin(x)/n);
p1:=p1*p2;
end;
writeln('x=',x:5:1,' y=',p1);
x:=x+1;
end;
end.
Объяснение кода листинга программы
- Объявляются переменные k, n, x, p1, p2 типа byte, real соответственно.
- Значение переменной x устанавливается равным -0.5.
- Задается диапазон значений переменной x от -0.5 до 4.5.
- В цикле while выполняется итерация по значениям переменной x в указанном диапазоне.
- Внутри цикла while объявляются переменные p1, p2 типа real.
- Значение переменной p1 устанавливается равным 1.
- Значение переменной p2 устанавливается равным 1.
- Задается диапазон значений переменной n от 1 до 5.
- Запускается вложенный цикл for для переменной k от 0 до 8.
- Внутри вложенного цикла for значение переменной p2 устанавливается равным 1.
- Запускается еще один вложенный цикл for для переменной n от 1 до 5.
- Внутри этого цикла значение переменной p2 устанавливается равным произведению p2 и (k+sin(x)/n).
- Значение переменной p1 устанавливается равным произведению p1 и p2.
- Вложенные циклы завершаются.
- Значение переменной p2 устанавливается равным 1.
- Значение переменной p1 устанавливается равным 1.
- Выводится на экран значение переменной x, равное -0.5, и значение переменной p1, равное 1.
- Значение переменной x увеличивается на единицу.
- Цикл while завершается.
- Программа завершается.