Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
Delphi 10 Seattle Enterprise
|
AW: Taschenrechner,Reference-Value
29. Nov 2011, 15:22
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.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
|
|
Zitat
|