Ahojte
prosím vás neviete mi niekto pomocť z programovaím v LAZARUSE. Mam ulohu naprogramovat niečo ako test (v lazaruse).
ULOHA:----- nejak takto by to mallo vyzerať
---- Ma to byt niečo ako test. Otazky si mam napísať do poznámkového bloku (už mám) ma ich byť 10 a ktomu si mam napisat aj odpovede ( ja mam otazky z odpovedami len ano resp. nie ).((PRIKLAD OTáZKY :1. Má EU 28 clenskych statov ? ano/nie
ano))
---- Tak a tieto otázky mi má vypísať do Mema (len neviem ako ich mam tam vypisat bez odpovede tak aby boli v meme len otazky ) to som siuž tiež urobila len mi to po druhom kliknuti na button píše chybu ---takze moj prikaz vyzera takto:

No a teraz som sa tu zasekla neviem čo dalej. Malo by to vezerat tak ze niekto si ten program zapne a napise odpoved a program by mu mal vypisat či je to spravne alebo nie. Len neviem ze ci to mam davat ze ten akoby žiak tu odpoved vypise do esitu alebo neviem. No a nakoniec by to malo aj obodovať ten test čo už ulne nevioem ako urobit lebo nam to v škole nevysvetlovali a na nete nieje otom nič a to som hladala dlho.
----Tak a ja by som potrebovala aspon ak by mi niekto vedel poradit ze ake prikazy by som mohla použit alebo jednoducho pomoct.
----mam len tieto prikazy a akby ste mi mohli pomoct ze coznamenaju čo urobia ak ich zapisem do prikazu
---readln(T,s);
memo1.lines.append(s);
Assignfile(T,'vstup.txt');
Assignfile(V,'vstup.txt');
reset(T);
rewrite(V);

Môžeš to jednoducho urobiť takto:
Otázky vypísané máš, môže byť. Teraz spravíš 10x textové pole, každé pre jednu otázku. Tie textové polia popíšeš (Odpoveď na 1. otázku, odpoveď na 2. otázku atď) - to sa robí pomocou prvku Label.
No a do týchto textových polí sa napíšu odpovede na otázky. Na konci bude jedno tlačítko "Vyhodnoť test", ktorý to oboduje.

Ako na bodovanie, jednoducho - do súboru si daj otázky tak, že otázka na jeden riadok, odpoveď na ňu na druhý riadok, ďalšia otázka na tretí riadok, odpoveď na ňu na štvrtý atď.
Pri načítaní do mema (tam kde máš append v cykle) si načítaš okrem otázok aj odpovede. Otázky dáš do mema (tak ako to je) a odpovede si uložíš do pola (nájdi si polia - Array).

AssignFile ti otvorí súbor na čítanie, to necháš tak. Readln(T,s) ti načíta jeden riadok zo súboru T do premennej s (typu string). Takže načítavať budeš striedavo "otázka odpoveď otázka odpoveď", takto nejako No a nakoniec už len zistíš, koľko odpovedí sa zhoduje s tými v poli poleOdpovedi.

(Toto bude fungovať iba ak bude tých otázok vždy 10. Skús najprv toto a keď to nebude stačiť, tak to rozšíriš)

mne stači tych 10 otazok viac mi netreba
Dakujem ti velmi pekne za pomoc
je to pre mna na porozumenie zložite ale dufam ze pridem nato a ked nie tak neviem čo potom
dakujem za snahu

este by som sa chcelaspytat ze čo je to to textove pole ?? to je Tlabel alebo TEdit či MEMO ??

To je TEdit. TLabel je nejaký popisok, to použi na popis tých textových polí (dáš ho pred textové pole a napíšeš do neho "Odpoveď na otázku č. 1", napríklad)

Ok tak to sim si uz urobila
a ako mam dat tie odpovede do pola ??
a ako mam prepojit odpoved ziaka zo spravnou odpovedou ??

Tie odpovede do mema vôbec nemáš dávať. To máš ošetriť už pri načítaní tak, ako som ti napísal.

ako ošetriť ??
ja tomu nerozumiem


takto ??

procedure TForm1.Button1Click(Sender: TObject);
begin
Assignfile (T,'vstup.txt');
reset (T) ;
while not eof(T) do
begin
readln(T,s);
memo1.lines.append(s);
readln(T, odpoved);
poleOdpovedi[p] := odpoved;
inc(p);
end;
end;

end.

No áno. Len ešte musíš pridať premennú odpoved (typu string) a premennú (pole) poleOdpovedi(typu pole stringov).
Pole v pascale napr: http://www.viliam.bur.sk/sk/2007-11-04/ ... yku-Pascal

ale ved ja nepotrebujem array ked ja mam len odpovede ano a nie ja nemam čisla
myslis to tak ze ak mam otazku v jedom riadku a odpoved v druhom tak tu premennu pouzijem nato aby mi potom citalo len odpovede čize len kazdy druhy riadok bez otazky ??

Pole nie je len na čísla, len tam je to vysvetlené na číslach.
Tak prečítaj si pozorne toto a potom ešte raz to, čo som už poslal.
http://pascal.input.sk/index.php/6.Prednaska

S tým načítaním - áno, do premennej s sa ti načíta otázka a do premennej odpoved sa ti načíta odpoveď (ak je otázka zapísaná v jednom riadku a odpoveď hneď v ďalšom)

Ok ja ti velmi pekne dakujem za snahu mi to vysvetlit aj za pomoc Vazim si to velmi
ale aj tak tomu nechapem

stelinocka napísal:Vazim si to velmi... ale aj tak tomu nechapem

To som predpokladal
Tak teda zájdi za učiteľkou a tá nech ti to vysvetlí. Na to tam je.

Tak za ucitelkov zajst nemôžem lebo ona to vysvetliť nevie ved asi preto sa pýtam tu nie
a aj tak mi to treba na zajtra

Myslím, že keď jej ukážeš snahu, čo máš a čo nevieš, tak ti to vysvetlí.
A ostatní spolužiaci čo?

Ostatny tomu tiez nechapulebo jej vysvetlovanie vyzera asi tak ze povie cobudeme programovat ona to uz ma naprogramovane a my si to len opiseme povie ze okolo toho niečo čomu nechapem čo hovri a koniec hodiny na dalsiu hodinu programujeme ine.
A ak by som zanou sla tak pomne vrieska ze prečo to neviem tak asi preto skusila napisat tu ze mi moznoniekto pomoze

Tak sa zoberte viacerí, čo tomu nechápete a choďte za ňou. Ak nechce učiť, tak nech neučí a potom šup za riaditeľom. Nie je riešením ísť na fórum, nech to urobí niekto iný a problém ďalej ostane problémom.
Kľudne jej ukáž aj túto tému...

Ja som nechcela aby to zamna niekto urobil len som potrebovala pomoc

Vidíš, že som ochotný ti pomôcť, ale je veľký rozdiel medzi vysvetľovaním tu na webe a vysvetľovaním učiteľa osobne.
Učiteľ je ten, ktorý by vám to mal vysvetliť. Ak máš nejaký problém, rád poradím, ale určite ťa tu teraz nejdem učit pascal od nuly s vedomím, že máš ďalších 10 spolužiakov, ktorí majú rovnaký problém. A túto úlohu spravíš a s ďalšou si tu zas. Na to je tam ten učiteľ...

dobre ved ja to chapem

+1 k BX. Systemovy problem treba riesit systemovo, nie hackmi typu pomoze niekto na fore.