Unter Erstellen - Kommandos zum Erstellen Konfigurieren
Hier wird auf FreePascal zurückgegriffen.
{$B+} {$R+}
program Hallo (input, output); { Begrüßt die Leute }
const E=2;
var pi: real; tier: string;
BEGIN writeln('Hallo Leute'); writeln(maxint); pi:= 3.14159; writeln(pi); writeln(5 mod E); tier:= 'Baer'; writeln(tier); END.
program temperatur (input, output); {$B+} {$R+}
var c:real; f:real;
BEGIN write( 'Temperatur in Fahrenheit: '); readln(f); c:= (5 * (f-32) ) /9; write('Temperatur in Celsius: '); writeln(c:2:1); END.
{$B+} {$R+}
program aufg5 (input, output);
type teingabe= 1..99; var c50, c20, c10, c5, c2, c1: integer; eingabe: teingabe;
BEGIN write('Betrag eingeben: '); readln(eingabe); c50:= eingabe div 50; eingabe:= eingabe mod 50; c20:= eingabe div 20; eingabe:= eingabe mod 20; c10:= eingabe div 10; eingabe:= eingabe mod 10; c5:= eingabe div 5; eingabe:= eingabe mod 5; c2:= eingabe div 2; eingabe:= eingabe mod 2; c1:= eingabe; writeln('Ausgabe: ', c50, ' ', c20, ' ', c10, ' ', c5, ' ',c2, ' ',c1); END.