Hilfe! Kann mir jemand helfen? Ich lerne gerade das Programmieren und mache ein paar einfache Programme aber bei diesem habe ich ein Problem!
Der Sinn von dieses Programms:
der Benutzer gibt gültige Note ein
abbgebrochen wir wenn der Benutzer die Zahl null einbibt
und ich muss es mit einer while anweisung machen!
hier ist es:
Delphi-Quellcode:
program durchw;
uses wincrt;
var note,sum,i,x:integer;
begin
i:=-1;
sum:=0;
writeln('Gib die Note ein');
while (note>0) do begin
sum:=sum+note;
i:=i+1;
end;
writeln(sum/i);
end.
Kann mir jemand sagen wo der Fehler liegt?
Danke!!
[edit=MrSpock]Programmtags hinzugefügt. Mfg, MrSpock[/edit]