Цитата:
Сообщение от manoichi
6.Разработать алгоритмы и программы решения задач, в которых необходимо при помощи пользовательской функции пользователя протабулировать функцию y=cos(7+x/3) в диапазоне параметра от 0.01 до 0.9 с шагом 0.01.
|
М-да, "пользовательская функция пользователя" - это круто! Ну пожалуйста:
Код:
VAR
x,y:Real;
i,j:Integer;
Function User_Func(Xuf:Real):Real;
begin
User_Func:=Cos(7.0+Xuf/3);
end;
BEGIN
For i:=1 to 6 do
Write(' x y ');
WriteLn;
For i:=1 to 15 do
begin
For j:=1 to 6 do
begin
x:=(i+(j-1)*15)/100;
y:=User_Func(x);
Write(x:4:2,y:6:3,' ');
end;
WriteLn;
end;
ReadLn;
END.