Циклические вычислительные процессы. Задача табулирования.

[Галина-90]

Пожалуйста помогите написать программу в паскале!!!!
Постановка задачи
Необходимо решить на ЭВМ задачу вычисления N значений функции y = f(x) для ряда равноотстоящих значений аргумента x, начиная от значения x = xнач вплоть до значения x = xкон. Функция y = f(x) зависит от параметра a. Результаты вычислений следует оформить в виде таблицы, снабженной заголовком.
Задание
Вид функции y = 1,5cos^4*(a+x)/(2a^2+2x^2) и рабочий набор исходных данных n=10; a=1,5; x(нач)=1; х(кон)=4

[Mad_Cat]

var xn,a:real
function y(x,a1:real):real;
begin
y:=1.5*sqr(sqr(a1+x))/(2*sqr(a1)+2*sqr(x));
end;
begin
a:=1.5;
xn:=1;
for i:=1 to 10 do begin
writeln(xn:6:3,y(xn,a):6:3);
xn:=xn+3/10;
end;
readln;
end.

[Stilet]

Mad_Cat

А вдруг на Small Talk нужно решать?

[Mad_Cat]

Пожалуйста помогите написать программу в паскале!!!!

вот так вроде написано

[Stilet]

Ага. в таком случае переношу в положенную ветку. (и как я это сразу не заметил...)