Taschenrechner,Reference-Value

[Sir Rufo]

Zitat von hotkey:

Vielen Dank , habs verstanden.

irgendwie glaube ich das noch nicht so recht ... wenn du das so geschrieben hättest

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses sysutils;

var
  a, b :        real;
  bestatigung : string;

function addition( Val1, Val2 : real ) : real;
begin
  result := Val1 + Val2;
end;

function multiplikation( Val1, Val2 : real ) : real;
begin
  result := Val1 * Val2;
end;

function division( Val1, Val2 : real ) : real;
begin
  result := Val1 / Val2;
end;

begin

  writeln( 'Taschenrechner - Addition,Multiplikation,Division' );
  writeln( 'Geben Sie die erste Zahl ein: ' );
  readln( a );
  writeln( 'Geben Sie die zweite Zahl: ' );
  readln( b );

  writeln( 'Welche Rechenoperation moechten Sie ausfuehren(z.B.+,-,/): ' );
  readln( bestatigung );

  if bestatigung = ( '+' )
  then
    begin
      writeln( addition( a, b ) );
    end;

  if bestatigung = ( '*' )
  then
    begin
      writeln( multiplikation( a, b ) );
    end;

  if bestatigung = ( '/' )
  then
    begin
      writeln( division( a, b ) );
    end;

  readln; // auf Tastendruck warten, sonst sieht der Anwender ja nix :o)

end.

dann ja