hlmod.hu

Magyar Half-Life Mód közösség!
Pontos idő: 2025.10.11. 22:14

Megválaszolatlan témák | Aktív témák



» » »


Navigáció
Jelenlévő felhasználók

Jelenleg 296 felhasználó van jelen :: 0 regisztrált, 0 rejtett és 296 vendég

A legtöbb felhasználó (2883 fő) 2025.07.30. 16:00-kor tartózkodott itt.

Regisztrált felhasználók: nincs regisztrált felhasználóaz elmúlt 5 percben aktív felhasználók alapján

Utoljára aktív
Ahhoz hogy lásd ki volt utoljára aktív, be kell jelentkezned.



Az oldal teljeskörű
használatához regisztrálj.

Regisztráció

Kereső


Új téma nyitása Hozzászólás a témához  Oldal: 1361 / 3931
  [39309 hozzászólás ]  OldalElőző1…13591360136113621363…3931Következő
 Nyomtatóbarát verzió |Barát értesítése e-mailben Előző téma | Következő téma 
Szerző Üzenet
Metal
 Hozzászólás témája: Re: Írj! - Offtopik
HozzászólásElküldve:2013.04.18. 16:11 
Offline
Imperátor
Avatar

Csatlakozott:2009.04.21. 09:33
Hozzászólások:3991
Megköszönt másnak: 5 alkalommal
Megköszönték neki: 135 alkalommal
Are you kidding me??

SMA Forráskód: [ Mindet kijelol ]
  1. #include <amxmodx>
  2.  
  3. public plugin_init()
  4. {
  5. 	register_plugin("Sajt", "1.0", "Metal")
  6. 	register_srvcmd("sajt", "cmdSajt")
  7. }
  8.  
  9. public cmdSajt()
  10. {
  11. 	log_amx("Valaki hasznalta a sajt parancsot.");
  12.  
  13. 	return PLUGIN_HANDLED;
  14. }
  15.  


Silent írta:
Mocsy, pixxa most lett elegem mindkettőtökből. Elmondtam, hogy nem akarok még egy ilyet. Kaptok 3nap pihenőt, vagy ha olyat nem lehet, akkor egy hetet és majd gondolkozok, hogy mikor oldom fel.

Metal:
Akkor írj egy plugint ami a "sajt" konzol parancsra, logolja az amx,hogy "Valaki hasznalta a sajt parancsot.".
Te írd meg, programot nem használhatsz, kivéve egy szabadon választott szövegszerkesztőt.
Végeredményt csatold :)

_________________
Kód:
I'm back

Kép


Hozzászólás jelentése
Vissza a tetejére
   
Hozzászólás az előzmény idézésével  
IrOn
 Hozzászólás témája: Re: Írj! - Offtopik
HozzászólásElküldve:2013.04.18. 16:13 
Offline
Tiszteletbeli

Csatlakozott:2010.02.04. 19:12
Hozzászólások:3528
Megköszönt másnak: 26 alkalommal
Megköszönték neki: 180 alkalommal
Silent írta:
1.feladat
Telefonról, teszt nem volt.
Ha valami nemjó, írj, életem második programja pascalban.. :/ :D
Az tömbben nem vagyok biztos, hogy így kell..tippeltem :D

SMA Forráskód: [ Mindet kijelol ]
  1.  
  2. program virtualnak;
  3. var a:array[1..n] of integer;
  4.     i,sum,min,max,n:integer;
  5.     avr:real;
  6.  
  7. begin
  8.     WriteLn("Helloka");
  9.     WriteLn("Mennyi nap?");
  10.     ReadLn(n);
  11.     sum:=0;
  12.     for i:=1 to n do
  13.     begin
  14.      writeln(i, ". nap?");
  15.      ReadLn(a[i]);
  16.      sum:= sum+a[i];
  17.     end;
  18.     WriteLn("Tenkju");
  19.     min = a[1];
  20.     max = a[1];
  21.     for i:=2 to n do
  22.     begin
  23.      if a[i]<min then min:=a[i];
  24.      if a[i]>max then max:=a[i];
  25.     end;
  26.     WriteLn("Legkisebb: ", min);
  27.     WriteLn("Legnagyobb: ", max);
  28.     avr:=sum/n;
  29.     WriteLn("Atlaghom.: ",avr:0:2);
  30.     for i:=1 to n do
  31.     begin
  32.     if a[i] > avr then WriteLn("Az", i, ". napon magasabb volt.");
  33.     end;
  34. end;
  35.  

