-
Fototrend
Új hozzászólás Aktív témák
-
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!
[ Szerkesztve ]
https://www.youtube.com/watch?v=mkDSGbRyjz8&list=PLVJH24yGtE_w5Ke4aWmRV8erFQmqRD1dK Minden egyes új rész rátesz még egy lapáttal :-D
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Samsung Galaxy S21 FE 5G - utóirat
- A franciáknak elege van abból, hogy minden gyerek mobilozik
- Crypto Trade
- Politika
- LTE frekvenciák
- Milyen billentyűzetet vegyek?
- ASZTALI GÉP / ALKATRÉSZ beárazás
- PayPal
- Opel topik
- Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
- További aktív témák...
- Ryzen 9 5950X
- AirPods Max - Silver (Hibátlan és tökéletes állapot, tulajdonképpen új, pár napot volt használva)
- LEGJOBB ÁR! GAMER PC - RTX 3070 - Ryzen 5500 - 16GB DDR4 - 500GB Nvme SSD
- ÚJ Playstation 5 CFW képes (feltörhető), lemezes
- ÚJ Dell Vostro 3520 - 15.6" IPS 120Hz / i5-1235U / 8-16Gb DDR4 / 512Gb / HUN backlit / 3 ÉV GAR.
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen