Ładny brzuch
Jak moge napisac program w Pascalu, aby narysowane zostaly trzy okregi, roznej wielkosci, w sekundowym odstepie od siebie ???
uses crt, graph; procedure init(a, b:integer); begin initgraph(a,b,'.\egavga.bgi'); end; begin init(9,2); delay(1000); moveto(100,100); circle(125,100,20); delay(1000); circle(100,150,20); delay(1000); circle(150,150,20); readkey; closegraph; end.circle(x,y,r); ;)
Uytkownik Cyrkiel edytowa ten post 10 wrzesie 2005, 11:46
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
uses crt, graph; procedure init(a, b:integer); begin initgraph(a,b,'.\egavga.bgi'); end; begin init(9,2); delay(1000); moveto(100,100); circle(125,100,20); delay(1000); circle(100,150,20); delay(1000); circle(150,150,20); readkey; closegraph; end.circle(x,y,r); ;)
Uytkownik Cyrkiel edytowa ten post 10 wrzesie 2005, 11:46