AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Unterschied zw. zwei Programmen

Ein Thema von PomBär · begonnen am 6. Jan 2004 · letzter Beitrag vom 19. Jan 2004
 
PomBär

Registriert seit: 28. Sep 2003
Ort: MV
57 Beiträge
 
Delphi 6 Professional
 
#1

Unterschied zw. zwei Programmen

  Alt 6. Jan 2004, 21:57
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.
Je weniger einer weiß, desto eher glaubt er jeden Scheiß.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz