Taschenrechner,Reference-Value

[Sir Rufo]

ordentlich formatiert sieht das sogar nach was aus ... ja bis auf das mit dem readln(c)

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses sysutils;

var
  a, b, c :     real;
  bestatigung : string;

function addition( a : real; b : real ) : real;
begin
  result := a + b;
end;

function multiplikation( a : real; b : real ) : real;
begin
  result := a * b;
end;

function division( a : real; b : real ) : real;
begin
  result := a / b;
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
      c := a + b; // ???
      writeln( addition( a, b ) );
      readln( c ); // ???
    end;

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

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

end.