Составить программу табулирования функции

morlok

Всем привет помогите пожалуйста на паскале составить программу табулирования функции y=1/x+sin(x) на отрезке [-10,-1] с шагом 1.
1 ответ

morlok

uses crt;
var y:real;
x:integer;
begin
for x:=-10 to -1 do
begin
y:=1/x+sin(x);
Writeln('x:= ',x:2,' y:= ',y:2:2);
end
readkey;
end.