|
Schuljahr 2001/2002
Schule online
Informatik 5A Jahresplan
Informatik 4B/4C Jahrespl.
Informatik Lernen 5A
Informat. Lernen 4B/4C
Deutsch 5A
Deutsch 1A
Mathematik 4BR
Mathematik 1A
Inhaltsverzeichnis
Home
|
|
LE 13 |
Pascal |
|
|
|
|
|
Was macht das folgende Programm?
|
|
PROGRAM test; |
VAR name,strasse,geschlecht:string; |
BEGIN |
writeln ('Hallo'); |
writeln ('Wie heißt du?') |
readln (name); |
writeln ('Bist du männlich oder weiblich? m/w'); |
readln (geschlecht); |
IF geschlecht=('w') |
THEN Begin |
writeln ('Hallo liebe ',name); |
END |
ELSE Begin |
writeln ('Hallo lieber ',name) |
END |
End. |
|
Zahlen |
In Pascal werden alle Zahlen in Gleitkommadarstellung ausgegeben.
Beispiel: Zahl 10 wird in Pascal als 1.0000000000E+01 ausgegeben.
Um das zu vermeiden, muss man dem Programm sagen, wie es die Zahlen darstellen soll.
Beispiel: radius:6:2 bedeutet, der Radius wird mit insgesamt 6 Stellen
angeschrieben, wobei es 2 Nachkommastellen gibt!
|
|
Was macht das folgende Programm? |
|
PROGRAM kreis; |
CONST pi=3.1415926; |
VAR radius,umfang,flaeche:real; |
BEGIN |
writeln ('Ich kann den Umfang und Flächeninhalt eines Kreises berechnen.'); |
writeln ('Bitte einen Radius!'); |
readln (radius); |
flaeche:=sqr(radius)*pi; |
umfang:=2*radius*pi; |
writeln ('Die Fläche des Kreises mit Radius ',radius:6:2, ' beträgt ',flaeche:6:2, 'Quadratzentimeter!'); |
writeln ('Der Umfang des Kreises mit Radius ',radius:6:2, ' beträgt ', umfang:6:2, '!'); |
End. |
|
Übung |
Schreib ein Programm, das für den Benutzer Volumen (V = r_oh) und Oberfläche (O=2roh + 2r_o) eines Zylinders berechnet. Das Programm soll den Benutzer fragen, ob er das Volumen oder die Oberfläche wissen will. Dazu verwende "IF - THEN - ELSE"! |
|