- Kivenné a részét az új HBM memóriák tokozásából az LG
- Az ASUS legfrissebb analóg billentyűzete az ízületeinket is kímélni szeretné
- A Team Group SSD-je gondoskodik arról, hogy az utolsó bitig letörölhető legyen
- Maximum 320 Hz-et képes magából kipréselni a Philips dual mode-os monitora
- A TSMC gyárthatja a Nova Lake legfontosabb komponensét
- E-book olvasók
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Socket AM4
- Milyen TV-t vegyek?
- Milyen belső merevlemezt vegyek?
- Melyik tápegységet vegyem?
- Home server / házi szerver építése
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Vezeték nélküli fülhallgatók
Ú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!
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest