- Otthoni hálózat és internet megosztás
- Microsoft Excel topic
- YouTube
- Letartóztatták a bitcoin-Jézust
- A franciáknak elege van abból, hogy minden gyerek mobilozik
- Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
- Mobilinternet
- Crypto Trade
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Synology NAS
-
IT café
Új hozzászólás Aktív témák
-
janos1988
addikt
válasz kovisoft #14157 üzenetére
Végül is így sikerült közben megoldani (illetve ezek más "elrendezése" és/vagy a while do ciklus használata, de a végeredmény ua):
program felbontas;
var
s1,s2:string;
i:integer;
begin
s1:='Ez egy szep hosszu proba mondat akarna lenni.';
s2:='';
for i:=1 to length(s1) do
begin
if (s1[i]<>#32) then s2:=s2+s1[i]
else
begin
writeln(s2);
s2:='';
end;
if i=length(s1) then writeln(s2);
end;
end.
Közben olvasgattam és beugrott, hogy van a C-ben használatos 0 végű sztring is a Pascalban (PChar), de azzal is hasonló megoldások születnek (születtek). Bár előnye, hogy meghatározható a vége (#0). Köszi neked is és a többieknek is!
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!
- Érkezik Magyarországa az LG szuper dizájnos hordozható projektora
- World of Tanks - MMO
- Otthoni hálózat és internet megosztás
- Ukrajnai háború
- Stellar Blade
- AMD off topik: VGA, CPU, APU és minden, ami AMD
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Így építsd a billentyűzeted!
- Linux felhasználók OFF topikja
- Bemutatkozott a Moto G32 4G
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest