Составьте программу вычисления значения функции по формуле y=-3sin x. для которой...

Question

Составьте программу вычисления значения функции по формуле y=-3sin x. для которой значение аргумента x введите с клавиатуры. Отладьте программу на следующем примере: x=5, y=2, 87677

Answer 1

Var x,y: real; 
 begin 
write('Введите x: '); 
readln(x); 
 y:=-3*sin(x); 
 writeln('y = ',y);
end.