huhu,
hm hab nen programm, wo ich die Dehung in m und die Energie in nm in eine Tablle schreiben lasse...
aber ich habe in der Zelle 0m den wert drin, der eigendlich bei der zelle mit 1m stehen müsste...
aknn mir da wer fix nen tipp geben, wie ich das ändern kann, sodass das passt?
hab die files mal hochgeladen... einfach ma die exe starten und dann seht ihr das denk ich mal
danke schonmal für jede hilfe
hier der link zur
dpr und exe und co
klick
hier der quelltext:
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
with Stringgrid1 Do begin
Cells[0,0]:='Dehnung in m';
Cells[1,0]:='Energie in Nm';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
D,dehnung,Epot,intervall:real;
i,code:integer;
begin
VAL (form1.Edit1.Text,D,code);
VAL (form1.Edit2.Text,dehnung,code);
VAL (form1.Edit3.Text,intervall,code);
with stringgrid1 do begin
rowcount:=round(dehnung/intervall);
dehnung:=0;
for i:=1 to rowcount -1 do begin
cells[0,i]:=floattostr(dehnung);
dehnung:=dehnung+intervall;
Epot:=(1/2*D)*sqr(dehnung);
cells[1,i]:=floattostr(Epot);
end;
end;
end;