hallo leutz
die beiden folgenden programme beinhalten das hochzählen bis zu einer bestimmten zahl und anschließend das bilden einer summe. wieso heist es im ersten programm:
Delphi-Quellcode:
begin
...
zahl:=1;
while...
...
end;
und im anderen programm:
Delphi-Quellcode:
begin
...
zahl:=0
while...
...
end;
meiner meinung nach sind die anweisungen die gleichen.
programm summe25
Delphi-Quellcode:
würde mich über ne baldige antwort freuen. :gruebel:
var summe, zahl: integer;
begin
summe:=0;
zahl:=1;
while zahl < 26 do
begin
summe:= summe + zahl;
zahl:= zahl + 1
end;
writelm('die summe der ersten 25 ganzen zahlenist' ,summe)
end.
Delphi-Quellcode:
programm durchschnitt
var summe, zahl, max:= integer;
mittel:=real;
begin
readln(max);
summe:= 0;
zahl:= 0;
while zahl < max do
begin
zahl:= zahl + 1;
summe:= summe + zahl
end;
mittel:= summe/max;
writeln('der durchschnitt beträgt' ,mittel)
end.