Skocz do zawartości

Program w pascalu - pomoc


marcin-adept

Polecane posty

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

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...