Einen schönen 2. Advent panic220,
Du hast vergessen Begin und end zu nutzen. Ohne diese beiden Schlüsselwörter wird nur die erste Zeile nach dem then ausgeführt.
Als zweites fällt auf, dass Du eine Eingabe in "auswahl1" speicherst aber "auswahl2" abfragst. Dies muss angepasst werden.
Da Auswahl1 aus readln() kommt nehme ich an, dass es eine Textvariable ist.
Diese muss noch in auswahl2 übertragen werden.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
| program Project1;
{$APPTYPE CONSOLE}
var auswahl1,wert1, wert2, ergebnis :integer;
CONST PI=3;
begin
Writeln ('Test');
readln (auswahl1);
begin
auswahl2:=strtoint(auswahl1)
if auswahl2 = 1 then
begin
writeln ('Sie haben sich fuer die Oberflaeche entschieden ');
writeln ('Bitte geben sie die folgenden geometrichen Variablen an ');
write ('Radius (r): ');
readln (wert1);
write ('Koerperhoehe (h): ');
readln (wert2);
ergebnis := (wert1*wert1*PI)*(2*wert1*PI)*wert2;
writeln ('Die Oberflaeche des Zylinders betraegt: ',ergebnis);
end;
if auswahl2 = 2 then
begin
writeln ('Sie haben sich fuer das Volumen entschieden ');
writeln ('Bitte geben sie die folgenden geometrichen Variablen an ');
write ('Radius (r): ');
readln (wert1);
write ('Koerperhoehe (h): ');
readln (wert2);
ergebnis := (wert1*wert1*PI)* wert2;
writeln ('Das Volumen des Zylinders betraegt: ',ergebnis);
end;
end;
readln;
end. |
MFG Tilo
Martok
