mam prolem..zo skoli som si domov preniesol kod na pascal..ten probram by mal robit to..ze zacne vykreslovat biele gulicky a pasiky podla toho co stlacime...ci 1 2 3 4 5 ale doma mi to nejde...
{--------------- n e v y r i e s e n e ----------------
B O D K Y
alebo
b o d k o v a n e h l a v o l a m y
-------------------------------------------------------------}
program dot_patterns;
uses graph, crt, dots;
const
cesta_bgi = 'c:\bp\bgi';
var
i, j,
x, y : integer;
vzor : char;
begin
priprav_grafiku(cesta_bgi);
n:=8;
repeat
priprav_bodky;
outtextxy(100, 2, 'Viem tieto vzorky : 1 2 3 4 5 6 7 8 9 a b c d e f g' );
outtextxy(2, 12, 'Aku vzorku ? '); vzor:=readkey;
outtextxy(2, 12, 'Aku vzorku ? ' + vzor+ ' tuk zrychluje');
case vzor of
'1' : for y:=1 to n do {... kreslime vzorku ...}
for x:=1 to n do bodka(x, y);
'2' : for x:=1 to n do
for y:=1 to n do bodka(x,y);
'3' : for y:=1 to n do
for x:=1 to y do bodka(x,y);
'4' : for y:=1 to n do
for x:=1 to n-y+1 do bodka(x,y);
'5' : for y:=1 to n do
for x:=1 to n-y+1 do bodka(x,y);
else
outtextxy(2, 32, ' ' + vzor + ' este neviem');
end;
outtextxy(10, getmaxy - 20, 'Esc - koniec Iny znak - pokracuj');
until readkey = #27;
closegraph;
end.
Unit dots mi nepripada ako standardná unita v pascali. Ci ti prave to nechyba. Alebo ked sem pridu vzdelanejsi, tak by mozno radi vedeli, co za chybu ti to hadze.
jasno...vypise mi to zee..Fatal:Cant find units dots
Fatal:Compilation aborted
ja si myslim ze mi tam chyba tie c:/bp/bgi....len odkial zozenem to bgi???
gabooo napísal:jasno...vypise mi to zee..Fatal:Cant find units dots
Fatal:Compilation aborted
ja si myslim ze mi tam chyba tie c:/bp/bgi....len odkial zozenem to bgi???
Tu kniznicu dots si budes musiet tiez potom priniest domov. Mozno je to dielo samotneho ucitela, kazdopadne to vo svojom adresari s pascalom nenajdes. Ci ti chyba subor bgi, to mozes lahko zistit, ked si ho das vyhladat klasicky vo wine. Ale ak si si priniesol len kod, tak ti bude chybat aj to. A samozrejme ten subor bgi sa musi aj nachadzat na danom umiestneni.
