bestscooter
2.05.2004 18:03
Пожалуйста помогите написать подпрограмму-функцию, решающую следующую задачу:
выведите таблицу значений функции y=f(x). Таблица должна иметь две колонки: в первую заносятся значения xi, а во второю – yi.
f(x)=cos sqrt(2x), xi=a+((b-a)/n)*i; i=0,1,2.....n; n,a,b- вводятся с клавиатуры
а тебе обязательно функцию??
по-моему здесь будет удобнее использовать процедуру!!
BlackShadow
19.05.2004 15:48
Если не поздо ещё...
Код
Function f(x:Double):Double;
Begin
f:=Cos(Sqrt(2*x))
End;
Var
a,b,x:Double;
i,n:Integer;
Begin
Write('Enter a: ');
ReadLn(a);
Write('Enter b: ');
ReadLn(b);
Write('Enter n: ');
ReadLn(n);
For i:=0 To n Do
Begin
Write(x:5:5);
Write('|');
WriteLn(f(x):5:5)
End
End.
x:=a+((b-a)/n)*i;