-
Fototrend
Új hozzászólás Aktív témák
-
L3zl13
nagyúr
-
#57764352
törölt tag
Hello!
érdekelne, hogy Delphiben egy TDirectoryOutline-nál hogy lehetne azt megoldani, hogy lássam az alatta lévő almappákat(már ha léteznek) dupla kattintás nélkül.
Összegezve: Ne kelljen 2 kattintani ahhoz, hogy lássam az almappákat?
Köszi a válaszokat!! -
#57764352
törölt tag
Hello sziasztok!
Delphiben érdekelne a köv.:
Adott egy stringgrid, kijelölök egy sort, és a sor x-edik celláját szeretném kinyomtatni!
A nyomtatás megy, a kijelölt sorral nem tudok semmit kezdeni...
Köszi a válaszokat előre is. -
#57764352
törölt tag
UP
-
Zed
tag
Üdvözletem!
Az a tiszteletteljes kérésem lenne a Kedves Fórumozkhoz, hogy próbáljanak nekem ajánlani valami jó Javascript és ASP könyvet, mert a GDF féle gyorstalpaló nem nagyon vált be.
Válaszukat előre is köszönöm!
Tisztelettel, Zed"A munka nem farok, effektíve állhat napokig..."
-
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... ''
-
M@trixfan
addikt
Sziasztok! Tudtok ajánlani olyan programot ami Pascal forráskódot C-re ír át?
twitter: MatrixfanLive | Ősidőktől a PH!-n
-
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... ''
-
g4dg3t
senior tag
HeLLa!!!
Nah feltoltottem nehany regebbi (sulis) munkamat. Akit erdekel, vagy akinek szuksege van peldaprogramokra hasznalja batran (Petrikes - rendszerprogramozoknak nagy segitseg lehet)
Assembly programjaim omlesztve
http://gadget.uw.hu/progz/asm.rar
Par darab C program (DOSos mini adatb kezelo, WinSuxos BMP viewer, Filerendszer bongeszo)
http://gadget.uw.hu/progz/c.rar
OpRendszer feladatok (megszakitasok kezelese, NeHe OpenGL progi...)
http://gadget.uw.hu/progz/oprendsz.rar
Tipikus programozasi feladatok megvalositasa (Grafikus peldaprogik Backtrack algoritmusra, rekurziora, OOP-ra, 3D koceka forgatas...)
http://gadget.uw.hu/progz/elm.rar
Ez pedig a szakdogam volt (WinSuxos IRC kliens...aki a kodra kivancsi annak a lenyeg ''Source\Component Package'' konyvtarban van...ircclient.pas...)
http://gadget.uw.hu/progz/xirc.rar
1szer majd ha tul sok szabadidom lesz (kb nyugdij korul), csinalok hozza vmi weblap szeruseget...magyarazatokkall...
Udv Gadget. -
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... ''
-
#57764352
törölt tag
Hello!
Kérdésem a köv. lenne.
Hogy tudok Delphi 7.0-ban nyomtatási felbontást ellenőrizni/módosítani??
THX -
Zsu_
senior tag
Volna egy kis problémám. Ezt kellen leprogramozni C-ben.
Tud segíteni valaki??
Beolvas egy egész számot, és kiírja, hogy ha bináris számnak tekintjük, akkor hány 1-es bitet tartalmaz.
Pl.:
Mondjuk beolvassa a 7-et, akkor az binárisban 00111 (ugye 2^2 + 2^1 + 2^0). Szóval ha pl a 7-es számot adod meg, akkor a program kiírja, hogy 3 db 1-es bitet tartalmaz.
Please, help! -
CharlieDrop
veterán
ha pancser módon állunk hozzá (nem ismerem a C idevágó függvényeit), akkor alap módon felbontod 2-es számrendszeri számmal, modjuk eg ytömbbe és azon belül összeszámolod hány egyes van (de ez csak a józan paraszti ész Nem C specifikus)
Nem használok AD-blockert a PH! oldalain!
-
LOTR
addikt
infoból érettségizek, 3 tételsor van abból 1 sor gyakorlat és a 25 feladat közül 5 Pascal
sajnos most még nincs időm átnézni programozást, majd csak épp érettségire és mivel általában fogalmam sincs róla kivéve a prímtényezős felbontás kiszámoltatását, légyszi ha ráértek írjátok le hogy hogy is kéne
először csak 1 feladatot írok
ja köszi
Írjon Pascal programot atlag.pas néven, amely két tízelemű valós számtömb (x és m) esetén kiszámítja az egyik tömb másikkal súlyozott átlagát
Xs=(M1*X1+K+M10*X10)/(M1+K+M10) !One Ring to rule them all
-
LOTR
addikt
naaa nézzétek már meg ezt a topikot
ha megnéztétek akkor előző hszt is nézzétek és válaszoljatokOne Ring to rule them all
-
KovacsUr
addikt
Ha jól fogtam fel,
[Szerkesztve: Nem jó, a fórummotor nem szereti a kódot. Inkább elküldtem mailben ]
De most mi lesz? Bevágod a programlistát?
Meg kellene érteni, mit is csinál a program, és legalább annyira megbarátkozni a Pascal utasításrendszerével, hogy valami ilyesmit le tudj kódolni, ha már a fejedben megvan az algoritmus...
----------------
Szerkesztve (21:44): Visszadobta a freemail a levelet, mondván, tele a postaládád... Így megy ez.So it goes… We stand alone by standing stones and turn them into circles.
-
#57764352
törölt tag
Hello!
Kérdésem a köv. lenne.
Hogy tudok Delphi 7.0-ban nyomtatási felbontást ellenőrizni/módosítani??
THX -
LOTR
addikt
válasz KovacsUr #235 üzenetére
majd talán most lesz rá időm átnézni pascalt
mert eddig egyáltalán nem volt azért köszi postaládám meg megnézem már régóta nem néztem
ja, amúgy meg megpróbálom megérteni, asszem június elején lesz info érettségi, ha meg nem megy 5 feladatot simán bevágok
remélemOne Ring to rule them all
-
LOTR
addikt
válasz KovacsUr #235 üzenetére
az a szar freemail (tök mindegy ha freemailesek is olvassák, mert akkor is szar!)
már megint nem enged belépni
ezt kb havonta egyszer megcsinálja MINIMUM
na mindegy
bemásolom következő feladatot is, ha van időtök légyszi ezt is csináljátok meg
köszi
Írjon Pascal programot szavak.pas néven, amely a billentyűzetről beolvasott szövegben megszámlálja az egy vagy több szóköz által elválasztott szavakat! Készítsen erről futtatható szavak.exe programot!One Ring to rule them all
-
amargo
addikt
hi!
a program elvét letudom írni, de pascalban nem tudom.
a billről bevitt adatot, gondolom tömbe tárolod. ezzen a tömbön futsz végig és a space karaktert figyeled.. (C-ben: ' ', de ascii=32), és amint talál egy spacet akkor azt 1nek veszi.. persze utána nem állhat még egy space.
amargo“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
amargo
addikt
hi
C ben megcsináltam, de pascalra nem tudom.. de ebből már kilehet bogozni
de azt nem tudom, hogy pl, ha rajta hagyod a kezed a spacen akkor mit csináljon a program, de ez itt a dupla és akárhány spacét is csak 1nek veszi. a mondat elejét se érdemes spacevel kezdeni ezért azt se számolja.
amargo
char vmi[40]; //ez tetszoleges lehet.. de file bol is belehet olvasni és utána tömbe rakni vagy közvetlen..
int er; //ez a vegeredmény tárolja
void main(void)
{
clrscr();//ez csak képernyotorles
printf(''bevitel : '');
gets(vmi); //itt tárolja el azt amit bevittél
for(int i=0;i<=sizeof(vmi);i++) //ez a magja, lényegiben a tömbön végig fut
{
if(vmi==32 && vmi[i+1]!=NULL) //itt ellenörzöm a karaktert és, hogy létezik e leütés
{
if(vmi[i+1]!=32)//itt végzek még egy ellenörzést, hogy a space után már nem állhat még egy..
er++;
}
}
if(vmi[0]==32) //ez az eleje space lett kezdve akkor azt kivonja.
er=er-1;
printf(''elvalaszto : %d'' ,er); //kiírja a végeredményt
}“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
LOTR
addikt
jaj segítsetek már midjárt itt az érettségi
[Szerkesztve]One Ring to rule them all
-
DragonR+
aktív tag
Sziasztok!
Segítséget szeretnék kérni Java programozásból.
Totál kezdő vagyok a nyelvben.
Van egy feladatom:
A feladat szerint van egy vektor egy két mezővel.
Fel kell vinnem néhány nevet és a másik mezőt nulláznom.
A kérdésem az lenne, hogy a másik fordulóban hogyan tudnám megcsinálni, hogy módosítani lehessen a másik mezőt?
Kérlek, bocsássátok meg, hogy ilyen pongyolán írtam le a dolgokat, de gyorstalpalón vagyok.
Válaszaitokat előre is köszönöm.
Tisztelettel, ZedÓ, de finom a vadkörte, más nevén a vackor…
-
Steelheart
senior tag
Kissé régen írtak utoljára ide, de remélem, imáim meghallgatásra találnak.
Kis gondom adódott: így év végén lemaradtam néhány progi- és algo-óráról, és a házi meg az, hogy programozzuk meg a Shell-rendezést, amit előzőleg leírtunk algoritmusban. Na igen, ezt szeretném megkérdezni, hogy legalább az elve mi, hogy megírhassam. Holnaora kéne, ugye... de legkésőbb két nap múlva.
[Szerkesztve]XFire profile: http://profile.xfire.com/crystalheart ________>>--(O.o)-->________ http://www.youtube.com/watch?v=0NM45lYPb_A _________>>--(X.x)-->_________ http://crystalheart.extra.hu/e107_files/downloads/video/myvid/ggstart_f2_3kbps.avi
-
veterán
Google says : Bővebben: link
Vagy például : Bővebben: linkAnd As It Is Such, So Also As Such Is It Unto You
-
Steelheart
senior tag
Valamit nagyon elnézhettem, de nem jövök rá, hogy mit gépeltem el. A suliban még működött, csak rossz volt a floppym (jellemző), és kézzel írtam le. Most meg nem találom a hibát... biztos a kevés tapasztalat teszi... Nos, a QuickSort-ról van szó pascalban, remélem, vki segít.
-----------------------------------------------------------------------------------
Program quicksortprob;
uses crt;
const maxtomb=10;
type tomb=array [1..maxtomb] of integer;
var i:integer;
X2:Tomb;
Procedure valogat(eleje,vege: integer; var kozep:integer; X:Tomb);
var i,j,k:integer;
Begin
k:=X[eleje];
While eleje<vege do Begin
While (X[vege]<k) and (eleje<vege) do dec(vege);
If eleje<vege then Begin
X[eleje]:=X[vege];
inc(eleje);
While (X[eleje]>=k) and (eleje<vege) do inc(eleje);
If eleje<vege then Begin
X[vege]:=X[eleje];
dec(vege);
End;
End;
End;
X[eleje]:=k;
kozep:=eleje;
End;
Procedure quicksort(eleje,vege:integer; X:Tomb);
var kozep:integer;
Begin
valogat(eleje,vege,kozep,X);
If eleje<kozep-1 then quicksort(eleje,kozep-1,X);
If vege<kozep+1 then quicksort(kozep+1,vege,X);
End;
{**************************}
Begin
For i:=1 to maxtomb do Begin X2[(i)]:=random(1000); Write(X2[(i)],', '); End;
quicksort(1,maxtomb,X2);
For i:=1 to maxtomb do Write(X2[(i)],', ');
Repeat until keypressed
End.
-----------------------------------------------------------------------------------
A ''valogat'' eljárás kezdő Beginjéhez verem túlcsordulási hibát jelez ki, amit fordításban nem jelez. Pedig suliban még működött...
[Szerkesztve]XFire profile: http://profile.xfire.com/crystalheart ________>>--(O.o)-->________ http://www.youtube.com/watch?v=0NM45lYPb_A _________>>--(X.x)-->_________ http://crystalheart.extra.hu/e107_files/downloads/video/myvid/ggstart_f2_3kbps.avi
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Ingyenes vagy akciós szoftverek
- Luck Dragon: Asszociációs játék. :)
- A fociról könnyedén, egy baráti társaságban
- Mikrotik routerek
- Motorola Moto G24 Power - hol van az erő?
- Gyúrósok ide!
- Megjelentek az első HMD okostelefonok, ezek a magyar áraik
- OpenWRT topic
- Milyen RAM-ot vegyek?
- Stellar Blade
- További aktív témák...