Ф-ия y=sinx

[ElenaO]

Всем добрый день.Прошу Вас помочь написать программу в Паскале по заданному условию: Yi=sin(A+X), где Xi+X при i=1,10 Xi=0.1 и Х=0.11
Заранее большое спасибо!

[_-Re@l-_]

Прошу Вас помочь

В таковом случае, где ваши наработки? Ежели таковых нет - Фриланс

[ElenaO]

Сообщение от _-Re@l-_

В таковом случае, где ваши наработки? Ежели таковых нет - Фриланс

вот они

Program zad13;
Uses
crt;
Var x,y,xi,A, dx:real;
I:integer;
Begin
clrscr;
Write('xi=');
Readln(xi);
Write('x=');
Readln(x);
Write('I=');
Readln(I);
Write('A=');
Readln(A);
x:=xi;
dx:=(x-xi)/(I-1);
For I:=1 to 2 do
begin
y:=sin(A+x);
Writeln('y=' , y);
x:=x+dx;
end;
end.

но она до конца не считает почему то