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 8177 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8158 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7502 19.02.2016, 17:25
Ostatni post: Szachista

Skocz do:


Wybrane wątki (Pascal problem)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Poszukuję pomysłu na prosty program ;) janciu96 5 9650 13.12.2019 23:32
Ostatni post: Ajgor
  Programowanie Batch (CMD) Informatyk2019 0 2043 11.12.2019 18:30
Ostatni post: Informatyk2019
  [JavaScript] Znajdowanie przedziału czasu rafal12999 0 929 10.12.2019 17:58
Ostatni post: rafal12999
  Przekazywanie wskaźnika przez referencję w Qt Trojan3000 3 9567 10.12.2019 13:16
Ostatni post: Ajgor
  Proszę o pomoc w uzupełnieniu ankiety dt. Zawodu Programisty MaleMonki 0 1403 17.11.2019 12:47
Ostatni post: MaleMonki
  Spring framework – jakie strony polecacie do nauki? olek23 5 4258 15.11.2019 15:57
Ostatni post: Alsenas
  Programowanie windy (problem) w C++ mysza2323 2 3028 06.11.2019 23:04
Ostatni post: mysza2323
  Programy w C ~Anonim 1 3417 22.10.2019 17:48
Ostatni post: Szachista
  Książki do nauki C# olek23 14 12391 17.10.2019 13:06
Ostatni post: Ajgor
  Wyświetlanie informacji z bazy danych na stronie www PitPlay 1 4589 16.09.2019 11:18
Ostatni post: Ajgor
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 3028 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 14262 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 6105 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 5228 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 7046 18.06.2019 21:36
Ostatni post: fugaz