Тригонометрические фишки (pascal,delphi)

[HouK]

В общем есть задача.

Вычислить значение функция = tg (3x) на отрезке [-π /3;π] в точках, отстоящих друг от друга на шаг равный 0,1.

т.к. tg=sin/cos, то tg(3x)=sin(3x)/cos(3x), но делфи ругаеться на такую запись.

Использую 2 циклы, т.к. это задание по лабе в инсте, нада сделать 3 цикла, for,while,repeat и чтобы можно было выбрать 1 из циклов через case, но мне в общем то нужно понять как записывать tg.

Ну и не большой вопросик по задаче нада ли pi выделять константой, или как нить еще его вводить, или он автоматом выставиться в 3.14.........

var
  x,y,c:real;
  i:integer;
begin
  Readln(c);
  X:=pi/3;
  for i:=1 to round(((pi/3)-pi)/c) do
    begin
      y:=(sin(3x))/(cos(3x));
      Writeln(y:7:2)
      X:=x+c;
    end;
  X:=pi/3;
  while x<=pi do
    begin
    Writeln(sin(3x)/cos(3x):7:2);
    X:=x+c;
    end;
end.

Мой пост последний мб не видите

  for i:=1 to round(((pi/3)-pi)/c) do
    begin
      y:=sin(3x)/cos(3x);
      Writeln(y:7:2);
      X:=x+c;
    end;

таже задача только вопрос в другом, он не выводит никаких значений для этого цикла.... так и должно быть в данном примере или нет???

[VilAm]

sin(3*x)/cos(3*x)

[HouK]

Спасибо, а как насчет pi не подскажте?

[Juffin]

pi - функция, возвращает значение числа пи в формате Extended? т.е. просто так и пищи pi/3

[HouK]

  for i:=1 to round(((pi/3)-pi)/c) do
    begin
      y:=sin(3x)/cos(3x);
      Writeln(y:7:2);
      X:=x+c;
    end;

таже задача только вопрос в другом, он не выводит никаких значений для этого цикла.... так и должно быть в данном примере или нет???

[Juffin]

выведите перед началом выполнения цикла:

writeln(round(((pi/3)-pi)/c));

и возможно, все станет ясно

[HouK]

равно -21, и мне пока что ничего не ясно

Кстате при репите он выводит только 0.00

Хотя кажись понял, -21 точка по которой проходит вычисления чтоли???

[ОДИНОЧЕСТВО В СЕТИ]

равно -21, и мне пока что ничего не ясно

ваш цикл

 for i:=1 to round(((pi/3)-pi)/c) do

то есть вычисление по вашему должно идти от 1 до -21 но это ж бред
попробуйте

for i:=1 to round(((pi/3)+pi)/c) do

и будет вам счастье

[HouK]

ну эта единственная формула, которую я знаю для определения точек, в которых нада произвести вычисления. но если взять шаг равный -0.1 как предлогаеться в лабе, чтобы при деление число вышло положительным, цикл не прекрашаеться.

Не пойму в чем же подвох

[ОДИНОЧЕСТВО В СЕТИ]

а вы пост №8 еще раз внимательно прочитайте
да и должно быть

  X:=-pi/3;