- Samsung Galaxy S25 - végre van kicsi!
- Samsung Galaxy A56 - megbízható középszerűség
- Honor Magic6 Pro - kör közepén számok
- Itt egy pár fotó az iPhone 17 sorozatról
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Yettel topik
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Mobil flották
- Telekom mobilszolgáltatások
- Mindenki Z Fold7-et akar
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
-
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!
- eBay-es kütyük kis pénzért
- PROHARDVER! feedback: bugok, problémák, ötletek
- PlayStation 5
- Windows 10
- Azonnali fotós kérdések órája
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Samsung Galaxy S25 - végre van kicsi!
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Álláskeresés, interjú, önéletrajz
- Miért álltak az oldalak egy hétig, mi történt?
- További aktív témák...
- Akció! Paidashu 10600MAH / 20700MAH Powerbank olcsón!
- Szinte új, minőségi, állítható ritkítóolló
- Dell Latitude 3340 Core i3-4005U CPU hibás laptop
- GYÖNYÖRŰ iPhone SE 2022 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS2985
- Újszerű Apple Macbook Air 15,3" M3 8C CPU/10C GPU/16GB/256GB-(MC9E4MG/A) Ezüst -3 év gari
Állásajánlatok
Cég: FOTC
Város: Budapest