Jump to content
PirateClub.hu

SixHouse

Veterán
  • Pontszám

    313
  • Csatlakozott

  • Utoljára itt járt

Minden tőle: SixHouse

  1. SixHouse

    c++ gond

    ou hát jó pedig tök nagy örömmel írtam na akkor jó ha minden ok jó lenne nagyon tudni, de azért köszi de megnézném a kódot amivel megoldottátok, ha szabad (csak puszta kíváncsiság). csoki
  2. SixHouse

    c++ gond

    #include <stdio.h> #include <stdlib.h> #include <string.h> class tanulo{ public: int oszt[15]; char *nev; void nev_ert(char *s, int jegy[15]){ int i; nev = (char*) malloc (sizeof(char) * strlen(s)); strcpy(nev,s); for (i = 0; i < 15; i++) oszt[i] = jegy[i]; } }; void kiirat(tanulo x){ int i; printf("%s\n",x.nev); for (i = 0; i < 15; i++) { printf("%d",x.oszt[i]); (i == 14) ? printf("\n") : printf(" "); } } int* valaszok_be(FILE *f){ int i; int *v = (int*) malloc (sizeof(int) * 15); fscanf(f,"%d",&v[0]); for(i = 1; i < 15; i++) fscanf(f," %d",&v[i]); return v; } void volte(int limit, tanulo x, int *jok){ int counter = 0; int j; for (j = 0; j < 15; j++) if (jok[j] == x.oszt[j]) counter++; if (counter >= limit) printf("%s: %d helyes választ adott\n",x.nev,counter); return; } void helyesen(int sz, int *jok, tanulo *tanulok){ int i,k = 0; for (i = 0; i < 3; i++){ if (tanulok[i].oszt[sz] == jok[sz]) { k++; printf("Helyes válasz: %s\n",tanulok[i].nev);} } if (k == 0) printf("Nem volt helyes válaszadó!\n"); } int helyesV(tanulo x, int *jok){ int i,counter = 0; for (i = 0; i < 15; i++){ if (x.oszt[i] == jok[i]) counter++; } return counter; } int main(){ int i,d; int *jovalaszok, *valaszok; char nev[256]; char k; tanulo tanulok[3]; FILE *f = fopen("teszt.txt","r"); for (i = 0; i < 3; i++){ d = 0; do{ k = fgetc(f); if (k != '\n')nev[d++] = k; nev[d] = '\0'; }while ((k != '\n') && (k != '\0')); valaszok = valaszok_be(f); tanulok[i].nev_ert(nev,valaszok); fgetc(f);//megálltunk a sor végén ezért átugorjuk még az utsó karaktert } fclose(f); f = fopen("megoldas.txt","r"); jovalaszok = valaszok_be(f); fclose(f); for (i= 0; i< 15; i++) { printf("%d",jovalaszok[i]); (i == 14) ? printf("\n") : printf(" "); } for (i = 0; i < 3; i++) kiirat(tanulok[i]); for (i = 0; i < 3; i++) volte(15,tanulok[i],jovalaszok); for (i = 0; i < 3; i++) volte(13,tanulok[i],jovalaszok); fflush(stdin); printf("Feladat sorszána: "); scanf("%d",&d); helyesen((d-1),jovalaszok,tanulok); for (i = 0; i < 3; i++) { printf("%s: %d\n",tanulok[i].nev,helyesV(tanulok[i],jovalaszok)); } system("pause"); free(jovalaszok); free(valaszok); return 0; } Unatkoztam, ez alapján már a statot meg tudod csinálni sztem. Kipróbáltam de tüzetesen nem teszteltem le.(értsd lehetnek benne hibák) A puding próbája hogy megeszik na majd írsz most dolgom van. Tejcsokoládés csőtészta.
  3. SixHouse

    c++ gond

    Nem sok kedvem van nekiülni. Mi az ami nem megy? Jah amúgy a bekérjük a tanuló nevét és az lesz a txt neve is? szerk:jó korán keltél barátom XD
  4. SixHouse

    c++ gond

    Attól nem acces violationt kellene hogy kapj. Akkor csak rossz eredményt kapnál mert a változód a következő ciklusban ugyanazt az értéket kapná meg ami az előző bekérésnél/olvasáskor volt. Címzéshibára tudok gondolni, csak az a fura hogy dev c++ ban tökéletesen fut .
  5. SixHouse

    c++ gond

    Javíts ki ha tévednék, egy egyszerű példa:char f[2]; ilyenkor elérhető memória címek: f[0] = 'j'; f[1] = 'ó'; szal ha ilyenkor f[2] re hivatkozol és az pont egy protected(most csak mondtam egy példát) memória cím, akkor jönnek az acces vilation-ok. szal kedd[0] és kedd[1] Nézd meg hátha
  6. SixHouse

    segítség pascalba

    procedure stringalakito(sztringem:string; karakter:char; csere:char); var i:integer; Begin for i := 1 to length(sztringem) do Begin if sztringem[i] = karakter then sztringem[i] := csere; End; End; Ebben az eljárásban, ennek is a fej részében találhatók a formális paraméterek: a főprogramban: {s:string; c,d:char;} stringatalakito(s,c,d); Ebben a részben hívjuk meg az eljárást és átadjuk neki az aktuális paramétereket: Ezeket a parmétereket "helyettesíti" be a formálisok helyére. Próbáltam érthetően, remélem segít valamit.
  7. SixHouse

    Visual Basic

    Ez akkor rendezés? vagy én vagyok sült... :S
  8. SixHouse

    Visual Basic

    http://www.remenyikzs.sulinet.hu/Segedlet/ALGORITM/Osszefut.htm Át kell írni pascalról, de meg van fogalmazva a tétel szépen, sztem ezzel meg tudod oldani.
  9. SixHouse

    segítség pascalba

    !*! = 'van,' program shooter; uses crt; var shot:boolean; BEGIN clrscr; shot := false; if not(shot) then Write('no shooting');
  10. SixHouse

    Ötletek A Fórumhoz

    Ezeket sztem azért nem kellene törölni, mert ha végre mindenki megtanulja használni a keresőt, akkor talán nem nyitnak 60 új topicot annak amit már 59 szer megoldottunk...és egyszer talán mindenki megvilágosodik...
  11. SixHouse

    Visual Basic

    Sztem megijesztettük
  12. SixHouse

    Ötletek A Fórumhoz

    Olvass visszább Syst3m...
  13. SixHouse

    Off topic

    Volt mára egy kis semmittevés... de elhalasztottam 2 nappal... így van 3 napom zsír
  14. SixHouse

    Visual Basic

    Aki ezek alapján neked segíteni tud...
  15. SixHouse

    segítség pascalba

    Ha jól tudom a műveleti jelek közt is vannak megfeleltetések, tehát a +,-,*,/ stb. valamijen operácó ami és, vagy, kizáró vagy na ezeket kellene kideríteni hogy melyik műveleti jel milyen logikai "döntést" hordoz és utána már sztem nem nehéz. Na talán ezen el tudsz indulni: http://www.tankonyvtar.hu/main.php?objectID=5318361
  16. SixHouse

    Alapok

    Juj, mert delphi 7 nekem delphi 2007 van codegear http://www.pirateclub.hu/index.php?showtop...amp;hl=codegear Azt a paracsot biztosan nem ismeri, de a tobbit elvileg ismernie kell, hacsak nem a controlokal lesz baja vedd ki azt a sort és kész az nem lényeges, annyi a szerepe hogy a mainform neve legyen a tálcán vagy a programé...
  17. SixHouse

    Alapok

    Helló újra! Csináltam unalmamban egy kis oktató progit tök zsír lett sztem, látod a dolgok menetét benne, remélem hasznos lesz, én tök jót szórakoztam vele míg megírtam . törölve csoki
  18. SixHouse

    Alapok

    Kell legyen a formon 3db edit control. (Tedit) Ezeket ha nem nevezed át edit1,edit2 és edit 3 lesz a nevük.(edit1 és edit2 összege kerül bele a 3. editbe edit3 ) ...uses SysUtils;... Az onclick eljárásban: ... ... Így működik elvileg bár fordító nélkül utálok programozni, de asszem igy jó. A lényeg ugyebár hogy string tipusból szeretnénk számot: val az edit control oknak több property-jük is van ezért hivatkozni kell a szöveg részre ".text" val-ról többet: http://www.delphibasics.co.uk/RTL.asp?Name=Val inttostr-ről: http://www.delphibasics.co.uk/RTL.asp?Name=IntToStr hát remélem így nagyjából érthető, persze megoldható sokkal hatékonyabban is, de ez most nem célszerű egyenlőre csoki
  19. SixHouse

    Alapok

    http://prog.hu/site/text/articles/lang/delphi2-1.gif ez az a kép amit Robinho11 verbálisan leírt {a legtöbb vizuális eszközre ha duplán rákattintasz, akkor a delphi neked automatikusan deklarálja a hozzá tartozó standard eseményt: gomb:onclick; edit:onchange, timer:ontimer, form:oncreate...}
  20. SixHouse

    segítség pascalba

    Hi! Ennyi a feladatleírás? Ez alapján Én ilyesmire gondolok: Sztem ennyi a feladat. vagy eddig te is eljutottál csak nincs ötleted hogyan írd meg?
  21. SixHouse

    Röhögőgörcs gyűjtemény

    A kisgyerek a legnagyobb, a kifutóson is jót kacagtam köszi
  22. SixHouse

    Pascalban Ceasar kódoló

    szerk: még ezzel agészítsd ki: ezen már ne bukj el nehogy a tesztelő nagy betűt toljon be ezt elfelejtettem .
×
×
  • Create New...