marcin-adept Napisano Luty 23, 2008 Zgłoś Share Napisano Luty 23, 2008 Mam do napisania program milionerzy .Na zasadach takich jak gra w telewizji Oto treść: Program zadaje 12 pytań i poprawnie we wszystkim możliwych sytuacjach podaje na końcu wygrana i gwarantowana. Przy zadaniu każdego pytania podaje ile mamy gwarantowane i o ile gramy. W pytaniu są 4 możliwe odpowiedz. Piata odpowiedz to rezygnuje z dalszej gry. Dodatkowa opcja to użycie kola ratunkowego pół na pół. Poniżej prezentuje to co sam napisałem. Ale co gdzie mam dopisać żeby była możliwa opcja rezygnacji z gry oraz opcja użycia koła ratunkowego pół na pół Oto mój kod. Co gdzie mam dopisać aby wszystko było w porządku? uses crt; var wygrana,gwarantowana:real; ktore, koniec: integer; odpowiedz,poprawna: char; begin clrscr; wygrana:=0; gwarantowana:=0; ktore:=1; koniec:=0; repeat writeln('Na twoim koncie jest juz ',wygrana:7:2); writeln('Gwarantowana kwota to ',gwarantowana:7:2); writeln(''); writeln('Pytanie nr ',ktore); if ktore=1 then begin WRITELN(''); WRITELN('WALCZYSZ O 500 zl'); poprawna:='b'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('JAKIE JEST NAJSZYBSZE ZWIERZE LaDOWE??'); writeln(''); writeln(' a-SlOn'); writeln(' b-GEPARD'); writeln(' c-LASICA'); writeln(' d-HART'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=2 then begin WRITELN(''); WRITELN('WALCZYSZ O 1000 ZL'); poprawna:='c'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('JAKA WYSOKOSC MA MOUNT EVEREST??'); writeln(''); writeln(' a-8858m n.p.m.'); writeln(' b-9948m n.p.m.'); writeln(' c-8848m n.p.m.'); writeln(' d-9958m n.p.m.'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=3 then begin WRITELN(''); WRITELN('WALCZYSZ O 2000 zl'); poprawna:='a'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('W KToRYM ROKU POWSTAl PIERWSZY PROJEKT SIECI KOMPUTEROWEJ??'); writeln(''); writeln(' a-1968'); writeln(' b-1969'); writeln(' c-1958'); writeln(' d-1961'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=4 then begin WRITELN(''); WRITELN('WALCZYSZ O 5000 zl'); poprawna:='c'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('NA JAKa ODLEGlosc MOZNA PRZESYlAc DANE PRZY POMOCY 10BASE-5??'); writeln(''); writeln(' a-DO 185M'); writeln(' b-DO 500M'); writeln(' c-DO 300M'); writeln(' d-DO 800M'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=5 then begin WRITELN(''); WRITELN('WALCZYSZ O 10000 zl'); poprawna:='b'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('Z JAKa PRZEDKOscia MOzNA PRZESYlAc DANE PRZY POMOCY SKReTKI 4-KATEGORII??'); writeln(''); writeln(' a-10'); writeln(' b-100'); writeln(' c-50'); writeln(' d-16'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=6 then begin WRITELN(''); WRITELN('WALCZYSZ O 20000 zl'); poprawna:='b'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('JAKIE JEST NAJWIEKSZE JEZIORO W POLSCE??'); writeln(''); writeln(' a-MAMRY'); writeln(' b-DaBIE'); writeln(' c-sNIARDWY'); writeln(' d-MIEDWIE'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=7 then begin WRITELN(''); WRITELN('WALCZYSZ O 50000 zl'); poprawna:='a'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('NAJDluzSZA RZEKA sWIATA??'); writeln(''); writeln(' a-AMAZONKA'); writeln(' b-NIL'); writeln(' c-WISlA'); writeln(' d-ODRA'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=8 then begin WRITELN(''); WRITELN('WALCZYSZ O 100000 zl'); poprawna:='c'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('JEzELI WPOLSCE JEST GODZINA 18:00 TO KToRA JEST W KANADZIE??'); writeln(''); writeln(' a-20'); writeln(' b-18'); writeln(' c-15'); writeln(' d-12'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=9 then begin WRITELN(''); WRITELN('WALCZYSZ O 1500000 zl'); poprawna:='b'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('JAKI JEST NAJWIEKSZY SAMOLOT sWIATA??'); writeln(''); writeln(' a-AIRBUS A380-800'); writeln(' b-AN-225 MRIYA'); writeln(' c-BIOEING 747'); writeln(' d-F-16'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=10 then begin WRITELN(''); WRITELN('WALCZYSZ O 250000 zl'); poprawna:='a'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('GDZIE zYJA KRABY WSPINAJaCE SIe NA DRZEWA??'); writeln(''); writeln(' a-KARAIBY'); writeln(' b-KUBA'); writeln(' c-WYSPY OCEANU SPOKOJNEGO I INDYJSKIEGO'); writeln(' d-RAFY KORALOWE W EGIPCIE'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=11 then begin WRITELN(''); WRITELN('WALCZYSZ O 500 000 zl'); poprawna:='b'; writeln(''); Write('Pytanie brzmi nastEpujAco:'); WRITELN('GDZIE PO RAZ PIERWSZY WYTOPIONO ZELAZO??'); writeln(''); writeln(' a-NA BLISKIM WSCHODZIE'); writeln(' b-NA BLISKIM ZACHODZIE'); writeln(' c-NA POLNOCY'); writeln(' d-NA POLUDNIU'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if ktore=12 then begin WRITELN(''); WRITELN('WALCZYSZ O 1000000 zl '); poprawna:='d'; writeln(''); Write('Pytanie brzmi nastepujaco:'); WRITELN('KTO PROWADZI PROGRAM MILIONERZY??'); writeln(''); writeln(' a-KRZYSZTOF IBISZ'); writeln(' b-KASIA KOWALSKA'); writeln(' c-PAMELA ANDERSON'); writeln(' d-HUBERT URBAnSKI'); writeln(''); writeln('Twoja odpowiedz to'); readln(odpowiedz); end; if odpowiedz=poprawna then begin if ktore=1 then wygrana:=500; if ktore=2 then wygrana:=1000; if ktore=3 then wygrana:=2000; if ktore=4 then wygrana:=5000; if ktore=5 then wygrana:=10000; if ktore=6 then wygrana:=20000; if ktore=7 then wygrana:=40000; if ktore=8 then wygrana:=80000; if ktore=9 then wygrana:=150000; if ktore=10 then wygrana:=250000; if ktore=11 then wygrana:=500000; if ktore=12 then wygrana:=1000000; if ktore=2 then gwarantowana:=1000; if ktore=7 then gwarantowana:=40000; if KTORE=12 THEN GWARANTOWANA:=1000000; end; if odpowiedz<>poprawna then koniec:=1; if ktore=12 then koniec:=1; ktore:=ktore+1; until koniec=1; if wygrana>=gwarantowana then write('GRATULUJe wygrales ',GWARANTOWANA:7:2); if WYGRANA>600000 THEN WRITELN ('GRATULUje wygrales excl.gif!MILION!!!Zl'); if GWARANTOWANA>500000 THEN WRITELN('GRATULUJ WYGRAlEs excl.gif!MILION!!!'); readln; end. Link do komentarza Udostępnij na innych stronach More sharing options...
Toster Napisano Luty 23, 2008 Zgłoś Share Napisano Luty 23, 2008 1. Prosze przeczytac regulamin i dostosowac temat 2. Kolorowanie skladni 3. Prosze zadac konkretne pytanie lub zapraszamy do dzialu ogloszenia. Always Dark<br /> Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.