| |
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"! |
|