Nem jó, n valtozot mar elejen meg kene adni, es jobb lenne konstansként

_________________
http://www.ebateam.eu/


Hozzászólás jelentése
Vissza a tetejére
   
Hozzászólás az előzmény idézésével  
Silent
 Hozzászólás témája: Re: Írj! - Offtopik
HozzászólásElküldve:2013.04.18. 16:15 
Offline
Signore Senior
Avatar

Csatlakozott:2011.09.09. 17:39
Hozzászólások:4020
Megköszönt másnak: 12 alkalommal
Megköszönték neki: 139 alkalommal
Metal írta:
Are you kidding me??

SMA Forráskód: [ Mindet kijelol ]
  1. #include <amxmodx>
  2.  
  3. public plugin_init()
  4. {
  5. 	register_plugin("Sajt", "1.0", "Metal")
  6. 	register_srvcmd("sajt", "cmdSajt")
  7. }
  8.  
  9. public cmdSajt()
  10. {
  11. 	log_amx("Valaki hasznalta a sajt parancsot.");
  12.  
  13. 	return PLUGIN_HANDLED;
  14. }
  15.  


Silent írta:
Mocsy, pixxa most lett elegem mindkettőtökből. Elmondtam, hogy nem akarok még egy ilyet. Kaptok 3nap pihenőt, vagy ha olyat nem lehet, akkor egy hetet és majd gondolkozok, hogy mikor oldom fel.

Metal:
Akkor írj egy plugint ami a "sajt" konzol parancsra, logolja az amx,hogy "Valaki hasznalta a sajt parancsot.".
Te írd meg, programot nem használhatsz, kivéve egy szabadon választott szövegszerkesztőt.
Végeredményt csatold :)


This is just a simple source code, but not a plugin. That's why I said, you can't WRITE a plugin.. Only a compiler can do it. :DD
ps: Hagyjuk az angolt :DD


Hozzászólás jelentése
Vissza a tetejére
   
Hozzászólás az előzmény idézésével  
Silent
 Hozzászólás témája: Re: Írj! - Offtopik
HozzászólásElküldve:2013.04.18. 16:17 
Offline
Signore Senior
Avatar

Csatlakozott:2011.09.09. 17:39
Hozzászólások:4020
Megköszönt másnak: 12 alkalommal
Megköszönték neki: 139 alkalommal
Iron ezt mondtam, hogy ezt nem tudom hogy kellene. Legtöbbször ugye konstansként van megadva az elemszám, de ha felhasználótól kéred be, az már nem lehet konstans.. Nem csináltam még ilyet.


Hozzászólás jelentése
Vissza a tetejére
   
Hozzászólás az előzmény idézésével  
Metal
 Hozzászólás témája: Re: Írj! - Offtopik
HozzászólásElküldve:2013.04.18. 16:20 
Offline
Imperátor
Avatar

Csatlakozott:2009.04.21. 09:33
Hozzászólások:3991
Megköszönt másnak: 5 alkalommal
Megköszönték neki: 135 alkalommal
Silent, suliban tanítanak? Első ránézésre a program helyes, sőt, progtételt is használsz.
Jó lett.
Annyit esetleg, hogy a végén a
Kód:
if a[i] > avr then

nál
Kód:
>=

operátort használj, hisz amelyik elérte, az is kiírandó.

Természetesen több magas hőmérséklet esetén csak az elsőt írja ki, de cilusba rendezve mindet ki tudod majd iratni

Silent írta:
1.feladat
Telefonról, teszt nem volt.
Ha valami nemjó, írj, életem második programja pascalban.. :/ :D
Az tömbben nem vagyok biztos, hogy így kell..tippeltem :D

