Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: Program "Test Odpowiedzi" w Turbo Pascal, jak napisac ?

W dół

Od 1 do 2 z 2

  1.  
    • CommentAuthorsofcik
    • CommentTime16 Nov 2007 zmieniony
     
    Witam ,
    czy ktos moze z ekspertow tutaj ma pomysl na taki porgramik? jestem totalnie zielona i chetnie skorzystam z pomocy.zadanie mnie po prostu przeroslo:( i zanim mnie tu admin okrzyczy czy wogole wywali to nie prosze o gotowca tylko jakąś wizje .
    • CommentAuthorsteficzek
    • CommentTime16 Nov 2007 zmieniony
     

    Uses Crt;

    Type TZestaw = record
    Pytanie : string[60];
    Odpowiedz : array [1..4] of string[60];
    Dobra : Integer;
    end;
    Const Zestawy : array [1..4] of TZestaw = ((Pytanie:'Podaj wynik dzialania 1+1=?'; Odpowiedz: ('2','0','0','0');Dobra:1),
    (Pytanie:'Podaj wynik dzialania 2+2=?'; Odpowiedz: ('0','4','0','0');Dobra:2),
    (Pytanie:'Podaj wynik dzialania 3+3=?'; Odpowiedz: ('0','0','6','0');Dobra:3),
    (Pytanie:'Podaj wynik dzialania 4+4=?'; Odpowiedz: ('0','0','0','8');Dobra:4));

    procedure PokazZestaw(NrZestawu : Integer);
    var Odp,i : Integer;
    begin
    ClrScr;
    Writeln('Pytanie ',NrZestawu,' : ',Zestawy[NrZestawu].Pytanie);
    Writeln;
    for i:=1 to 4 do
    Writeln('Odpowiedz ', i,': ',Zestawy[NrZestawu].Odpowiedz[ i]);
    Writeln;
    Write('Twoj wybor : ');
    Readln(Odp);
    if Odp=Zestawy[NrZestawu].Dobra
    then Writeln('Prawidlowa odpowiedz')
    else Writeln('Zla odpowiedz');
    ReadKey
    end;

    Begin
    PokazZestaw(1);
    PokazZestaw(2);
    PokazZestaw(3);
    PokazZestaw(4)
    End.
    Starałem się to napisać najprościej jak się da
    Pozdrawiam Stefan Pruszkiewicz

Od 1 do 2 z 2

  1.