Hej. Czy ma może ktoś jakiś fajny rysujący np:słońce programik w pascalu?? ;> pilnie potrzebuję!!
program slonce;uses Crt,Graph;constsciezka = 'C:\fpc\';varSterownik,Tryb:integer;i,skok:real;procedure slonce(X,Y,A,R:integer;kolor:word);begin setcolor(kolor); setfillstyle(solidfill,kolor); pieslice(X,Y,0,A,R);end;beginTryb:= m640x480;Sterownik:=D8bit;InitGraph(sterownik,Tryb,Sciezka);slonce(620,30,360,50,yellow);Repeat until keypressed;CloseGraph;end.
Może być?
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
program slonce;
uses Crt,Graph;
const
sciezka = 'C:\fpc\';
var
Sterownik,Tryb:integer;
i,skok:real;
procedure slonce(X,Y,A,R:integer;kolor:word);
begin
setcolor(kolor);
setfillstyle(solidfill,kolor);
pieslice(X,Y,0,A,R);
end;
begin
Tryb:= m640x480;
Sterownik:=D8bit;
InitGraph(sterownik,Tryb,Sciezka);
slonce(620,30,360,50,yellow);
Repeat until keypressed;
CloseGraph;
end.
Może być?