Cześć!
Dostałem polecenie przygotowania jakiegoś testu w pascalu na dni otwarte w swoim liceum i teoretycznie wykonałem taki test, jednak zastanawiam się nad:
Program jest w załączniku. Nie chciałem dodawać 360 linijek tekstu do tematu, 'spoiler' nie działał. Będę wdzięczny za każdą pomoc i wszystkie wskazówki, jakie od Was otrzymam.
Jeśli pomyliłem działy, proszę o przeniesienie tematu.
Dzięki za pomoc, pozdrawiam! (:
Ten program to jakaś porażka.
Napisz go od nowa, porządnie.
Obiektowo, korzystając z tablic itd.
Pytania zapisz w pliku rekordowym, machnij sobie programik do tworzenia takiego pliku i wczytuj do programu.
type
TQuestion = record
Question : String[40];
Answer : Array[0..2] of String[40];
correct : Byte;
end;
var
Questions : Array of TQuestion
Da Ci to możliwość zwiększenia ilości pytań do bardzo dużej ilości bez mozolnego klepania kodu. I przy okazji używania pola correct wywalisz 3 procedury sprawdzania czy odpowiedź jest poprawna i zamienisz to na jedną funkcję.
A ja i tak bym to ładnie w klasę obudował.
To tak na szybko co wymyśliłem.
Edit:
i zgadzam się z przedmówcą.
Niestety, powiem wam szczerze, że nie przerabiałem jeszcze używania dodatkowych programów w Pascalu, jestem na względnie wczesnym etapie edukacji. Klas także nie przerabiałem, ba!, dopiero pliki zacząłem, więc prosiłbym raczej o jakieś w miarę proste do zrealizowania porady. Zdaję sobie sprawę, iż nie jest to wysoki poziom programowania, jednak, jak już mówiłem, jestem jeszcze na wczesnym etapie edukacji.
Pola correct też nie przerabiałem jeszcze, jednak wydaje mi się, iż możesz mieć rację z tym, iż należałoby zamknąć sprawdzanie poprawności odpowiedzi w funkcji.
Użyję wyszukiwarki forum za Ciebie. Proszę oto lista linków które Ci mogą pomóc w ulepszeniu programu:
http://4programmers.net/Forum/Newbie/138478-losowanie_pytan
http://4programmers.net/Forum/Delphi_Pascal/198310-problem_z_powtarzaniem_pytan
http://4programmers.net/Forum/Newbie/198147-quiz_-_co_jeszcze_zrobic
Deklarowanie tablicy ktorej dlugosc zalezy od inputu
Wczytywanie rekordu z pliku
Zapisywanie rekord do pliku oraz ich odczyt w programie.
http://4programmers.net/Forum/Delphi_Pascal/136762-odczyt_wartosci_z_pliku_rekordowego_i_przekazanie_do_procedury
http://4programmers.net/Forum/Delphi_Pascal/208314-freepascal_-_zapis_i_odczyt_typu_rekordowego_do_pliku
http://4programmers.net/Forum/Newbie/132683-edycja_rekordow_w_pliku
Plus użyję jeszcze googla za Ciebie. Proszę lista pomocnych linków:
http://turbo-pascal.lubi.pl/l3.htm
http://turbopascal.helion.pl/r-07.htm
http://turbopascal.helion.pl/r-19.htm
http://pascal.kurs-programowania.pl/turbo_pascal,rekordy_i_wska%C5%BAniki.html
http://www.unit1.pl/450,txt
http://turbopascal.helion.pl/r-14.htm
http://turbopascal.helion.pl/index.htm
http://www.pascal.eu.org/
I na dodatek jeśli byś pisał w turbo pascalu to kolejne trzy linki:
http://www.freepascal.org/
http://www.lazarus.freepascal.org/
http://pl.wikipedia.org/wiki/Lazarus
GOOGLE NIE BOLI!!!
Czuję się nieco żałosny w związku z tym, co tutaj odwaliłem :P
Jednak dziękuję Wam bardzo za pomoc, a szczególnie Tobie, @babubabu (: Postaram się go jakoś ulepszyć i jutro/pojutrze wstawię go tutaj, aby pokazać Wam kolejną wersję [beta v2?] (: