-
Fototrend
Új hozzászólás Aktív témák
-
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.
'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.
'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.
'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
9CS
senior tag
Erre ötlet esetleg?: Bővebben: link
[Szerkesztve]'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
9CS
senior tag
UP a forumnak, meg aki kényelmes, annak: Bővebben: link
'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.
'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.
'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.
'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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.
'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
-
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].'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- MasterDeeJay: Volta a bányából azaz CMP 100-210 kisteszt (Tesla V100 mining)
- Telekom mobilszolgáltatások
- Kertészet, mezőgazdaság topik
- exHWSW - Értünk mindenhez IS
- Facebook és Messenger
- EAFC 24
- Házimozi haladó szinten
- OLED TV topic
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Vicces képek
- További aktív témák...
- LG NanoCell 55NANO766QA Halvány píxel csík
- Philips 58PUS8545/12 1 ÉV GARANCIA Játék üzemmód
- Tyű-ha! HP EliteBook 850 G7 Fémházas Szuper Strapabíró Laptop 15,6" -65% i7-10610U 32/512 FHD HUN
- Bomba ár! HP EliteBook 840 G5 - i5-8G I 8GB I 128GB SSD I 14" FHD I HDMI I Cam I W10 I Gari!
- The Last of Us Part I Ps5