Polygon drehen

[christopher85]

Hallo! Ich habe die selbe Aufgabe, jedoch ein etwas anderes Problem!
der debugger zeigt mir eine fehlermeldung an: die dateitypen seien inkompatibel. ich soll es wohl als integer deklariert haben. jedoch wird der code in extendet gerechnet.

Zitat:

procedure TForm1.Button4Click(Sender: TObject);
begin
w:=spinedit1.value;
for i:=1 to n do
begin
u:=yp[n]*sin(w)+xp[n]+cos(w);
v:=yp[n]+cos(w)-xp[n]+sin(w);

// und zwar will ich in dem oberen programmstück die koorinaten eines Punktes errechnen. dazu nehme ich den winkel aus einer spinedit.

Zitat:

var u,v,y,x,n,i:integer;
w:extended;
xp,yp:array[1..100]of integer;

// meine variablendeklaration sieht dann ungefähr so aus. dachte mir, da ich W vorher als integer deklariert hatte, mach ich daraus extendet. ich kann mir vorstellen, dass nachkommawerte bei der rechnung mit cosinus und sinus rauskommen. aber wie kann ich das in der variablendeklaration ermöglichen?