[es] - Zadatak u Turbo Pascalu, pomoć!!!

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Zadatak u Turbo Pascalu, pomoć!!!

^{10.04.2005. u 23:19 - pre 233 meseci}

Joj... ta fukcija Sabiranje je bio samo primer da bi mogao sam da ispravis IzaberiPitanje... ona nema nikakve veze sa programom. Odustajem... sad ce ti Toyo pomagati... zar ne Toyo?

@Toyo
ReadLn cita iz Text fajla sve bez problema. Naravno ako uradis ReadLn i zatrazis Byte, a na poziciji koja treba da se procita Byte ima nekih levih karaktera izbacice gresku, ali ako je tu bas broj on ce ga bez problema ucitati... 100%

P.S.
Idem da uzmem konopac, pa na tavan i da se besim!

_{[Ovu poruku je menjao Srki_82 dana 11.04.2005. u 00:21 GMT+1]}

Play Store

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: Zadatak u Turbo Pascalu, pomoć!!!

^{10.04.2005. u 23:31 - pre 233 meseci}

Code:

Program kviz;
uses crt;
type
    pitanje = record
            pit:String;
            o1,o2,o3,o4,tac:String[50];
    end;

var f: Text;
    pitanja:array[1..50] of Pitanje;
    op, err, od,pit,i:integer;
    zarada, dinara: longint;
    idemo, prekid, bilopola:Boolean;
begin
     clrscr;
     assign(f,'pitanja.txt');
     reset(f);
{$I-}
     if ioresult = 0 then
        begin
             i := 1;
             while not eof(f) do
                   begin
                        readln(f,pitanja[i].pit);
                        readln(f,pitanja[i].o1);
                        readln(f,pitanja[i].o2);
                        readln(f,pitanja[i].o3);
                        readln(f,pitanja[i].o4);
                        readln(f,pitanja[i].tac);
                        if not eof(f) then
                           inc(i);
                   end;
             close(f);
             writeln('Broj ucitanih pitanja =',i);
             idemo := true;
             prekid := false;
             bilopola:=false;
             dinara := 1000;
             zarada := 0;
             randomize;
             while idemo and not prekid do
                  begin
                       writeln('Pitanje za ',dinara,'dinara');
                       pit := random(i)+1;
                       writeln('Pitanje: ',pitanja[pit].pit);
                       writeln('  1)',pitanja[pit].o1);
                       writeln('  2)',pitanja[pit].o2);
                       writeln('  3)',pitanja[pit].o3);
                       writeln('  4)',pitanja[pit].o4);
                       writeln;
                       write(' Odgovori (1-4)  Pola pola = 0  Prekid = 999  >');
                       readln(od);
                       val(pitanja[pit].tac, op, err);
                       if od=0 then
                          if not bilopola then
                             begin
                                  bilopola := true;
                                  writeln('Odgovor je pod ', op, ' ili pod ', ((op+2) mod 4) +1);
                                  readln(od);
                              end
                          else
                              begin
                                   writeln('Pola pola je bilo');
                                   readln(od);
                              end;
                       if od=999 then
                          prekid := true
                       else
                          if op=od then
                              begin
                                  zarada := dinara;
                                  dinara := dinara *2;
                              end
                          else
                             idemo := false;
                 end;
                 writeln;
                 writeln;
                 if not prekid then
                    zarada := 0;
                 writeln('Zaradili ste ', zarada,' dinara');
            end
     else
         writeln('Greska pri ucitavanju pitanja');
     readln;
{$I+}
end.

U uploadu imas 5 primer-pitanja. Zameni tekst pravim pitanjima, ali upamti 1 red 1 pitanje (nemoj pitanje da napravis u 2 reda),i 1 red 1 odgovor (moras da imas 4 odgovora) a zatim u sledecem redu sledi tacan odgovor.

Prikačeni fajlovi

pitanja.txt - 0.26k

Odgovor na temu