Как написать косинус?

[Makaralex]

Я вот уже запарился,на гуглился и решил создать тему. Я не могу вспомнить как писать правильно косинус при решении. Вот код(в глобальной я ничего не задавал):


procedure TForm1.Button1Click(Sender: TObject);
var p,s,i:integer;
begin
p:=StrToInt(Edit1.Text);
for i := 1 to p do
s:=s+cos(i);
label1.Caption:=IntToStr(s);
end;


вот где косинус мне выдаёт ошибку,что:
[Pascal Error] Unit1.pas(34): E2010 Incompatible types: 'Integer' and 'Extended'

Сильно не ругайтесь,я только первый год учусь,мы недавно начали Delphi, подскажите что я накорявил???

[Alex11223]

s типа real должен быть. integer — это целые числа. О чем и сообщает ошибка.

[Makaralex]

От души! Получилось! Во:


procedure TForm1.Button1Click(Sender: TObject);
var p,i:integer; s:real;
begin
p:=StrToInt(Edit1.Text);
for i := 1 to p do
s:=s+cos(i);
label2.Caption:=FloatToStr(s);
end;