Einführung in die imperative Programmierung

WS 2016/17

Geany-Einstellungen

Unter Erstellen - Kommandos zum Erstellen Konfigurieren

Hier wird auf FreePascal zurückgegriffen.

Hallo

{$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.

Aufgabe 4

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.
 

Aufgabe 5

{$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.