Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ подпрограмма-функция

Автор: 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- вводятся с клавиатуры

Автор: Catty 2.05.2004 18:42

а тебе обязательно функцию??
по-моему здесь будет удобнее использовать процедуру!!

Автор: 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;