/usr/local/apache Linuxokon általában ide szokott települni automatikusan.
Hogy neked hova van telepítve azt nem tudom.
Ha más szerverén biztosítanak neked tárhelyet akkor kérdezd meg az üzemeltetőt, bár nem tudom, hogy ez mire kell neked.

Aki hülye, haljon meg!

Saját gépre szeretném tenni, tárhelyre nem is tudnám szerintem. Egyébként windowson van fent. C:\Apache Group\Apache2\ konyvtarban van, ha ez segit eseteg. Ez a .htaccess dolog pedig azert kellene, mert ki szeretnem probalni.

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!!

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.

UP

Valakkii

Ü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..."

Senki??
Ne hagyjuk a topicot meghalni!!

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... ''

Sziasztok! Tudtok ajánlani olyan programot ami Pascal forráskódot C-re ír át?

twitter: MatrixfanLive | Ősidőktől a PH!-n

Hehe... volt egy ilyen, de nem működött túl jól pas2c volt a neve, de még én is jobb c kódot csináltam nála
--------
Bocs, tévedtem, p2c a neve.

So it goes… We stand alone by standing stones and turn them into circles.

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... ''

hmmm...csaknem egy ''honfitars''?

Ajkai vagy, Brodys vagy/voltal?

Udv Gadget.

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.

Nem, csak a keresgélés közben akadtam rá. De tetszett így belinkeltem.

'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''

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... ''

HeLLa!!!

Ide sztem semmikeppen ne paste-olj oldalnyi forrast...de ha elkuldod mailben szabadidomben megnezem.

Udv Gadget.

Tedd be, maximum kimoderáljuk, ha túl sok

So it goes… We stand alone by standing stones and turn them into circles.

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... ''

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... ''

Mail ment. Bocs, lusta voltam átnézni, írtam újat... Kérdezz, ha valami nem stimmel

So it goes… We stand alone by standing stones and turn them into circles.

Köszi szépen, amint van időm, áttanulmányozom. Mindenesetre rövid kis program lett az én kuszaságomhoz képest. Köszönöm még egyszer!

'' - Tizenkettőt üt az óra, térjenek márrrrgghhhh... ''

Hello!

Kérdésem a köv. lenne.
Hogy tudok Delphi 7.0-ban nyomtatási felbontást ellenőrizni/módosítani??

THX

UP!

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!

Sajnos a C-hez nem értek, de Delphiben elképzelhető!

Kár De nekem C-ben kéne

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!

Ezt sztem assembly-ben a legegyszerűb megoldani. változó 0ról indul, ciklus: ha páratlan a szám hozáadsz egyet a változóhoz, majd a szám bitjeit eggyel jobbra tolod, és addig csinálod, még el nem fogynak a bitek

Enyémre senki semmit? #223

Köszi mindenkinek, aki segíteni próbált, de közben már sikerült megoldani

valami ilyesmire gondolsz?

DWORD foo(LPCSTR* buf)
{
DWORD count =0;
while((*buf)++) count += (*buf =='1');
return count;
}

vagy ha binaris szamra kell:

DWORD foo(DWORD b)
{
DWORD count;
for(count=0; b; b>>=1)
count +=(b&1);
return count;
}

[Szerkesztve]

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

naaa nézzétek már meg ezt a topikot
ha megnéztétek akkor előző hszt is nézzétek és válaszoljatok

One Ring to rule them all

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.

Hello!

Kérdésem a köv. lenne.
Hogy tudok Delphi 7.0-ban nyomtatási felbontást ellenőrizni/módosítani??

THX

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élem

One Ring to rule them all

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

Szóval: BME, infó, elsőéves, prog1, keresztfélév, házi?

[ RIOS Release 5 – multiportal engine by Panther ]

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!”

köszi
de ebből egy működő progit én nem tok csinálni
vki segítsen pls

One Ring to rule them all

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!”

kösz majd alakul
persze pascalban tök máshogyvan sztem
az a baj, hogy én nem értek hozzá

One Ring to rule them all

jaj segítsetek már midjárt itt az érettségi

[Szerkesztve]

One Ring to rule them all

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…

A feladat szerint van egy vektor két mezővel.

Hülyeséget írtam.

Ó, de finom a vadkörte, más nevén a vackor…

Bocsi.
Probléma megoldva.

Ó, de finom a vadkörte, más nevén a vackor…

Google says : Bővebben: link
Vagy például : Bővebben: link

And As It Is Such, So Also As Such Is It Unto You