Új hozzászólás Aktív témák
-
-
yksz
aktív tag
Szervusztok! Lenne egy surgosen megoldásra váró problémám:
itt van ez a ciklus:
while h>1 do
begin
for i:=1 to h do
begin
r:=strtoint(p);
l:=l+r;
end ;
p:=inttostr(l);
h:=length(p);
end ;
és ha itt p-be olyan változót tárolok ami a ciklus lefuttatása után 2, vagy tobbjegyu értéket ad l-nek akkor a ciklusom valamiért végteleníti magát, vagyis sose ír ki semmit, de nem ír hiobát, ezért gondolom, h végtelen. Arra lenne elméletileg, h kiszámoljam egy szám mágikus számát, pl 198-nak 1+9+8=18 1+8=9 lenne. 1-18 ig szépen csinál midnent, amikor beadom a 19et nem ír ki semmit, csak terhlei a procit 100%-on mert 1+9=10 lenne. Miért van ez és h tudnám kikuszobolni ezt?Fly away my precious knowledge fly far away
-
yksz
aktív tag
az egész így néz ki:
var
Form1: TForm1;
n, i, l, s, r, h: integer;
p: string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
p:=Edit1.Text;
h:=length(p);
l:=0;
Click;
end;
procedure click;
begin
while h>1 do
begin
for i:=1 to h do
begin
r:=strtoint(p);
l:=l+r;
end ;
p:=inttostr(l);
h:=length(p);
end ;
edit2.Text:=p;
end;
csak nem akartam beírni, mert hosszú. Ebbol már láthatod h elméletileg nem kéne végtelenitodenie, pedig mégis sikerul neki. Mit csináltam rosszul? Edit1-be írok 1 számot és ha a számjegyei osszege nagyobb mint 9 akkor csinálja, amíg kisebb mint 10 muxik normálisanFly away my precious knowledge fly far away
-
yksz
aktív tag
Úristen, megvilágosodtam Elfelejtettem nullázni az L-t. Sry, nem értem h lehetek olyan hulye Mint már említették feljebb: ''Hiába nézi át az ember ha ha nem azt látja ami ott van, hanem azt aminek ott kéne lennie.'' Már csinálja a dolgát rendesen. Thx
Fly away my precious knowledge fly far away
-
yksz
aktív tag
Lenne még 1 problémám: Van egy ilyen dolgom:
101
010
110
ennek a méretei változhatnak és a számok is változhatnak 1-0 kozott de mindig négyzetr alakú lesz. és h tom megkeresni azt a téglalapot, amelyik korul! a legtobb 1-es található? Aki tud segíteni az pls írjon privi-t v mailt, mert gondolom nem lesz rovidFly away my precious knowledge fly far away
-
yksz
aktív tag
Mivel/hogyan tudom megvizsgálni egy változó értékérol, h egész szám-e v nem? pl r: real esetében h r-ben éppen egész szám tárolódik-e, v nem?
Fly away my precious knowledge fly far away
-
yksz
aktív tag
válasz Flashback #1302 üzenetére
stringben 1 karaktert? Nem igazaán értem a kérdésedet de stringekben így hivatkozol az x. számú karakterre: a[x] ha ennek értéket akarsz adni, akkor a[x]:= stb. és így nem az egész stringet változtatod, csak azt a karaktert, de arra vigyázz h karakterként is dolgozz vele!
[Szerkesztve]Fly away my precious knowledge fly far away
-
yksz
aktív tag
Udv! A kov a problémám: Hogyan tudok ''extra'' modemnek szóló paranccsal (type of service - ha jo´tudom) pinget kuldeni egy IP-re? a pingelésig eljutottam és muxik is rendesen, csak a parancs kéne, h hova mikor mit és mivel?
Fly away my precious knowledge fly far away
-
yksz
aktív tag
Akkor h tudom meghatározni egy kikuldott PING csomag méretét és még a ping mellé, pinggel egyutt más parancsokat is kikuldeni 1x-re
[Szerkesztve]Fly away my precious knowledge fly far away
-
yksz
aktív tag
Melyik komponenseket használjam, ha egy esemény megtorténését akarom elkuldeni egy másik gépen futó proginak (nem trójait akarock írni ) csak egy csóró kis multiplayer gamet, h ki nyomja le gyorsabban a gombot. Szal a gomb lenyomására elkuldeni h én már lenyomtam:S rem értheto
Fly away my precious knowledge fly far away
-
yksz
aktív tag
Ezzel mit kezdjek: ''could not load ssl library'' - amikor a kliensemmel csatlakozni akarock egy serverre? Ha viszont utána az írja h connected=true és ha megint próbálok egy connectet, akkor ''already connected'' :S Most akkor rossz valami azzal az ssl-lel, v nem? és ha nem akkor h tudom eltuntetni h ne írja azt ki?
Fly away my precious knowledge fly far away
-
yksz
aktív tag
Udv! H tudok a TCPserver-rel (nem indy) egy állandóan fentartott kapcsolat mellett, szoveget, v akármit is fogadni a kapcsolódott klienstol? Mert találtam olyat h onreceive, de ez mikor hívódik meg, v h használjam?
Fly away my precious knowledge fly far away
Új hozzászólás Aktív témák
- Gamer PC Intel i5 9400/16GB DDR4/GTX 1660 6GB/256GB SSD/500/GB HDD/Beszámítás/Garancia/
- Gamer PC Ryzen 1600X/16gb ddr4/GTX 1660 SUPER 6gb/256gb ssd/500gb hdd/Garancia/Beszámítás/
- Palit Geforce RTX 3060 12GB /CSAVARMATRICA/GYÁRI ÁLLAPOT/BESZÁMÍTÁS/
- G.SKILL 32GB KIT DDR5 6000MHz CL30 Trident Z5 NEO AMD EXPO - Alza jótállás 2032-ig
- ZEN Gamer PC - GTX 1660 Ti - Ryzen 3600 - 16GB DDR4 - 1TB m.2 SSD
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen