geht es auch programmiertechnisch besser?

[Steve]

Servus,

Zitat von dR4g0N:

Delphi-Quellcode:

{ ... }
if op = '+' then
begin
c := a + b;
Writeln ('Das Ergebnis lautet:');
writeln (c:0:1);
end;
if op = '-' then
begin
c := a - b;
Writeln ('Das Ergebnis lautet:');
writeln (c:0:1);
end;
if op = '*' then
begin
c := a * b;
Writeln ('Das Ergebnis lautet:');
writeln (c:0:1);
end;
if op = '/' then
begin
c := a / b;
Writeln ('Das Ergebnis lautet:');
writeln (c:0:1);
end;
a := c;
{ ... }

..diesen Teil würd ich mit ner CASE-Anweisung lösen:

Delphi-Quellcode:

CASE op OF
  '+' : c := a + b;
  '-' : c := a - b;
  '*' : c := a * b;
  '/' : c := a / b
  ELSE BEGIN 
    c := 0;
    Writeln ('Kein gültiger Operator!');
  END; { Else }
END; { Case }

Writeln ('Das Ergebnis lautet:');
writeln (c:0:1);
{ ... }

Außerdem würd ich auch auf fehlerhafte Eingaben prüfen (siehe z.B. ELSE im CASE-Abschnitt)
sonst kanns schnell Fehler geben, z.B. wenn im Programm Strom jemand für alle Wert 0 angibt

MfG
Stephan