Taschenrechner,Reference-Value

[Sir Rufo]

Ich habe mal die Projekt-Quellen formatiert und alle Variablen entsprechend farbig markiert.

rot = globale Variablen
orange = lokale Variablen
grün = Parameter

Dabei ist zu beachten, dass z.B. zahl1 eine völlig andere Variable als zahl1 ist.

[hotkey]

Wenn ich aber die globalen Variablen entferne , also Zahl1 und Zahl2 , was soll ich dann bei readln und addition() schreiben?

Code:

 if (additionsb='ja') then
   begin
   writeln('Geben Sie die erste Zahl ein: ');
   readln(????);
   writeln('Geben Sie die zweite Zahl ein: ');
   readln(???);
   addition(???);
   end;

EDIT: Hat sich geklärt , danke für die Antworten.

[Sir Rufo]

Im Anhang mal der gute alte Papierrechner. Die einzelnen Punkte habe ich im Quelltest markiert.
Evtl. siehst du ja dann, wo dein Fehler liegt.

Delphi-Quellcode:

program p1;
{$AppType Console}

var
  additionsb, subtraktionsb, multib, divb : string;
  zahl1 :                                   integer;
  zahl2 :                                   integer;

function addition( x : integer; y : integer ) : integer;
var
  ergebnis : integer;
  zahl1 :    integer;
  zahl2 :    integer;
begin
  ergebnis := zahl1 + zahl2; // 5.
  result   := ergebnis; // 6.
  writeln( 'Das Ergebnis lautet:' );
  write( ergebnis );
  readln;
end;

begin
  writeln( 'Wollen Sie addieren,subtrahieren,multiplizieren oder dividieren?: ' );
  readln( additionsb, subtraktionsb, multib, divb ); // 1.

  if ( additionsb = 'addieren' )
  then
    begin
      writeln( 'Geben Sie die erste Zahl ein: ' );
      readln( zahl1 ); // 2.
      writeln( 'Geben Sie die zweite Zahl ein: ' );
      readln( zahl2 ); // 3.
      addition( zahl1, zahl2 ); // 4.
    end;

end.

[hotkey]

Vielen Dank , habs verstanden.

Ich habe den ganzen Code mal schnell verändert , und so finde ich es jetzt besser , viel übersichtlicher und kürzer :

Code:

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.

[DeddyH]

Und welchen Sinn soll c dabei haben?

[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.