-- FILE: calculator.adb -- -- PROJECT: Programmieruebungen, Aufgabe 1.4 -- VERSION: $Revision: 483 $ -- DATE: $Date: 2007-08-13 18:09:51 +0200 (Mon, 13 Aug 2007) $ -- AUTHOR: $Author: keulsn $ -- ------------------------------------------------------------------------------- -- -- Einfacher Taschenrechner zur Berechnung einer der vier -- Grundrechenarten auf zwei Argumenten. -- -- TODO: write code procedure Calculator is -- FUNCTION Calculate -- -- Fuehrt eine Berechnung auf den Argumenten 'Left' und 'Right' -- durch und gibt das Resultat zurueck. -- -- RETURNS: Resultat der durch 'Operation' bestimmten Rechnung -- PARAMETERS: -- + Operation: Operator der Grundrechenart, '+', '-', '*', '/' -- + Left: linker Operand -- + Right: rechter Operand function Calculate (Operation : in Character; Left : in Integer; Right : in Integer) return Integer is begin -- TODO: write code end Calculate; begin -- TODO: write code end Calculator;