Permalink
Browse files

Kopfkommentare

  • Loading branch information...
1 parent 61c8835 commit b2184aa49e07a72149896c8da93cc49131816010 @ceemos committed Nov 10, 2011
Showing with 28 additions and 20 deletions.
  1. +7 −7 coinproblem.adb
  2. +1 −1 fakultaet.adb
  3. +3 −3 for_schleifen.adb
  4. +15 −7 omega_rekursion.adb
  5. +2 −2 weihnachten.adb
View
@@ -19,15 +19,11 @@ procedure coinproblem is
optimal : Natural;
begin
Put_Line ("Wert?");
- Get(wert);
+ Get (wert);
elfer := wert / 11;
- rest := wert mod 11;
- siebner := rest / 7;
- rest := rest mod 7;
- einer := rest;
- optimal := einer + siebner + elfer;
+ optimal := Integer'Last;
for e in 0 .. elfer loop
rest := wert - e * 11;
@@ -39,7 +35,11 @@ begin
end if;
end loop;
- Put_Line (Integer'Image(optimal));
+ Put_Line (Integer'Image (optimal));
+
+ exception
+ when Constraint_Error =>
+ Put ("Zahl ausserhalb des zulaessigen Bereiches");
end coinproblem;
-- kate: indent-width 3; indent-mode normal; dynamic-word-wrap on;
View
@@ -5,7 +5,7 @@
-- Datum: 25. 10. 2011
-- Autoren: Marcel Schneider
-----------------------------------------------------------------------
-
+-- Compile: gnatmake -gnatp fakultaet.adb
-----------------------------------------------------------------------
-- Erlaeuterungen:
-- - das Programm berechnet nur Werte bis 12! richtig.
View
@@ -1,6 +1,6 @@
-----------------------------------------------------------------------
--- for_schleifen.adb
--- PSE Aufgabenblatt 2
+-- Datei: for_schleifen.adb
+-- Projekt: PSE Aufgabenblatt 2
-- Version: 1
-- Datum: 30. 10. 2011
-- Autoren: Marcel Schneider
@@ -107,4 +107,4 @@ begin
end for_schleifen;
-- kate: indent-width 3; indent-mode normal; dynamic-word-wrap on;
--- Kate: line-numbers on; space-indent on; mixed-indent off
+-- kate: line-numbers on; space-indent on; mixed-indent off
View
@@ -1,10 +1,18 @@
------------------------------------------------------------------------
--- omega_rekursion.adb
--- PSE Blatt 3
--- Version: 1
--- Datum: 05. 11. 2011
--- Autoren: Marcel Schneider
------------------------------------------------------------------------
+-- FILE: omega_rekursion.adb
+--
+-- PROJECT: Programmieruebungen , Uebungsblatt 3
+-- VERSION: 2
+-- DATE: 10. 11, 2011
+-- AUTHOR: Marcel Schneider
+--
+-------------------------------------------------------------------------------
+--
+-- <PROCEDURE> omega_rekursion
+--
+-- Diese Prozedur berechnet mit Hilfe einer rekursiven Funktion eine
+-- vorgegebene math. Funktion.
+--
+
with Ada.Text_IO;
use Ada.Text_IO;
View
@@ -1,6 +1,6 @@
-----------------------------------------------------------------------
--- weihnachten.adb
--- PSE Aufgabenblatt 2
+-- Datei: weihnachten.adb
+-- Projekt: PSE Aufgabenblatt 2
-- Version: 2
-- Datum: 30. 10. 2011
-- Autoren: Marcel Schneider

0 comments on commit b2184aa

Please sign in to comment.