Hallo Leute Kennt sich jemand mit Pascal aus? ich wollte ein kleines Programm schreiben, habe aber einige fehler gemacht, weiß aber nicht welche, könnt ihr mir helfen?
Hier der Quellcode:
PROGRAM Vartest;
USES crt;
CONST Drei=3;
Elfkommadrei=11.3;
VAR Eingabezahl,Ganz1,Ganz2 : Integer;
Quotient : Real;
Name : String;
PROCEDURE NamenEingeben;
BEGIN
Write ('Geben Sie Ihren Namen ein:');
Readln (Eingabezahl);
END;
PROCEDURE EineZahlEingeben;
BEGIN
Write ('Geben sie eine ganze Zahl ein: ');
Readln (Eingabezahl);
END;
PROCEDURE Rechnen;
BEGIN
Summe:=Ganz1+Ganz2;
IF Ganz2<>0 THEN Quotient:=Ganz1 / Ganz2
ELSE BEGIN
Writeln ('Division durch Null nicht erlaubt');
Writeln ('Ergebnis wird auf Null gesetzt');
Quotient:=0;
END;
BEGIN
Writeln ('Lieber ',Name);
Writeln (Die Konstanten dieses Programmes sind');
Writeln (Drei, ' und ', Elfkommadrei);
Writeln;
Writeln ('Die Summe ist: ');
Writeln (Ganz1:5,'+',Ganz2:5,'=',Summe:5);
Writeln ('Und wenn ein Quotient existiert, ist er:');
Writeln (Ganz1:5,'/',Ganz2:5,'=',Quotient:8:4);
END;
BEGIN
ClrScr;
Writeln ('Dies ist ein Testprogramm:');
Writeln;
NamenEingeben;
EineZahlEingeben;
Ganz1:=Eingabezahl;
EineZahlEingeben;
Ganz2:=Eingabezahl;
Rechnen;
AllesAusgeben;
Readln;
END.
Was habe ich denn Falsch gemacht? Vielen Dank für die Hilfe!
MFG, Majuran
Zitieren
