Составить программу для вычисления и печати таблицы

[A`ljh]

Составить программу для вычисления и печати таблицы значений функции y=x*sin(5*x+1) на отрезке [0;1] с шагом 0,1.
У меня есть примерное решение. Но проблема с 8 строкой. Точно не то, а как верно стоит сделать, я не понимаю. Не подскажите?

var 
 x, y: real;
begin
 x :=0;
 writeln(' x y ');
 while x <=1 do begin
    y := x*(sin(5*x+1));
    writeln(x:2:1,' | ',y:3:4);
    x := x + 0.1;
 end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

не вижу в 8-й строке никаких принципиальных косяков.
что не устраивает то?

[A`ljh]

Да, значения выводятся.
Но если высчитать просто на калькуляторе, то, допустим, если х=0,1, у совсем иной
Инженерный калькулятор выдает для х=0,1, у=0,10261769 (это учитывая шаг 0,1)

[ura_111]

может быть в радианы угол перевести?
я забыл как точно переводится (уточни), что-то вроде такого:

3.14*х/180

попробуй просто вывести sin(90), sin (180), sin(0) - что выведит программа

[ura_111]

Или, наоборот, в углы?

[ura_111]

Проанализируй:

0 (3).jpg

[Serge_Bliznykov]

Сообщение от A`ljh

Но если высчитать просто на калькуляторе, то, допустим, если х=0,1, у совсем иной

тригонометрические функции sin(), cos() в Паскаль (и не только в Паскаль, кстати) принимают входной аргумент в РАДИАНАХ.
(в калькуляторе можно выбрать градусы/радианы/грады - поставьте радианы и пересчитайте пример)
Если ничего в условии задачи не сказано, то оставляйте как есть.
При желании/необходимости можно перевести углы в радианы, но, имхо, в данной задаче это не нужно.

[newerow1989]

y := x*(sin(5*x*pi/180+1));

или

y := x*(sin((5*x+1)*pi/180));