Вычислить значение функции COX(X) с точностью ЕПСЕЛА=10^(-4), x изменяется от минус p до p с шагом p/8. Вычисление у оформить как функцию, результаты вывести в виде таблицы

Категория: Delphi/Pascal
2012-01-25 23:20:54

В работе использовать рекуррентный алгоритм вычисления бесконечных сумм.

code: #pascal
Program PascalGuru;
const PI=3.1436; {значение ПИ}
 
var x:real; {переменная икса}
 
begin
x:=-PI; {иксу присваиваем МИНУС ПИ}
while (x<3.1437) do {пока X миньше ПИ}
 begin
 writeln('x= ',x:7:4,' | y=',cos(x):7:4 ); {выводим текущий результат}
 
 x:=x+(PI/8); {увеличиваем счётчик цикла}
 end;
 
readln;
end.
Поделиться:

Похожие статьи:

теги: студенты, косинус, бесконечность, рекурентность