Вывести на экран все значения функции y=sinX

на промежутке от - 1 до 1 с шагом 0,1.

паскаль

Var i:longint;

a:real;

begin

for i:=1 to 10 do / / for нельзя делать по дробным числам, поэтому будем в цикле делить на 10

begin

a:=i; / / integer это целочисленный тип, поэтому присваиваем его значение к переменной типа real

write (sin (a/10),' ') ; / / синус от положительного

write (sin (- (a/10)),' ') ; / / синус от отритцательного

end;

end.