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.

[hotkey]

Eigentlich garkeinen , braucht man nicht..

[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

[hotkey]

Also vielen Dank , das was du da grade gemacht hast , ist wirklich gut für mich , so kann man es einfacher kapieren , jetzt habe ich es aber kapiert 100 %ig , vielen vielen Dank.
Das wird mich in der Klausur weiterbringen, danke nochmal an alle.