Treść zadania

Anastradamus

witam może ktoś mi pomóc z tym cytuje To ma być program napisany w Turbo Pascalu. Program test zadaje 5 losowych pytań (ogólnie musi ich być minimum 15 ). Sposób ich zapisywania jest dowolny . program do każdego pytania zadaje 4 odpowiedzi (a,b,c,d). po wybraniu odpowiedzi przez użytkownika program wyświetla prawidłową odpowiedz. Na końcu program pokazuje ilość zdobytych punktów. Pytania mają być zapisane i wczytywane z pliku.proszę o pomoc

Zadanie jest zamknięte. Autor zadania wybrał już najlepsze rozwiązanie lub straciło ono ważność.

Rozwiązania

  • antekL1

    W załączniku jest "program.pas" i "dane.txt"
    Program (testowany w dev-pascal, bo nie mam Turbo)
    oraz przykładowy plik pytań i odpowiedzi "dane.txt".
    Format tego pliku jest objaśniony na początku.
    Numerowałem pytania 01, 02, 03... aby widać było, że są wybierane losowo.
    Program używa funkcji "copy", "random", "assign", "reset", "close",
    które chyba nie wymagają dopisania uses ... na początku.
    Poza tym jest to "czysty" Pascal.
    Jak się przekompiluje i plik exe umieści tam gdzie dane.txt to jako nazwę zbioru danych wystarczy napisać dane.txt. (w przeciwnym razie trzeba pisać całą ścieżkę).
    Program działa w okienku DOS'u, polskie znaczki mogą wyglądać tam dziwnie.

    Ilość pytań i poprawnych odpowiedzi jest wyświetlana po każdym pytaniu.
    CTRL/C przerywa program.
    Jeśli chcesz inaczej to w pętli czytającej odpowiedzi sprawdź np. czy
    znak = 'q', wtedy zakończ pętlę, zobaczysz w tekście gdzie.

    Załączniki

Podobne materiały

Przydatność 55% Program funkcja kwadratowa Turbo Pascal

program rownanie_kwadratowe; uses crt; Var a, b, c, x1, x2, d, x : Real; begin clrscr; write('podaj a='); readln(a); write('podaj b='); readln(b); write('podaj c='); readln(c); if a=0 then begin Writeln('Rozwiazywanie funkcji liniowej'); if (b=0) and...

Przydatność 60% Turbo Pascal

Pascal jest jednym z najpopularniejszych języków programowania komputerów. Powstał on w 1971 roku, kiedy to Niklaus Wirth opublikował pierwszy artykuł o nim. Upowszechnienie Pascala nastąpiło po roku 1974, w którym Wirth, opierając sie na poprawionym artykule, wydał wraz z Kathleem Jensen pierwszy podręcznik tego języka. W zamierzeniu Wirtha język Pascal miał służyć przede...

Przydatność 50% Turbo Pascal

WSTĘP Każda procedura, zmienna lub funkcja musi być zakończona średnikiem (;). Wyjątek END. i BEGIN 1. CO POWINNO I MOŻE ZNALEŹĆ SIĘ W KAŻDYM PROGRAMIE Uses crt; {musi znaleźć się} var {..tu można wpisać zmienne ..} begin {początek programu, musi się znaleźć} clrscr; {wyczyść ekran} {..tu można pisać treść programu..} readkey; {aby wyjść z...

Przydatność 80% Tekst napisany stylem biblijnym

I wezwał dyrektor swych uczniów do gabinetu swego. Aby słowo swoje jako prawo tej szkoły przypomnieć. Bo słowo dyrektora jest prawe, a imię jego pieczęcią. i zebrali się tedy w gabinecie wszystkich klas przedstawiciele. I stanęli przed obliczem srogim swego władcy i trwożyły się, i pytali nawzajem jaka to nauka popłynie wprost z ust dyrektora do ich uszu, i jakie to prawo ma...

Przydatność 70% Błędy Turbo Pascal

Poniżej znajduje się lista błędów. Turbo Pascal wykrywa je automatycznie, podając jego nazwę. 1. Out of memory - Brak pamięci 2. Identifier expected - Oczekiwano identyfikatora 3. Unkown identifier - Nieznany identyfikator 4. Duplicate identifie - Podwójny identyfikator 5. Syntax error - Błąd składni 8. String constant exceeds line - Stała łańcuchowa przekracza wiersz...

0 odpowiada - 0 ogląda - 1 rozwiązań

Dodaj zadanie

Zobacz więcej opcji