Hallo, ich bin neu hier im Forum und programmiere so ein bisschen nebenbei in FreePascal.
Jetzt habe ich es geschafft ein Rechenprogramm zu erstellen, das alle 4 Grundrechungsarten beherrscht, mit einer CASE ... OF Verknüpfung. Nun habe ich mir vorgenommen eine fußgesteuerte Schleife einzubauen, komme aber leider nicht weiter. Wäre nett
wenn mir bitte irgendwer weiterhelfen könnte, danke
weil ich bin echt bald am verwzeifeln
.
Das habe ich bereits programmiert:
Delphi-Quellcode:
program fussschleife;
uses crt;
var name:string;
Zahl1,Zahl2,summe,diff,prod,ergebnis:longint;
quo:real;
auswahl:char;
begin
clrscr;
writeln('Hallo, lieber Benutzer, bitte gib deinen Vornamen ein');
readln(name);
writeln('Herzlich willkommen, lieber ',name,'!');
writeln('dieses Programm beherrscht alle 4 Grundrechnungsarten!');
writeln('Für Addition A drücken, für Subtrakion S drücken, für Multiplikation M drücken und für Division D drücken!');
readln(auswahl);
auswahl:=UPCASE(auswahl);
IF (auswahl='A') OR (auswahl='S') OR (auswahl='M') OR (auswahl='D')
THEN
begin
writeln('Bitte gib die erste Zahl ein!');
readln(Zahl1);
writeln('Bitte gib jezt die zweite Zahl ein!');
readln(Zahl2);
CASE auswahl OF
'A':begin
summe=:Zahl1+Zahl2;
writeln('Die sUmme beträgt ',summe,'!');
'S':begin
diff=:Zahl1-Zahl2;
writeln('Die Differenz beträgt ',diff,'!');
'M':begin
prod=:Zahl1*Zahl2;
writeln('Das Produkt beträgt ',prod,'!');
'D':begin
quo=:Zahl1/Zahl2;
writeln('Der Quotient beträgt ',quo:10:2,'!');
end;
end;
end
ELSE
writeln('Falsche Eingabe! Programmabbruch!');
readln;
end.
So weit, so gut.
Ich bin echt am verzweifeln. Wo kann ich hier bitte die fussschleife einbauen. Wäre nett, wenn mir das bitte jemand sagen könnte, wie und wohin die fusschleife da reingehört
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]