Hallo liebe Mitglieder.
Ich habe ein mega großes Problem. Wir sollen bis nächte Woche selbst ein Programm erstellen in Delphi und ich bin eine absolute niete in programmieren.
Könnt ihr mir bitte helfen?
Dies ist meine folgende Aufgabe:
Schreiben Sie ein Programm, das einen einfachen Taschenrechner simuliert. Der Rechner soll mindestens die 4 Grundrechenarten, Wurzelziehen und quadrieren beherrschen, für die eingabe von mausbutton in der gewohnten Anordnung zur Verfügung stehen, die Tasteneingabe soll ebenfalls möglich sein.
und so weit bin ich schon:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject)
begin
close
end
procedure TForm1.Button1Click(Sender: TObject)
var z1, z2, ergebnis : rea
begin
z1:=strtofloat(Edit1.Text)
z2:=strtofloat(Edit2.Text)
ergebnis:=z1+z2
edit3.Text:=floattostr (ergebnis)
end;
procedure TForm1.Button2Click(Sender: TObject)
var z1, z2, ergebnis:real
begin
z1:=strtofloat(Edit1.Text)
z2:=strtofloat(Edit2.Text)
ergebnis:=z1-z2;
edit3.Text:=floattostr (ergebnis)
end;
procedure TForm1.Button3Click(Sender: TObject)
var z1, z2, ergebnis :real
begin
z1:=strtofloat(Edit1.Text)
z2:=strtofloat(Edit2.Text)
ergebnis:=z1*z2;
edit3.Text:=floattostr (ergebnis)
end;
procedure TForm1.Button4Click(Sender: TObject)
var z1,z2, ergebnis:real
begin
z1:=strtofloat(Edit1.Text)
z2:=strtofloat(Edit2.Text)
ergebnis:=z1/z2;
edit3.Text:=floattostr (ergebnis);
end;
end.
was muss ich schreiben wenn ich wurzel und quadrien machen möchte? und dass wenn ich im edit 1 meine zahlen eingebe, soll das automatisch zu edit 2 wechseln... wie geht das? was muss ich schreiben? bitte helft mir.würde euch sehr dankbar sein.
Danke , Lucy
[edit=Phoenix]Delphi-Tags eingefügt. Bitte mal anschauen und das nächste mal selber richtig machen. Mfg, Phoenix[/edit]