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

Skocz do:


Wybrane wątki (Pascal problem)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 8941 07.11.2018 13:41
Ostatni post: Ajgor
Scared Ipad Pro programowanie? NissmoOne 4 9923 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 8980 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 9509 06.09.2018 07:20
Ostatni post: broda99
  problem z programem .bat wiktrom12 4 10693 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 9347 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 10086 09.08.2018 16:24
Ostatni post: Ajgor
  Który język wybrać do stworzenia aplikacji synchronizujące pliki z urządzeniem mobiln Elemental 2 2536 18.07.2018 12:05
Ostatni post: Ajgor
  Pomysł napisania programu ROM FireBytes 3 10680 28.06.2018 16:56
Ostatni post: FireBytes
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 11092 19.06.2018 23:24
Ostatni post: broda99
  Potwierdzenie na maila po wysłaniu pliku coci 0 10177 13.06.2018 20:37
Ostatni post: coci
  Pieczętowanie Archiwum Jar - Po co? wanhelsing 3 10771 19.05.2018 20:55
Ostatni post: koneton
  Wyszukiwarka w spawnerze nie reaguje na polskie znaki kazik666 0 10544 16.05.2018 12:04
Ostatni post: kazik666
  BASH symulator silnika dawswi1 3 10707 13.05.2018 10:43
Ostatni post: Szachista
  Autohotkey automatyczny zapis TheProgson 0 10280 07.05.2018 21:27
Ostatni post: TheProgson