Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

Pascal problem

#1
Pascal problem
Mam pewien problem. Najpierw przedstawie kawałek programu i później wytłumaczę.

Kod:
clrscr;
textcolor(cyan);
writeln ('*******************');
writeln ('*    Milonerzy    *');
writeln ('*******************');
textcolor(yellow);
writeln ('Pytanie o 100 zł');
writeln ('*******************');
writeln ('* Ile jest 2+2*2? *');
writeln ('* 1) 8            *');
writeln ('* 2) 6            *');
writeln ('* 3) 4            *');
writeln ('* 4) 10           *');
writeln ('*******************');
textcolor(green);
writeln ('Odpowiedź numer: 1, 2, 3 czy 4?');
readln (x);
if x=7 then begin
clrscr;
textcolor(cyan);
writeln ('*******************');
writeln ('*    Milonerzy    *');
writeln ('*******************');
textcolor(yellow);
writeln ('Pytanie o 100 zł');
writeln ('*******************');
writeln ('* Ile jest 2+2*2? *');
writeln ('* 1) 8            *');
writeln ('* 2) 6            *');
writeln ('* 3)              *');
writeln ('* 4)              *');
writeln ('*******************');
textcolor(green);
writeln ('Odpowiedź numer: 1 czy 2?');
end;
if x=8 then
begin
clrscr;
textcolor(cyan);
writeln ('*******************');
writeln ('*    Milonerzy    *');
writeln ('*******************');
textcolor(yellow);
writeln('************************************************************************');
writeln('*                                                                      *');
writeln('* Przyjaciel podpowiada Ci, że poprawna odpowiedź to odpowiedź numer 2 *');
writeln('*                                                                      *');
writeln('************************************************************************');
end;
if x=2 then
begin

Chcę, żeby po wpisaniu x=7 odsyłało do koła ratunkowego pół na pół, po wpisaniu x=8 do telefonu do przyjaciela, zaś po podaniu x=2 kontynuowało. Chcę również otrzymać punkt wyjścia z kół ratunkowych czyli podawanie odpowiedzi podczas działania takiego koła. Napisane trochę chaotycznie, ale mam nadzieję, że zrozumicie mój przekaz. Proszę o pomoc. Z góry dziękuję.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#2
RE: Pascal problem
Primo, wyrzystuj wcięcia w kodzie, wzrośnie estetyka. Secundo, kod źródłowy umieszczaj w znacznikach.

A co do twojego probemu:
1. Pół na pół: możesz dać jako procedurę, w której na początku będzie pętla losująca liczbę od 1 do 4, która jest inna niż poprawna odpowiedź, po czym wyświetli te dwie odpowiedzi.
2. Telefon do przyjaciela: tutaj sprawa jest bardziej prosta. Po prostu piszesz procedurę losującą, która wylosuje liczbe (dajmy na to 50% szansy, że wylosuje poprawną odpowiedź).
#define private public - Bójcie się klasy!
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: Pascal problem
Mam kolejny problem, otóż chcę, aby warunek był spełaniany jeżeli podane x będzie różne od liczb: 2, 7, 8, 9. Czyli x ma być mniejsze od 2, znajdować się w przedziale 3-6 i być większe od 9. Chodzi mi o:

if (x> ... then begin ...

Jeśli ktoś by mi to napisał to byłbym wdzięczny. Z góry dziękuję.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#4
RE: Pascal problem
Kod:
if (x <> 2) and (x < 7) and (x > 9) then ...
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#5
RE: Pascal problem
AtSzachista po pierwsze warunki muszą być połączone przez operator OR, a nie AND. Po drugie z warunków wynikałoby raczej i
Kod:
f (x < 2) or (x =< 6 and x>=3) or (x > 9) then ...
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#6
RE: Pascal problem
Dziękuję bardzo.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#7
RE: Pascal problem
Mój błąd. Złego operatora użyłem
Kod:
if (x <> 2) and ((x < 7) or (x > 9)) then
Dzięki za uwagę.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




Podobne wątki (Pascal problem)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  dev pascal, problem z funkcją kwadratową Sentinel24 4 8117 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8111 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7454 19.02.2016, 17:25
Ostatni post: Szachista

Skocz do:


Wybrane wątki (Pascal problem)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 2865 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 13599 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 5939 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 4977 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 6753 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 6511 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 6430 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 8491 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 3824 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 8030 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 8320 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 8101 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 7741 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 6885 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 10108 21.03.2019 01:28
Ostatni post: UnableToSee