1.
a, LINE (stĺpec-x1,riadok-y1,stĺpec-x2,riadok-y2) – čiara, spojí bod x1,y1 s bodom x2,y2
b, RECTANGLE (x1, y1, x2, y2) – obdĺžnik, nakreslí rámik bez výplne
c, CIRCLE (xs, ys, r) - kreslí obvod kruhu
d, FILLEDCIRCLE (xs,ys,r) - plný kruh
e, BAR
f, SETCOLOR (farba) - farba pera aj výplne
g, SETBACKGROUND (farba) - farba podkladu - na zotretie okna
2.
My používa desiatkovú sústavu a PC používa dvojkovú sústavu, aby sme si navzájom rozumeli, potrebujeme informácie kódovať (šifrovať).
Číselné sústavy:
1) DEC … DEKADICKA ( 0 – 9)
2) BIN … BINARNA ( 0,1 )
3) HEX … HEXADECIMALNA ( 0 – 9 + A;B;C;D;E;F )
4) OCT … OKTAVOVA ( 0 – 7)
a) prevod z desiatkovej do dvojkovej sústavy
(18)10 = (Y)2 = (10010)2
18:2=9 0
9:2= 4 1
4:2=2 0
2:2=1 0
1
– 1 sa pripisuje vždy, zapisujem odspodu nahor
b) prevod z dvojkovej do desiatkovej sústavy
(Y)2 = (X)10
20 = 1 26 = 64
21 = 2 27 = 128
22 = 4 28 = 256
23 = 8 29 = 512
24 = 16 210 = 1024
x0 = 1
25 = 32
( 1 0 1 0 )2 = (X)10 (1010)2 = (10)10
0.1+1.2+0.4+1.8= 10
c) prevod z dvojkovej do šestnástkovej sústavy (HEXADECIMALNA)H
16
(Y)2 = (Z)H
Využíva 16 znakov :
0 až 9 + A = 10 ( 1 1 / 0 0 1 1 )2 = (33)H
B = 11 2 1 / 8 4 2 1
C = 12
D = 13
E = 14 3 3
F = 15
( 1 / 1 1 1 0 / 1 1 1 1 )2 = ( 1 EF)H
1 / 8 4 2 1 / 8 4 2 1
1 E F
- 2kové číslo rozdelíme po 4 odzadu, každej štvorici nájdeme 10tkové číslo a pridáme mu 16tkovú hodnotu.
c) prevod z dvojkovej do osmičkovej (oktávovej) sústavy
(Y)2 = (W)o
( 1 1 1 / 0 1 1 )2 = (73)10
4 2 1 / 4 2 1
7 3
-2kové číslo rozdelíme po 3 odzadu (lebo 23= 8)
program semafor;
uses crt, graph;
var dr,m,i: integer;
procedure STOJ;
begin
setcolor(red);
for i:=1 to 40 do
circle(320,90,i);
delay(1000);
setcolor(black);
for i:=1 to 39 do
circle(320,90,i);
end;
procedure PRIPRAV;
begin
for i:=1 to 40 do
begin
setcolor(yellow);
circle(320,175,i);
setcolor(red);
circle(320,90,i);
end;
delay(1000);
setcolor(black);
for i:=1 to 39 do
begin
circle(320,175,i);
circle(320,90,i);
end;
end;
procedure CHOD;
begin
setcolor(green);
for i:=1 to 40 do
circle(320,260,i);
delay(1000);
setcolor(black);
for i:=1 to 39 do
circle(320,260,i);
end;
procedure ZASTAVUJ;
begin
setcolor(yellow);
for i:=1 to 40 do
circle(320,175,i);
delay(1000);
setcolor(black);
for i:=1 to 39 do
circle(320,175,i);
end;
begin
clrscr;
dr:=9;
m:=2;
initgraph(dr,m,'');
setcolor(white);
rectangle(270,40,370,310);
bar(310,311,330,480);
repeat
STOJ;
PRIPRAV;
CHOD;
ZASTAVUJ;
until keypressed;
end.