| | |
| Stránka: 1 z 1
| [ Príspevkov: 2 ] | |
Autor | Správa |
---|
Registrovaný: 12.05.07 Prihlásený: 25.01.10 Príspevky: 23 Témy: 9 | Napísal Kal-El: 16.05.2007 21:12 | |
|
potrebujem nakreslit semafor
napíšte program, ktorý nakreslí semafor. Na semafore nech striedavo svieti červená a zelená, až kým nestlačíme niektorú klávesu.
Pomôcka: obdĺžnik znázorňujúci semafor má 120x220 bodov, polomer svetelných kruhov je cca 40 bodov, vzdialenosť od okrajov je 20 bodov
thx
|
|
Registrovaný: 30.05.06 Prihlásený: 08.10.14 Príspevky: 1756 Témy: 35 Bydlisko: BA - WESTSIDE | Napísal p360t: 17.05.2007 8:52 | |
|
Neviem, či som správne pochopil zadanie, ale tu je niečo odomňa...
Kód: Program Semafor; Uses Crt, Graph; Const polomer = 40; okraje = 20; Var i :integer;
Procedure Kruh(poradie, farba: integer); Begin poradie:= poradie - 2; SetColor(farba); Circle (320, 240+poradie*(2*polomer+okraje), polomer); SetFillStyle(1, farba); FloodFill(320, 240+poradie*(2*polomer+okraje), farba); End;
Procedure Inicializacia; Var Gd, Gm, x1, y1, x2, y2: Integer; Begin Gd:= 0; Gm:= 0; InitGraph(Gd, Gm, 'C:\TP7\BGI\'); ClearDevice; If GraphResult <> 0 Then Halt; {horny lavy bod} x1:=320-okraje-polomer; y1:=240-2*okraje-3*polomer; {dolny pravy bod} x2:=320+okraje+polomer; y2:=240+2*okraje+3*polomer; {dvojty obdlznik} SetColor(7); Rectangle(x1, y1, x2, y2); Rectangle(x1+1, y1+1, x2-1, y2-1); {cervebe svetlo} Kruh(1, Red); End;
Procedure Zmena(poradie:integer); Begin {najprv vsetky zhasneme, potom zapneme to svetlo, ktore treba} Kruh(1, 0); Kruh(2, 0); Kruh(3, 0); Case poradie Of 1: Kruh(1, 4); 2: Kruh(2, 6); 3: Kruh(3, 2); End; End;
Begin Inicializacia; Repeat Zmena((i Mod 3)+1); Inc(i); Until Ord(Readkey) = 27; End.
_________________
A. S. Tanenbaum píše: The terms LF, MF, and HF refer to low, medium, and high frequency, respectively. Clearly, when the names were assigned, nobody expected to go above 10 MHz, so the higher bands were later named the Very, Ultra, Super, Extremely, and Tremendously High Frequency bands. Beyond that there are no names, but Incredibly, Astonishingly, and Prodigiously high frequency (IHF, AHF, and PHF) would sound nice. |
|
| Stránka: 1 z 1
| [ Príspevkov: 2 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Semafor Elektricka schema v Elektronika | 4 | 3551 | 18.04.2010 13:46 Jerry19 | | Schéma: Automatický semafór pre modelárov v Elektronika | 1 | 3157 | 20.02.2007 9:40 M4rekX | | Programovanie v Pascale v Ostatné | 7 | 544 | 05.11.2018 21:07 kikuska222 | | Hra v pascale v Assembler, C, C++, Pascal, Java | 4 | 1119 | 11.01.2009 17:49 programator | | grafika v pascale v Assembler, C, C++, Pascal, Java | 2 | 288 | 22.12.2012 15:36 lukac | | Hry v pascale? v Assembler, C, C++, Pascal, Java | 3 | 913 | 19.07.2007 22:33 imcold | | subory v pascale v Assembler, C, C++, Pascal, Java | 5 | 708 | 13.08.2008 6:42 imcold | | grafika v Pascale v Grafické programy | 0 | 410 | 15.11.2011 11:34 gabika | | Medzery v Pascale v Assembler, C, C++, Pascal, Java | 2 | 565 | 22.03.2011 16:16 Cleo | | zahada v pascale v Assembler, C, C++, Pascal, Java | 3 | 560 | 23.02.2008 9:59 Aries | | Pomoc v pascale v Assembler, C, C++, Pascal, Java | 5 | 797 | 24.11.2007 11:10 scarletjohanson | | hra v pascale v Assembler, C, C++, Pascal, Java | 0 | 510 | 12.05.2009 14:02 cod | | program v pascale v Ponuka práce | 4 | 1091 | 03.04.2009 22:05 bbeni | | Program v pascale v Assembler, C, C++, Pascal, Java | 2 | 498 | 23.11.2011 13:25 jojinkho | | program v pascale v Assembler, C, C++, Pascal, Java | 0 | 497 | 24.03.2011 19:42 roxor | | Zadanie v pascale v Assembler, C, C++, Pascal, Java | 15 | 1476 | 04.10.2008 17:40 dsljohn |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|