okay, danke funktioniert!
Nun muss ich eine Forschleife gestalten in Zweier Schritten:
w/2
w/4
w/6
.
.
.
w/16
wie kann das mit doppelter FOR Schleife gehen dass ich nur 2er schritte verwende? soweit bis jetzt!
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var w:real;
var h,i:byte;
var a:real;
begin
w:=StrToFloat(Edit1.Text);
for h:=2 to 16 do begin
for i:=0 to 2 do begin
h:=h+i;
end;
a:= w/h;
RE1.Lines.Add(FloatToStr(a));
end;
end;
lg