| | |
| Stránka: 1 z 1
| [ Príspevkov: 4 ] | |
Autor | Správa |
---|
Registrovaný: 09.12.10 Prihlásený: 23.01.11 Príspevky: 7 Témy: 3 | Napísal hogger: 23.01.2011 21:41 | |
|
Mohol by niekto vysvetlit vyznam tohoto? to nacitavanie zo suboru? preco sa tam priraduje to pom? a aj preco tam je g:=(60*k)+(6*l)+1; napr
Kód: repeat k:=0; o:='0'; repeat assign (f,'Subory\otazky.txt'); reset(f); randomize; l:=random(10)+1; g:=(60*k)+(6*l)+1; n:=o; n:=premena(n); setcolor(2); settextstyle(1,0,6); outtextxy (170,140,'Otazka c.');outtextxy(415,140,n); for i:=1 to 900 do begin readln(f,pom); if i=g then otazka:=pom; if i=g+1 then a:=pom; if i=g+2 then b:=pom; if i=g+3 then c:=pom; if i=g+4 then d:=pom; if i=g+5 then so:=pom; end; close(f); assign (e,'subory\vyhry.txt'); reset(e); t:=k*3; for i:=1 to 45 do begin readln(e,pom); if i=t+1 then pvyhra:=pom; if i=t+2 then vyhra:=pom; if i=t+3 then kvyhra:=pom; end;
|
|
Registrovaný: 01.04.10 Prihlásený: 08.10.11 Príspevky: 339 Témy: 0 | Napísal Forty-: 23.01.2011 23:19 | |
|
tazko povedat
niekto tie premenne nazval strasne uboho, nikde ziadny komentar, netusime co je v suboroch a tak
|
|
Registrovaný: 09.12.10 Prihlásený: 23.01.11 Príspevky: 7 Témy: 3 | Napísal autor témy hogger: 24.01.2011 0:04 | |
|
no tam su otazky....... ale myslim ze tomu pom pririadi hodnotu daneho riadku
|
|
Registrovaný: 03.01.11 Prihlásený: 21.02.11 Príspevky: 54 Témy: 1 |
to pom je tam preto, lebo nevie dopredu do ktorej premennej chce nacitat konkretny riadok. Nacita to do pomocnej, a tu potom priradi tam kde treba (do otazky, do jednej z moznosti alebo do spravnej odpovede)
cast g:=(60*k)+(6*l)+1; na ktoru sa pytas vybera nahodnu otazku. Cely ten algoritmus je ale zle spraveny, a navyse si to sem dal nekompletne. Dal si cyklus repeat ale nedal si jeho koniec (tak nevidno ako sa zvysuje k) a okrem toho cyklus kde priraduje otazku, moznosti a spravnu moznost mas od 1 do 900 a stale si prepisujes tie iste premenne, takze to robis 899 krat zbytocne
|
|
| Stránka: 1 z 1
| [ Príspevkov: 4 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Free Pascal a Turbo Pascal v Assembler, C, C++, Pascal, Java | 0 | 385 | 19.12.2014 13:18 Styracoz | | pascal... v Assembler, C, C++, Pascal, Java | 5 | 906 | 18.10.2008 19:02 redog | | pascal v Assembler, C, C++, Pascal, Java | 11 | 1289 | 07.04.2007 16:50 programator | | pascal v Assembler, C, C++, Pascal, Java | 2 | 573 | 24.06.2010 20:17 KatjushaMan | | pascal v Assembler, C, C++, Pascal, Java | 0 | 704 | 03.05.2009 12:35 ebb | | Pascal [ Choď na stránku: 1, 2 ] v Assembler, C, C++, Pascal, Java | 40 | 1472 | 11.12.2016 22:08 viki | | pascal v Assembler, C, C++, Pascal, Java | 2 | 1106 | 09.03.2007 14:08 misolax | | pascal v Assembler, C, C++, Pascal, Java | 6 | 731 | 08.01.2009 17:45 majka090 | | Pascal v Assembler, C, C++, Pascal, Java | 7 | 832 | 14.05.2011 20:04 F3RY | | Pascal v Assembler, C, C++, Pascal, Java | 7 | 632 | 09.10.2011 21:30 F3RY | | Pascal v Assembler, C, C++, Pascal, Java | 4 | 2066 | 01.03.2018 8:02 MTK | | pascal v Assembler, C, C++, Pascal, Java | 19 | 3060 | 30.04.2007 19:54 nikita | | PASCAL - pesnicka v Assembler, C, C++, Pascal, Java | 0 | 698 | 11.05.2008 13:09 Zdravotnik | | pascal skuska v Assembler, C, C++, Pascal, Java | 2 | 597 | 30.01.2008 17:46 alex7625 | | Pascal HELP v Assembler, C, C++, Pascal, Java | 13 | 599 | 07.10.2012 10:58 faraon | | turbo pascal v Assembler, C, C++, Pascal, Java | 10 | 571 | 08.05.2013 21:06 Gregi555 |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|