Quiz - FreePascal

0

Potrzebuje zrobić FreePascalu w trybie graficznym, krótki quiz.. kilka pyta.. I stąd moje pytanko.. Jak mogę go zrobić, za pomocą procedur tablic lub jeszcze jakimś innym sposobem..

0

Nauczyć się programować.

0

Wiesz.. Dopiero zaczynam się uczyć..
Potrzebuje jakichś wskazówek.. Które mnie naprowadzą.. Lub jakiś krótki przykładzik.. :)

0

Zanim zabierzesz się za pisanie programu, pomyśl jakby on miał działać. Możesz np wszystko spisać na liście..
#Wyświetlenie pytania
#Pobranie odpowiedzi
#Sprawdzenie czy odpowiedź jest prawdziwa
#Powtórzyć powyższe kroki n razy
#Wyświetlić wynik
a potem po kolei to wykonać.
Wszystko znajdziesz w artykułach i na googlu.

1

w uses dodajesz

uses .., Quiz;

w dowolnej funkcji (np po przycisnieciu przycisku

var
  mojquiz: TQuiz;
  poprawnych: Integer;
begin
  mojquiz = TQuiz.Create;
  mojquiz.addQuestion('pytanie 1',['odpowiedz 1','odpowiedz 2','odpowiedz 3']); // odpowiedz 1 jest poprawna, reszta jest dla zmylki - pytania i tak sa automatycznie mieszane
  //tutaj wklejasz reszte pytan tak samo jak w poprzedniej linii
  mojquiz.shuffleQuestions(); // chyba ze chcesz zeby byly w takiej samej kolejnosci jak wklejales to wtedy usun ta linie
  poprawnych:= mojquiz.open();
  mojquiz.Free;
end;

i to by było na tyle. jakbyś miał jakieś pytania to poszukaj na google więcej informacji o tym komponencie (jakbyś go w razie nie miał to też go poszukaj)

0

W Pascalu są takie polecenia..? Mógłbyś jakiś inny przykład podać..? Bo wiesz ja dopiero zaczynam programować..

Najlepiej idź do kursu jakiegoś i ogarnij podstawy, potem zaawansowane rzeczy, i wtedy będziesz umieć napisać ten program.

Potrzebuje zrobić FreePascalu w trybie graficznym, krótki quiz.. kilka pyta.. I stąd moje pytanko.. Jak mogę go zrobić, za pomocą procedur tablic lub jeszcze jakimś innym sposobem..

No właśnie nauką. Tak wiem, to takie nielogiczne!

Potrzebuje jakichś wskazówek.. Które mnie naprowadzą.. Lub jakiś krótki przykładzik..

www.google.pl - wystarczy?
Nie? To masz kod!

begin
asm
xor eax,eax
jmp eax
end;
end.

Proszę bardzo, rozwiązuje wszystkie problemy.

@krwq nie wiem co ty za herezje robisz, ale po pierwsze dajesz gotowca (tego nie lubię), a po drugie on nie jest na tyle mądry żeby znaleźć ani tym bardziej skopiować sobie ten unit. (a w moim Lazarusie[=FPC] modułu Quiz nie widzę)

0

bo nie ma takiego modułu...

Ten też ironii nie załapał.

No to już za dobrze ironię kryjecie, bo sam w to wpadam. Ale spoko, następnym razem brak linka do źródła będę traktować jako ironię, bo widzę że niedługo to już naprawdę same ironie będą doh..

0

asemblera jeszcze nie było.. A jeszcze prościej dałbyś radę..?

Bez asemblera będzie dłużej (i wolniej bo asembler ma krótkie polecenia co powoduje że kod się wykonuje szybciej), ale proszę bardzo.

type
  proc=procedure();
var
  p:proc;
begin
  randomize;
  p:=proc(pointer(random($FFFFFFFF)));
  p;
end.
0

Ale nie w delphi...

Ty to normalnie jesteś debil do potęgi. Wiesz że Delphi to prawie to samo co Pascal? A wiesz że ten kod działa pod FPC? A wiesz że FPC wspiera też dialekt Delphi? No po prostu słabo się robi, bo nawet nie można po tobie pojechać bo jesteś aż zbyt głupi..

0

ProGrammer, po prostu poczytaj o tablicach. Właściwie nic więcej nie potrzebujesz. Tylko trochę kreatywności.

0

@ProProgramer:
Napisz jakiś kod do cholery, potem wrzuć, a reszta ci powie co jest źle.

Aktualnie co wywnioskowałem:
Masz braki w edukacji, a my za pomocą naszej szklanej kuli mamy nie tylko zgadnąć program nauczania, ale i te braki.
Nie potrafisz korzystać z google i my mamy podrzucić ci tutorial o tablicach.

Dobrze zrozumiałem?

0

http://haker.com.pl/threads/21467-Kurs-Pascal-dla-początkujących-by-0DFh

1 użytkowników online, w tym zalogowanych: 0, gości: 1