Помощь - Поиск - Пользователи - Календарь
Полная версия: подпрограмма-функция
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
bestscooter
Пожалуйста помогите написать подпрограмму-функцию, решающую следующую задачу:

выведите таблицу значений функции 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
а тебе обязательно функцию??
по-моему здесь будет удобнее использовать процедуру!!
BlackShadow
Если не поздо ещё...
Код

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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.