Hilfe! Problem in Pascal!

[Sofa5000]

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]

[Dagon]

Ich hab dein Problem gelöst:

Delphi-Quellcode:

var note,sum,i,x:integer;

begin
  i:=-1;
  sum:=0;
  while (note > 0) do begin
    writeln('Gib die Note ein'); ReadLn(note);
    sum:=sum+note;
    i:=i+1;
  end;
  writeln(sum/i);
  ReadLn;
end.

[Sofa5000]

Das geht irgendwie auch nicht!

[Dagon]

Zitat:

Zitat von Sofa5000

Das geht irgendwie auch nicht!

Könntest du dich ein bisschen präziser ausdrücken?
Was geht nicht (Fehlermeldung, falsches Resultat)?

[MrSpock]

Hallo Sofa5000,

Vor der Ausgabe mit Writeln müsstest du überprüfen, ob i <> 0, sonst erzeugst du natürlich einen Fehler (Division durch 0).

Delphi-Quellcode:

var note,sum,i,x:integer;
begin
  i:=-1;
  sum:=0;
  while (note > 0) do begin
    writeln('Gib die Note ein'); ReadLn(note);
    sum:=sum+note;
    i:=i+1;
  end;
  if i > 1 then
    writeln(sum/i)
  else
    writeln('Keine Noten eingegeben.');
  ReadLn;
end.

[Sofa5000]

@ MrSpock Wenn ich es so mache wie du es geschrieben hast kommt gleich wenn ich das Programm öffne die Meldung keine Note eingegeben!

@theMaster Bei deiner Lösung kommt gleich wenn ich das Programm öffne 0,0000000000E+00

[sakura]

Gib Deiner Frage bitte mal noch eine vernünftige Überschrift!

...:cat:...

[Niko]

Wenn's unbedingt eine while Schleife sein soll, musst du Note vorher auf einen Wert größer 0 setzen. Sonst wäre eine repeat-until Schleife günstiger.

[Dagon]

Dann versuchs mal so:

Delphi-Quellcode:

var note,sum,i:integer;

begin
  i:=-1;
  sum:=0;
  note := 1;
  while (note > 0) do begin
    writeln('Gib die Note ein'); ReadLn(note);
    sum:=sum+note;
    i:=i+1;
  end;
  if i > 1 then
    writeln(sum/i)
  else
    writeln('Keine Noten eingegeben.');
  ReadLn;
end.

[Luckie]

Jungs, wie denkt ihr eigentlich, dass die Zahl in die Variable note kommt ohne ein readln? :gruebel:

[Sofa5000]

@ themaster Dankeeeeeeeee das hat funktioniert!!!!!!!!

[Dagon]

Gern geschehen!!!!!!!!! :-D

[MrSpock]

@Luckie: Da steht doch ein readln und zwar direkt (in derselben Zeile) beim writeln. OK, da muss man es nicht erwarten, aber da isses :mrgreen: .

[Luckie]

Die Postings hatten sich überschnitten. Als ich gepostet habe, war das von the_master noch nicht da.

[Matze]

@Luckie: echt gute Ausrede. :mrgreen:

Schau mal die Postings weiter oben an! :dp:

[Luckie]

welcher Hirnie schreibt denn zwei Anweisungen in eine Zeile? :evil:

[Matze]

Alle, bis auf ich. ;)

Ich geb's ja zu, ich hätte es auch überlesen.

[Dagon]

Zitat:

Zitat von Luckie

welcher Hirnie schreibt denn zwei Anweisungen in eine Zeile? :evil:

Das war ich. :oops:
Das kann ja mal passieren. :cry:

[Matze]

@the_master: return vergessen? ;)