Danke für euee Antworten, und
@Peter; Tut mir Leid, kenne mich noch nicht so gut aus :/!! Aber ich werde es mir merken!! Und deine Antwort hat mir auch geholfen, ich wollte nur mal sehen, was andere zu dem Thema sagen. Ich kann das jetzt auch nicht ausprobieren, da Delphi muckt.
Schreib mir jetzt was dazu auf und muss es dann in der Schule versuchen
!!! Und wenn es dann nicht gleich funktioniert hab ich wohl ein großes Problem, deswegen wollte ich in dem anderen
FORUM fragen, da dort vielleicht jemand das ganze Programm für mich hat, damit ich gar keine Fehler mehr machen kann.
Aber ich hab ja auch dieses hier:
Delphi-Quellcode:
var
Form1: TForm1;
anzahl,code,i,y:integer;
p,piv:extended;
r:string;
test:boolean;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
val(edit1.text,anzahl,code);
piv:=0;
y:=1;
test:=true;
for i :=1 to anzahl do
begin
if test=true then
begin
piv:=piv+(1/y);
test:=false;
end
else
begin
piv:=piv-(1/y);
test:=true;
end;
y:=y+2;
end ;
p:=piv*4;
str(p:1:15,r);
edit2.text:=r;
end;
end.
Wenn es nicht anders geht, nehm ich das, auch wenn es nicht ganz den Vorstellungen unseres Lehrers entspricht!!!
[edit=thomasdrewermann]DELPHITAGS ergänzt. Mfg, thomasdrewermann[/edit]