SMA Forráskód: [ Mindet kijelol ]
  1.  
  2. program virtualnak;
  3. var a:array[1..n] of integer;
  4.     i,sum,min,max,n:integer;
  5.     avr:real;
  6.  
  7. begin
  8.     WriteLn("Helloka");
  9.     WriteLn("Mennyi nap?");
  10.     ReadLn(n);
  11.     sum:=0;
  12.     for i:=1 to n do
  13.     begin
  14.      writeln(i, ". nap?");
  15.      ReadLn(a[i]);
  16.      sum:= sum+a[i];
  17.     end;
  18.     WriteLn("Tenkju");
  19.     min = a[1];
  20.     max = a[1];
  21.     for i:=2 to n do
  22.     begin
  23.      if a[i]<min then min:=a[i];
  24.      if a[i]>max then max:=a[i];
  25.     end;
  26.     WriteLn("Legkisebb: ", min);
  27.     WriteLn("Legnagyobb: ", max);
  28.     avr:=sum/n;
  29.     WriteLn("Atlaghom.: ",avr:0:2);
  30.     for i:=1 to n do
  31.     begin
  32.     if a[i] > avr then WriteLn("Az", i, ". napon magasabb volt.");
  33.     end;
  34. end;
  35.  

_________________
Kód:
I'm back

Kép


Hozzászólás jelentése
Vissza a tetejére
   
Hozzászólás az előzmény idézésével  
Metal
 Hozzászólás témája: Re: Írj! - Offtopik
HozzászólásElküldve:2013.04.18. 16:22 
Offline
Imperátor
Avatar

Csatlakozott:2009.04.21. 09:33
Hozzászólások:3991
Megköszönt másnak: 5 alkalommal
Megköszönték neki: 135 alkalommal
Are you kidding me (II)??

Ez most kb olyan h csinálj egy Excel táblázatot Excel nélkül...



Silent írta:
Metal írta:
Are you kidding me??

SMA Forráskód: [ Mindet kijelol ]
  1. #include <amxmodx>
  2.  
  3. public plugin_init()
  4. {
  5. 	register_plugin("Sajt", "1.0", "Metal")
  6. 	register_srvcmd("sajt", "cmdSajt")
  7. }
  8.  
  9. public cmdSajt()
  10. {
  11. 	log_amx("Valaki hasznalta a sajt parancsot.");
  12.  
  13. 	return PLUGIN_HANDLED;
  14. }
  15.  


Silent írta:
Mocsy, pixxa most lett elegem mindkettőtökből. Elmondtam, hogy nem akarok még egy ilyet. Kaptok 3nap pihenőt, vagy ha olyat nem lehet, akkor egy hetet és majd gondolkozok, hogy mikor oldom fel.

Metal:
Akkor írj egy plugint ami a "sajt" konzol parancsra, logolja az amx,hogy "Valaki hasznalta a sajt parancsot.".
Te írd meg, programot nem használhatsz, kivéve egy szabadon választott szövegszerkesztőt.
Végeredményt csatold :)


This is just a simple source code, but not a plugin. That's why I said, you can't WRITE a plugin.. Only a compiler can do it. :DD
ps: Hagyjuk az angolt :DD

_________________
Kód:
I'm back

Kép


Hozzászólás jelentése
Vissza a tetejére
   
Hozzászólás az előzmény idézésével  
Silent
 Hozzászólás témája: Re: Írj! - Offtopik
HozzászólásElküldve:2013.04.18. 16:23 
Offline
Signore Senior
Avatar

Csatlakozott:2011.09.09. 17:39
Hozzászólások:4020
Megköszönt másnak: 12 alkalommal
Megköszönték neki: 139 alkalommal
Metal írta:
Silent, suliban tanítanak? Első ránézésre a program helyes, sőt, progtételt is használsz.
Jó lett.
Annyit esetleg, hogy a végén a
Kód:
if a[i] > avr then

nál
Kód:
>=

operátort használj, hisz amelyik elérte, az is kiírandó.

Természetesen több magas hőmérséklet esetén csak az elsőt írja ki, de cilusba rendezve mindet ki tudod majd iratni

Silent írta:
1.feladat
Telefonról, teszt nem volt.
Ha valami nemjó, írj, életem második programja pascalban.. :/ :D
Az tömbben nem vagyok biztos, hogy így kell..tippeltem :D

