PDA

Просмотр полной версии : Таблица значений функции



Хыиуду
12.05.2008, 11:32
Распространеннейшее школьное задание: построить таблицу значений функции F(x) на промежутке от a до b с шагом dx.



var x: real;
function f(x: real): real;
begin
f:=sin(x); {тут вместо синуса вставляется ваша функция, указанная в задании}
end;
begin
x:=a;
while x<=b do
begin
writeln('x=',x,', F(x)=',F(x));
x:=x+dx;
end;
end.

Если даны начало и конец интервала и количество шагов N - в начале программы вычисляется dx=(b-a)/N

atavin-ta
13.02.2009, 11:40
Какова цель поста? Ты этот текст предлаешь исспользовать? Проверить? Я бы переделал так:

type tf=function (x:real):real;
procedure f(a,b,dx:real; p:tf);
var x: real;
begin
x:=a;
while x<=b do
begin
writeln('x=',x,', F(x)=',p(x));
x:=x+dx;
end;
end;