- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Ha Kínában repülsz, és nem ilyen a hordozható töltőd, elveszik a reptéren!
- Tényleg nem biztos, hogy lesz Galaxy S26 Edge
- Milyen hagyományos (nem okos-) telefont vegyek?
- Samsung Galaxy S25 - végre van kicsi!
- Apple iPhone 17 Pro Max – fennsík
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- One mobilszolgáltatások
- iPhone topik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
-
Mobilarena
Új hozzászólás Aktív témák
-
9CS
senior tag
Ötletek:
1.: Kell három int változó: osszeg, darab, be. Írsz egy hátul tesztelő ciklust, amiben az a feltétel, hogy osszeg < 10000. A ciklus előtt a változókat nullázd. (Fontos, hogy előtte.) Ebben a ciklusban: Fogsz egy bekérést, ezt beteszed a „be” változóba, ezt ellenőrzöd, hogy szám e. (szorgalom függvényében, hogy ez egész). Az „osszeg” változót úgy módosítod, hogy az legyen egyenlő az „osszeg” + „be”. A ''darab''-hoz hozzáadsz 1-et. A ciklus után elhelyezed a kiírásokat. ''osszeg'', és ''darab'', a megfelelő körítéssel, melyik-melyik, hogy szép legyen.
2.: Itt az a „trükk” talán, hogy két dolgot kell ellenőrizni, egyik, ha „.”-ot tesz az ember, az a ciklus kilépése, a „szóköz”-ök száma +1, pedig megadja, hány szó van a mondatban. A billentyűket ACSII kódjuk ([link]) alapján tudod megnézni, melyik-melyik. Vagy egy karakterként „” között. („.” „ „)
Olvasnivalók: [link], [link]. -
9CS
senior tag
Nem tudja Valaki, hogy a Visual C++ webBrowser-ét hogy lehet rávenni arra, hogy egy richTextBox Text-et jelenítsen meg? Vagy mi lenne a legegyszerűbb módszer arra, hogy a programon belül szerkezzek egy weblapot, és azt utána meg tudjam nézni, szintén a programomon belül? Előre is köszönöm.
-
9CS
senior tag
Lehetséges PHP-nak programból küldeni olyan értékeket amiket egyébként post-al kéne megkapnia? Visual C++ 2005-öt öt kezdtem el nézegetni és akadt is, egy jó tanuló feladat, viszont a PHP-vel csak egy kicsi foglalkoztam eddig és az MS C++ is teljesen új nekem. Olyasmire gondolok, mint itt a PH belépés, csak programból. Azért lenne fontos hogy ne az oldalon kelljen belépni, mert utána pár automatikus műveletet kéne csinálnia a kis proginak, de nem nagyon tudok elindulni. Látom van browser komponens, de nem tudom, hogy kéne rávenni, hogy elküldje a megfelelő értékeket a PHP-nak. Miként megy el a PHP-nak a post? Lehet ezt elküldeni neki egyben, mint itt a PH!- a listázás például? (http://prohardver.hu/f.php?mod=40&id=6192) Működne ez bejelentkezéssel is?
Előre is köszönöm az útmutató segítségeket. Remélem sikerült érthetően leírni mire is gondoltam. -
9CS
senior tag
válasz
#16741888 #824 üzenetére
A számok ASCII kódját figyelve kérdd be a számokat. Mivel ezek sorban vannak, be lehet határolni, hogy mi az amiket hozzá lehet adni ahhoz a változóhoz, ami az eddig beírt számokat tárolja. Kell hozzá egy másik változó ami csak a darabszámot tárolja. Az egész elé teszel egy feltételt, ha nem a ''-'' jelet érzi addig fusson. A ''-'' ra gyors számolás, és kiíratás.
-
9CS
senior tag
Na jó, de egy kezdő a C-ben, C++-ban sem lát semmi pluszt, mert azt sem tudja hol van, így fokozatosan megismeri a mind több és több trükköt. Nem kell egyből mindent használni, nem?
KPepe: nem szimplán a kinézete nem tetszik, hanem az elv, hogy: „ez tanuló nyelv, kell ez nektek jó ez…”
No de legyen béke, mindenki azt használ amit akar. Tanítani meg azt tanítanak, amit a tanár akar. -
9CS
senior tag
Egyetértek azzal, amit írsz. De nekem jobban ment a C. Mondjuk én ilyen OKJs programozás oktatáson tanultam, ott az volt, hogy első évben Pascal, aztán köv év C, C++, Builder gyors egymás után. Nem volt előtte semmilyen programozói gyakorlatom, így amit tanultam, azt ott szedtem fel. Viszont a Pascal nem ment, ott csak vergődtem, míg a C-s „korszakban” elkezdett tetszeni a dolog, és egyre jobban ment. Ezért érthetetlen nekem, ez a Pascal jó tanuló nyelv, mert lehet nem mindenkinek. Nekem például nem feküdt, míg a C igen, pedig mindkettőben 0 tapasztalatom volt. Ezek után gondolom én így, hogy nem kell nekem a Pascal jó tanuló nyelv(e), mert (nekem) nem az. Itt írjátok a szép kis C kódokat, mi a baj vele? Tök jól olvasható.
Természetesen kell, hogy ismerjen egy programozó több nyelvet (bár talán nem halálos, ha egyben profi), de akkor ne már egy „tanulónyelv” legyen az, amivel terheli magát. Van jobb lehetőség is, a további fejlődésre.
Én is kevertem a Pascalt a C-ben, de csak a nyelvkavarodás miatt, nem azért, mert ez jó móka. Persze olyan durván, hogy utána mér le sem fordult. Bár már kinőttem. Lehet ez a másik oka, hogy gyűlölöm a Pascalt. Bár PHP kódot sosem szőttem a C-be. -
9CS
senior tag
Itt írod Te is mi az igazi gond vele: ''Pascalnak egy területen van igazi jelentősége, és ez az oktatás.'' De minek egy nyelvet oktatásra fenntartani? Ez a tanulónyelv szerintem fölösleges plusz teher és kavarodás forrása lehet. Legalábbis engem zavart a nyelvváltás. Minek megtanulni olyat, aminek utána semmi haszna nincs? Az elmélet nyelv független, utána meg már tanuljon az ember olyan nyelven kódolni, amit használni is lehet. Szerintem.
-
9CS
senior tag
válasz
Dominator #703 üzenetére
Ha jót akarsz Magadnak, akkor csak az egyiket kezded el tanulni. A másikat mindaddig kerülöd, míg nem vagy gyakorlott az elsőben. (Utána meg már nem fog kelleni
) Egyébként meg a programozás igen kis része (bár mindenképpen nagyon fontos) a kódolás, ha meg tudod tervezni és elgondolni, mit is kéne pontosan csinálnia a programnak, akkor a többi már csak idő kérdése. Én a helyedben a C-vel kezdenék, vagy egyből C++. Én szerencsére ellenálltam a TP oktatásnak, és már kezdem felejteni azt is, ami megragadt. Szégyen, hogy ezt még tanítják. Persze, ha Delphi fanatikus Valaki, akkor ok.
-
9CS
senior tag
UP a forumnak, meg aki kényelmes, annak: Bővebben: link
-
9CS
senior tag
Erre ötlet esetleg?: Bővebben: link
[Szerkesztve] -
9CS
senior tag
Két problémám lenne. Builder 6-ban MySQL adatbázist szeretnék kezelni. Egyik gond, hogy a sima DBGrid-ben a blob típusú mezőknek az értékét nem lehet látni, csak az jelenik meg, hogy (BLOB) így zárójelezve. Mit lehetne ez ellen tenni? ODBC vezérlőn keresztül kommunikál a program az adatbázissal. TDatabase TTable és TDataSource van csak feltéve a form-ra, no meg a DBGrid. Hogy lehetne elérni, hogy a blolb tartalmát is kiírja. Ehhez csatlakozik a másik gond, a blob a kódolt szövegrészeket tárolja, érdemes lenne kicserélni ezt más típusra, hogy ne legyen ez a gond? A blob-ot tanácsolták, hogy kódolt szöveget ilyen típusban tároljam.
-
9CS
senior tag
válasz
KovacsUr #218 üzenetére
Nos?
A feladatleírás még ide:
''80 lény: max 20 évet élnek. Halálozásuk valószínűsége egyenesen arányos
korukkal, pl.: a 0 éves biztosan 1 éves lesz, a 10 éves 1/2 eséllyel
éri meg a következő évet. A 20 éves biztosan meghal.
Feladat: Kezdetben az összes lény 0 éves (újszülött). Ezután folyamatosan
válasszunk ki véletlenszerűen egy lényt. Aztán probáljuk meg növelni az
életkorát a megfelelő eséllyel. Ha meghal azonnal megjelenik egy újszülött.
A 80 lény korát oszlopdiagrammként folyamatosan ábrázoljuk a képernyőn és
írjuk ki az átlagéletkorukat is. Gobnyomásra a program érjen véget.''
Az én szavaimmal. és kb. -
9CS
senior tag
Oh ez valószinű moderálva lesz, de akkor nézzük:
Kivettem pár ellenörző sort ami nem kell igazaból, csak próbálkoztam megkeresni velük a hibát... Remélem hasznos sort nem vágtam ki
.
Program max20ev;
Uses crt;
Var
falka : array[1..80] of byte;
o, {kiválasztott elem}
e, {évek száma}
t {a falka 0-val való feltöltéséhez kell}
: byte;
osszeg {átlag korhoz}
:word;
atl {az átlag}
: real;
{ --- Procedurák --- }
Procedure Kivalasztas; {Egy véletlen szám}
Var {1-80-ig}
v : byte;
Begin
Randomize;
v := Random(80)+1;
o := v;
end;
Procedure Oregites; {No ez igen}
Var x : integer; {Öregít elvileg}
v : byte;
Begin
{readln(e);}
x := round(100-e*(100/20));
{writeln('ez a ''%'': ',x);}
Begin
Randomize;
v := Random(100);
{WriteLn('ez a random szám a vénséghez: ',o);}
Begin
if v<=x then e:=e+1
else e:=0;
{writeln('öregedés utáni kor: ',e);}
end;
end;
end;
Procedure Hanyeves; {Megnézi mennyi idős}
{Var} {Ha a két kritikus}
{e : byte;} {kor akkor lekezeli}
begin {Nem szükséges!}
{read(e);} {elvileg}
if e=0 then e:=1 {elég az öregítés}
else
if e=20 then e:=0
else oregites;
end;
Procedure Lentivonal; {Egy vonal lent}
Var i : byte;
begin
gotoxy(1,24);
for i:=1 to 80 do
write(chr(178));
End;
Procedure oszloptorol; {Oszlopok törlése}
Var i,k : byte;
Begin {Kezdő pont}
k := 23;
for i:=1 to 20 do
gotoxy(o,k);
write(' ');
k:=k-1;
{readkey;}
End;
Procedure Egyoszlop; {Oszlopok huzása}
Var i,k : byte;
Begin {Kezdő pont}
k := 23;
for i:=1 to e do
gotoxy(o,k);
write(chr(178));
k:=k-1;
{readkey;}
End;
Procedure Atlagkor; {Átlag életkor}
Begin
atl:=0;
atl:=(osszeg/80);
End;
{ --- Kezdődjék hát a program --- Változók az elején! --- }
Begin
clrscr;
lentivonal;
for t:= 1 to 80 do
falka[t]:=0;
osszeg:=0;
Repeat
Kivalasztas;
e:=falka[o];
osszeg:=osszeg-e;
hanyeves;
oregites;
falka[o]:=e;
osszeg:=osszeg+e;
atlagkor;
readln(e);}
oszloptorol;
egyoszlop;
gotoxy(30,3);
write('Átlag kor: ',atl);
Until keypressed;
End. -
9CS
senior tag
Mennyire lehet pofátlan kérdése az embernek?
Ugyanis sajna a házimmal komoly gondok vannak. Nem működik a kijelzés, ha bemásolm a forrást esetleg lenne Aki megnézi, hol lehet a baj? Ma mutattam a tanárnak, hogy a számolás mintha jó lenne (kivéve átlag számítás
),csak a kijelző nem igazán azt csinálja mint kéne. Külön ha csak az a rész megy akkor jó... Mondta keresem meg a hibát, de nem lelem
Szóval szabad ide biggyeszteni ''pár'' sorocskát? Néhány képernyönyi Pascal forrás lenne. Ha van aki jelentkezik, hogy rápillant akkor beteszem nemsokára, csak most floppyn van, az meg a gépemben nincs.
-
9CS
senior tag
A forrás keresgélés közben találtam ezt: egy kis ''játék'' az ügyesebb programozóknak:
http://www.brody-ajka.sulinet.hu/pldtar/program/f/10.htm -
9CS
senior tag
Valaki tudna mondani olyan magyar oldalt ahol vannak Tubo Pascal források? Fontos lenne, hogy magyarázatok is legyenek a forrásban (vagy megjegyzések tömkelege), olyasmi mint az alap példákban. Előre is köszönöm.
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Ha Kínában repülsz, és nem ilyen a hordozható töltőd, elveszik a reptéren!
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER! lapcsalád
- NAS-okba optimalizált HDD-kkel újít a Toshiba
- ROG Xbox Ally X: Összefogás
- Projektor topic
- Hobby elektronika
- Anglia - élmények, tapasztalatok
- Milyen billentyűzetet vegyek?
- Abarth, Alfa Romeo, Fiat, Lancia topik
- További aktív témák...
- Dell precision 7530 laptop
- ROG Strix G513RC 15.6" FHD IPS Ryzen 7 6800HS RTX 3050 16GB 512GB NVMe magyar vbill gar
- T14 Gen1 14" FHD IPS i5-10210U 16GB 256GB NVMe magyar vbill IR kam új akku gar
- VivoBook S M3402QA 14" 3K OLED Ryzen 5 5600H 16GB 512GB NVMe magyar vbill ujjlolv gar
- ASUS TUF Gaming F15 gamer laptop
- GYÖNYÖRŰ iPhone 11 64GB White-1 ÉV GARANCIA - Kártyafüggetlen, MS3123
- Honor X7 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÚJ Lenovo ThinkPad T16 Gen 4 - 16" WUXGA - Ultra 7 255U - 32GB - 1TB SSD - Win11 - 3 év garancia
- Gamer PC-Számítógép! Csere-Beszámítás! I7 6700K / RTX 2060 6GB / 32GB DDR4 / 500 SSD
- Game Pass Ultimate előfizetés azonnal, problémamentesen, méghozzá OLCSÓN! Immáron 8 éve!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő