Turbo pascal

Pamatam si ako som robil seminarku v packali. Zakladna slucka v packali asi 200 riadkov a zvysok rutiny v asembleri :). To boli casy. Dnes uz len oracle a profesny kretenizmus :/

-> Fantozzi: ale to uz ani nni pravda. uz to bude skoro deset let

-> minno: my v tom delali elektronickej multimedialni casopis :-)

sem dokonce kupoval origo instalaci - ještě mám možná někde doma příručky a instalačky ;)

:-) to uz jsem nevidel roky a ted na prijimackach tam bylo napsat jednoduchy zadani v pascalu a ted i tady. Tolik sentimentu :-))

-> Peťa Klíč: ja som to uz skoro vsetko pozabudal

-> minno: jojo taky sem se na něm svýho času vyřádil, ale už sem dlouho dlouho nic hezkýho nevyrobil

ty vole turbo pascal tak pred 6 rokmi som sa z toho skoro zosalel tak ma to drzalo
zrobil som v tom jednu dost vymakanu hru a jeden graficky soft v ktorom sa dalo ukladat do mojho vlastneho formatu to boli casy

jaj, to zase spatne skopcil virt, tam patri je ruzne tedy ze nn je ruzne od n pise se to dvema zobackama nebo by to slo nahradit "until not (n=nn);"

ok ale co stou chybou

diky,diky no vypisuje mi chybu pri until nnn; (unknown identifier)a co je v tej zatvorke initgraph(dr,m,''''...?

1) při házení na virt se z apostrofu stanou dva apostrofy ...
2) zapoměl sem vrátit initgraph do původního stavu tak si to oprav

koukám na to
tady je zdroj kde se maže obrazovka + obrázky skáčou náhodně, je ošetřeno i to aby to nehodilo dva stejny po sobě

program setric;

uses crt,graph;

var b:pointer;
dr,m:integer;
x,y,z,k,r,I:integer;
vrchol:boolean;
n,nn:byte;

begin
dr:=9;m:=2;
initgraph(dr,m,''y:pgi' ');
setbkcolor(15);
setcolor(7);
settextstyle(3,0,1);
setlinestyle(0,0,2);
randomize;
repeat
repeat
n:=random(3);
until nnn;
nn:=n;
case n of
0:begin
circle(350,250,60);
circle(350,250,80);
line(290,250,410,250);
line(350,190,350,310);
setfillstyle(1,1);
floodfill(340,240,7);
floodfill(354,251,7);
setfillstyle(1,8);
floodfill(350,315,7);
outtextxy(345,168,''M'');
outtextxy(275,240,''B'');
outtextxy(415,240,''W'');
end; 1:begin
circle(100,100,80);
circle(100,100,70);
circle(200,100,80);
circle(200,100,70);
circle(300,100,80);
circle(300,100,70);
circle(400,100,80);
circle(400,100,70);
setfillstyle(9,7);
floodfill(100,171,7);
floodfill(171,100,7);
floodfill(200,171,7);
floodfill(271,100,7);
end; 2:begin
circle(150,300,80);
circle(150,300,70);
setfillstyle(9,7);
floodfill(79,300,7);
line(150,230,148,300);
line(150,230,152,300);
line(148,300,95,340);
line(152,300,205,340);
line(205,340,150,305);
line(95,340,150,305);
end;
end;
delay(500);
cleardevice;
until keypressed;
end.

Ok ide mi to a ako by sa to dalo aby sa vykresloval stale ibe jeden znak, lebo teraz sa mi vzkreslili vsetky postupne za sebou.

ajo tak... tak za "randomize" přihoď řádek "repeat" a před end. napiš "until keypressed;" a místo redln tam hoď "delay(500);" těch 500 je půl sekundy

a jestli chceš dalo by se aby to házelo náhodný obrázky

program setric;
uses crt,graph;
var b:pointer;
dr,m:integer;
x,y,z,k,r,I:integer;
vrchol:boolean;
begin
dr:=9;m:=2;
initgraph(dr,m,'''');
setbkcolor(15);
setcolor(7);
settextstyle(3,0,1);
setlinestyle(0,0,2);
randomize;
circle(350,250,60);
circle(350,250,80);
line(290,250,410,250);
line(350,190,350,310);
setfillstyle(1,1);
floodfill(340,240,7);
floodfill(354,251,7);
setfillstyle(1,8);
floodfill(350,315,7);
outtextxy(345,168,''M'');
outtextxy(275,240,''B'');
outtextxy(415,240,''W'');
readln;



circle(100,100,80);
circle(100,100,70);
circle(200,100,80);
circle(200,100,70);
circle(300,100,80);
circle(300,100,70);
circle(400,100,80);
circle(400,100,70);
setfillstyle(9,7);
floodfill(100,171,7);
floodfill(171,100,7);
floodfill(200,171,7);
floodfill(271,100,7);


readln;
circle(150,300,80);
circle(150,300,70);
setfillstyle(9,7);
floodfill(79,300,7);
line(150,230,148,300);
line(150,230,152,300);
line(148,300,95,340);
line(152,300,205,340);
line(205,340,150,305);
line(95,340,150,305);



readln;
end.



end.

No urobil som si znaky aut a chcel by som aby sa sami striedali, preblikavali, zatial mam len tie znaky a zobrazuju sa mi len po stlaceni enteru

nebo nějak to líp popiš

jako šetřič obrazovky?

Please moc

Peťa Klíč:potreboval by som spraviť setrič a neviem ake prikazy tam hodiť a v stredu to musim odovzdať. A´k by som mohol tak by som ti to poslal na maila a poradil by si mi.

já

Neviete nahodou niekto programovat v jazyku turbo pascal potrebujem radu.