Функция Опции

[Ibmsystem]

Помогите дописать прогу!!
задача такова:
составить программу для вычисления значений F(x)= tg(x/2)+cos(x) на отрезке (а,b) в точках Х[i]=a+h[i]
,где h = (a-b)/m , НЕОБХОДИМО ИСПОЛЬЗОВАТЬ ФУНКЦИЮ ДЛЯ ВЫЧИСЛЕНИЯ ЗНАЧЕНИЙ, ПРОЦЕДУРУ ДЛЯ ВЫВОДА РЕЗУЛЬТАТОВ НА ПЕЧАТЬ.
a,b,h,m(целое) НЕОБХОДИМО ИСПОЛЬЗХОВАТЬ КАК ПЕРЕМЕННЫЕ, но при этом вводить или еще както задавать значения надо а=PI/2, b= Pi, m=20.
вот сопсна чяво надоти
а вот сопсна чаво есть:

program lab;
uses crt;
Func= function (x:Real): Real;
var i,m:integer; x,a,b,h;
begin
readln (a);readln (b);readln (m);
h := (b-a)/m;
x:=a
for i=1 to m do
begin Func= (sin(x/2)/cos(x/2))+cos(x);
writeln (x,Func);
x:=x+h
end;
readln;
end.
главная проблема Invalid nymeric format - короче беда с числом пи
2 пр непойму куда вставить и как написать процедуру вывода результатов, а так же с функцией мне кажеться чет нето.
ЕСЛИ НеВЛОМ непросто напишите а please чуть чуть поясните что да куда.
ХОТЯ Я БУДУ РАД ЛЮБОЙ ПОМОЩИ.

или вот добавляю есчо
еще я подумал и вот
Uses CRT;

type

Func = Function (x: Real) : Real;

Procedure PrintFunc (XPos: Byte; F:Func);

var

x,a,b,h : Real; i,m : Integer;

begin {PrintFunc}

readln (a,b,m);

x:=a;

for i := 1 to m do

begin

F := (sin(x/2)/cos(x/2))+cos(x);

h:=b-a)/m

x := a+h ;

GotoXY (XPos, WhereY) ;

WriteLn (x:5:3, F(x):18:5);

end

end.
Да что нетак?


Сообщение отредактировано: Ibmsystem - 12.04.2008 18:30