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

[HouK]

упс кажись понял.
вот эту запись

X:=x+c;

изменить на

X:=x+(-c);

покрайне мере теперь есть конечное число и не очень большое

П.С.: из поста №8 понял что нада -21 превратить в 21.

хм, ваш вариант смотриться лучше чем мои скудные мозги

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

чего тупим то ? вставь полностью вот этот код и запусти! свой код удали к чертям

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(3*x)/cos(3*x);
      Writeln(y:7:2);
      X:=x+c;
    end;
readln;
end.

[HouK]

Спасибо и то ли вопрос то ли еще чето

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(3*x)/cos(3*x);
      Writeln(y:7:2);
      X:=x+c;
    end;
readln;
end.

этот вариант выводит больше чисел чем этот

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(3*x)/cos(3*x);
      Writeln(y:7:2);
      X:=x+c;
    end;
readln;
end.

и сильно ли это критично вообще???

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

а вы интервалы сравните! во 2 случае он в 3 раза меньше
1 вариант - верный!
2 - неверный!
почему? читаем условие

[HouK]

Все въехал, сори за мой тупизм, просто я сюда условия кинул из исходников, а сам смотрел на условия которые скопировал в делфи, тама он вместо pi вписал знаки вопроса ну и я отредактировал, и случайно стер минус в [-pi/3: pi] получилось [pi/3: pi], поэтому я не сразу въехал что вы имели ввиду када сказали поставить x:=-pi/3
Вот и за формулу спасибо....