Keskustelu: Ohjelmointikysymykset: Pascal: Kuvaajan X-akselille real muuttuja ?

procedure TForm1.Tauluun();
var i: integer;
begin
for i :=0 to ArvojenLKM do
begin
kulmanopeus := (2 * 3.14) / taulukko ;
end;

for i :=0 to ArvojenLKM-1 do
begin
kulmakiihtyvyys := (kulmanopeus[i+1]-kulmanopeus)/taulukko[i+1] ;
end;

for i :=0 to ArvojenLKM do
begin
Momentti := kulmanopeus * 6 * (1/4.2) * 1.315 ;
end;

for i :=0 to ArvojenLKM do
begin
RullaRPM := (kulmanopeus / (2*3.14)) * 60 ;
end;

for i :=0 to ArvojenLKM do
begin
MoottoriRPM := RullaRPM * 4.2 ;
end;

for i :=0 to ArvojenLKM do
begin
Teho := ((Momentti*MoottoriRPM)/10000)/0.736
end;

Label1.Caption := inttostr(arvojenLKM);
Form2.Graph1.Visible := true;

Form2.Graph1.NumPoints := arvojenLKM;

for i:= 0 to arvojenLKM do begin
//graph1.Data[1] := 5;
Form2.Graph1.data[i+1] := teho;
// Memo1.Lines.Add(floattostr(Taulukko));
end;
// Graph1.DataReset;
Form2.Visible := true;
Form2.Graph1.visible := true;
form2.Graph1.Refresh;
form2.Graph1.Repaint;

//Graph1.Repaint;
// Graph1.show;
end;