Temat jest zamknięty
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;beginclrscr;wygrana:=0;gwarantowana:=0;ktore:=1;koniec:=0;repeatwriteln('Na twoim koncie jest juz ',wygrana:7:2);writeln('Gwarantowana kwota to ',gwarantowana:7:2);writeln('');writeln('Pytanie nr ',ktore);if ktore=1 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginWRITELN('');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 thenbeginif 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.
