Új hozzászólás Aktív témák

• #14032 janos1988 addikt

  Új Válasz 2020-04-13 19:12:09 #14032

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  janos1988

  addikt

  Hali. Kellemes húsvéti ünnepeket!

  repeat
writeln('Kerek egy szamot (0-bevitel vege):');
readln(a);
if a>0 then begin
               new(uj);
                uj^.szam:=a;
                uj^.kov:=nil;
                if elso=nil then elso:=uj
               else utolso^.kov:=uj;
               utolso:=uj;
             end;
until a=0;

  Ezt átírtam így:

  writeln('Kerek egy szamot (0-bevitel vege):');
readln(a);
new(uj);
uj^.szam:=a;
uj^.kov:=nil;
elso:=uj;
utolso:=uj;
repeat
 writeln('Kerek egy szamot (0-bevitel vege):');
 readln(a);
 new(uj);
 uj^.szam:=a;
 utolso^.kov:=uj;
 utolso:=uj;
until a=0;
utolso^.kov:=nil;

  "Minden jó", leszámítva azt, hogy kiírja az átírt változat a 0-át, amit az eredeti nem (a 0 az egy kilépési feltétel).
  Ha én is hasonlót fogok majd készíteni, akkor melyik megoldás a jobb/szebb?

  Köszi!

Új hozzászólás Aktív témák