SMA Forráskód: [ Mindet kijelol ]
  1.  
  2. program virtualnak;
  3. var a:array[1..n] of integer;
  4.     i,sum,min,max,n:integer;
  5.     avr:real;
  6.  
  7. begin
  8.     WriteLn("Helloka");
  9.     WriteLn("Mennyi nap?");
  10.     ReadLn(n);
  11.     sum:=0;
  12.     for i:=1 to n do
  13.     begin
  14.      writeln(i, ". nap?");
  15.      ReadLn(a[i]);
  16.      sum:= sum+a[i];
  17.     end;
  18.     WriteLn("Tenkju");
  19.     min = a[1];
  20.     max = a[1];
  21.     for i:=2 to n do
  22.     begin
  23.      if a[i]<min then min:=a[i];
  24.      if a[i]>max then max:=a[i];
  25.     end;
  26.     WriteLn("Legkisebb: ", min);
  27.     WriteLn("Legnagyobb: ", max);
  28.     avr:=sum/n;
  29.     WriteLn("Atlaghom.: ",avr:0:2);
  30.     for i:=1 to n do
  31.     begin
  32.     if a[i] > avr then WriteLn("Az", i, ". napon magasabb volt.");
  33.     end;
  34. end;
  35.  


Ciklusban van.


Hozzászólás jelentése
Vissza a tetejére
   
Hozzászólás az előzmény idézésével  
Metal
 Hozzászólás témája: Re: Írj! - Offtopik
HozzászólásElküldve:2013.04.18. 16:23 
Offline
Imperátor
Avatar

Csatlakozott:2009.04.21. 09:33
Hozzászólások:3991
Megköszönt másnak: 5 alkalommal
Megköszönték neki: 135 alkalommal
Ez igaz.
Ilyenkor beteszed az egészet egy declare-begin-end blokkba :)



Silent írta:
Iron ezt mondtam, hogy ezt nem tudom hogy kellene. Legtöbbször ugye konstansként van megadva az elemszám, de ha felhasználótól kéred be, az már nem lehet konstans.. Nem csináltam még ilyet.

_________________
Kód:
I'm back

Kép


Hozzászólás jelentése
Vissza a tetejére
   
Hozzászólás az előzmény idézésével  
Metal
 Hozzászólás témája: Re: Írj! - Offtopik
HozzászólásElküldve:2013.04.18. 16:24 
Offline
Imperátor
Avatar

Csatlakozott:2009.04.21. 09:33
Hozzászólások:3991
Megköszönt másnak: 5 alkalommal
Megköszönték neki: 135 alkalommal
Látom, de minimumot akartam írni. Van két minimum, akkor az elsőt fogja kiírni.


Silent írta:
Metal írta:
Silent, suliban tanítanak? Első ránézésre a program helyes, sőt, progtételt is használsz.
Jó lett.
Annyit esetleg, hogy a végén a
Kód:
if a[i] > avr then

nál
Kód:
>=

operátort használj, hisz amelyik elérte, az is kiírandó.

Természetesen több magas hőmérséklet esetén csak az elsőt írja ki, de cilusba rendezve mindet ki tudod majd iratni

Silent írta:
1.feladat
Telefonról, teszt nem volt.
Ha valami nemjó, írj, életem második programja pascalban.. :/ :D
Az tömbben nem vagyok biztos, hogy így kell..tippeltem :D

SMA Forráskód: [ Mindet kijelol ]
  1.  
  2. program virtualnak;
  3. var a:array[1..n] of integer;
  4.     i,sum,min,max,n:integer;
  5.     avr:real;
  6.  
  7. begin
  8.     WriteLn("Helloka");
  9.     WriteLn("Mennyi nap?");
  10.     ReadLn(n);
  11.     sum:=0;
  12.     for i:=1 to n do
  13.     begin
  14.      writeln(i, ". nap?");
  15.      ReadLn(a[i]);
  16.      sum:= sum+a[i];
  17.     end;
  18.     WriteLn("Tenkju");
  19.     min = a[1];
  20.     max = a[1];
  21.     for i:=2 to n do
  22.     begin
  23.      if a[i]<min then min:=a[i];
  24.      if a[i]>max then max:=a[i];
  25.     end;
  26.     WriteLn("Legkisebb: ", min);
  27.     WriteLn("Legnagyobb: ", max);
  28.     avr:=sum/n;
  29.     WriteLn("Atlaghom.: ",avr:0:2);
  30.     for i:=1 to n do
  31.     begin
  32.     if a[i] > avr then WriteLn("Az", i, ". napon magasabb volt.");
  33.     end;
  34. end;
  35.  


