Skocz do zawartości
Forum komputerowe PC Centre

bombix

Użytkownicy
  • Zawartość

    1
  • Rejestracja

  • Ostatnia wizyta

Reputacja

0 Neutralny

O bombix

  • Tytuł
    Jestem tu nowy
  1. bombix

    POMOCY!

    Proszę o wyjaśnienie tych dwóch procedur najlepiej tak szczegółowo linijka po linijce. Naprawdę nie mam pojęcie co do czego tu służy :/ Jest to kod z Turbo Program ten dotyczy działania syganlziacji świetlnej na skrzyżowaniu. Jest jeszcze jedna procedura który wyrysowuje całe szkrzyżowanie. Jednak tę procedurę rozumiem w całości. A mam problem z tym kawałkiem. Wiem, ze jest on odpowiedzialny za zmiane kolorów świateł, jednak chciałbym dowiedziec po co jest ta tablica i po koleji co się dzieje w tej procedurze. Pascala. procedure wyp(x,y:integer;kolor:byte); begin setfillstyle(1,kolor); floodfill(x,y,white); end; {----------------------------------------------------------------------------} procedure sym; const tab:array [1..8,1..8] of integer =((4,0,2,45,4,0,2,45), (4,0,6,30,4,0,6,30), (4,0,4,0,4,0,4,0), (6,30,4,0,6,30,4,0), (2,45,4,0,2,45,4,0), (6,30,4,0,6,30,4,0), (4,0,4,0,4,0,4,0), (4,0,6,30,4,0,6,30)); var ch:char; i:integer; begin i:=1; repeat wyp(195,125-tab[i,2],tab[i,1]); wyp(195-tab[i,4],365,tab[i,3]); wyp(450,365+tab[i,6],tab[i,5]); wyp(455+tab[i,8],135,tab[i,7]); repeat ch:=readkey; until (ch=#27)or(ch=#32); if (tab[i,1]<>4) then begin wyp(195,125-tab[i,2],black); wyp(450,365+tab[i,6],black); end; if (tab[i,3]<>4) then begin wyp(195-tab[i,4],365,black); wyp(455+tab[i,8],135,black); end; inc(i); if (i>8) then i:=1; if (tab[i,1]=2) then begin wyp(195,125,black); wyp(450,365,black); end; if (tab[i,3]=2) then begin wyp(195,365,black); wyp(455,135,black); end; until ch=#27; end;
×
×
  • Dodaj nową pozycję...