Dev-Pascal: Es sollen solange Zahlen addiert werden solange keine 0 eingegeben wird. Danach soll die Summe ausgegeben werden?

2 Antworten

var
  iIn: Integer;
  iSum: Integer;
begin
  iSum := 0;
  while(Eingabe(iIn)<>0) do
    Inc(iSum, iIn);
end;

Den Eingabebefehl kenne ich nicht. Deswegen der Funktionsaufruf von Eingabe() als Platzhalter.
Ich habe "Eingabe" als Funktion angenommen, die die nächste Eingabe sowohl im Parameter als auch als Funktionswert zurück gibt.

Woher ich das weiß:Berufserfahrung

Pseudocode:

var summe = 0;

var userInput = "Userinput"

if(userInput == 0)return summe;
else summe += userInput