Ciklusban van.

_________________
Kód:
I'm back

Kép


Hozzászólás jelentése
Vissza a tetejére
   
Hozzászólás az előzmény idézésével  
Silent
 Hozzászólás témája: Re: Írj! - Offtopik
HozzászólásElküldve:2013.04.18. 16:27 
Offline
Signore Senior
Avatar

Csatlakozott:2011.09.09. 17:39
Hozzászólások:4020
Megköszönt másnak: 12 alkalommal
Megköszönték neki: 139 alkalommal
Metal írta:
Látom, de minimumot akartam írni. Van két minimum, akkor az elsőt fogja kiírni.


Silent írta:
Metal írta:
Silent, suliban tanítanak? Első ránézésre a program helyes, sőt, progtételt is használsz.
Jó lett.
Annyit esetleg, hogy a végén a
Kód:
if a[i] > avr then

nál
Kód:
>=

operátort használj, hisz amelyik elérte, az is kiírandó.

Természetesen több magas hőmérséklet esetén csak az elsőt írja ki, de cilusba rendezve mindet ki tudod majd iratni

Silent írta:
1.feladat
Telefonról, teszt nem volt.
Ha valami nemjó, írj, életem második programja pascalban.. :/ :D
Az tömbben nem vagyok biztos, hogy így kell..tippeltem :D

SMA Forráskód: [ Mindet kijelol ]
  1.  
  2. program virtualnak;
  3. var a:array[1..n] of integer;
  4.     i,sum,min,max,n:integer;
  5.     avr:real;
  6.  
  7. begin
  8.     WriteLn("Helloka");
  9.     WriteLn("Mennyi nap?");
  10.     ReadLn(n);
  11.     sum:=0;
  12.     for i:=1 to n do
  13.     begin
  14.      writeln(i, ". nap?");
  15.      ReadLn(a[i]);
  16.      sum:= sum+a[i];
  17.     end;
  18.     WriteLn("Tenkju");
  19.     min = a[1];
  20.     max = a[1];
  21.     for i:=2 to n do
  22.     begin
  23.      if a[i]<min then min:=a[i];
  24.      if a[i]>max then max:=a[i];
  25.     end;
  26.     WriteLn("Legkisebb: ", min);
  27.     WriteLn("Legnagyobb: ", max);
  28.     avr:=sum/n;
  29.     WriteLn("Atlaghom.: ",avr:0:2);
  30.     for i:=1 to n do
  31.     begin
  32.     if a[i] > avr then WriteLn("Az", i, ". napon magasabb volt.");
  33.     end;
  34. end;
  35.  


Ciklusban van.


Minimumnak és maximumnak az értékét írja ki, abból meg csak egy lehet. Az egy másik dolog, hogy két elemnek ugyanaz az értéke.


Hozzászólás jelentése
Vissza a tetejére
   
Hozzászólás az előzmény idézésével  
Hozzászólások megjelenítése: Rendezés 
Új téma nyitása Hozzászólás a témához  Oldal: 1361 / 3931
  [39309 hozzászólás ]  OldalElőző1…13591360136113621363…3931Következő

» » »


Ki van itt

Jelenlévő fórumozók: nincs regisztrált felhasználó valamint 4 vendég

Nyithatsz új témákat ebben a fórumban.
Válaszolhatsz egy témára ebben a fórumban.
Nem szerkesztheted a hozzászólásaidat ebben a fórumban.
Nem törölheted a hozzászólásaidat ebben a fórumban.
Nem küldhetsz csatolmányokat ebben a fórumban.

Keresés:
Ugrás:  
Powered by phpBB® Forum Software © phpBB Limited
Magyar fordítás © Magyar phpBB Közösség
Portal: Kiss Portal Extension © Michael O'Toole