Вот прогамма посмотрите и исправте пожалуйста ошибки(если они есть).
Хотя сам Pascal ошибок не выдает ,но я не могу посмотреть ,что эта прога мне построила.
Т.к. у меня стоит Windows Vista ,а Pascal на Vista в полноэкранном режиме не пашет. 
uses graph;
var alfa,k,i,n,k1,dr,md,x1,x2,y1,y2:integer;
BEGIN
writeln('vvedite koordinati');
readln(x1,y1,x2,y2);
writeln('vvedite koli4estvo yglov');
readln(n);
dr:=detect;
initgraph(dr,md,'C:\sPascal\Bgi');
alfa:=round(90/n); k:=alfa; k1:=0;
for i:=1 to n do begin
setfillstyle(i,15);
pieslice(x2,y2,270+k1,270+k,1000);
k:=k+alfa; k1:=k1+alfa;
end;
rectangle(x1,y1,x2,y2);
setfillstyle(1,0);
bar(0,0,640,y1-1);
bar(x1+1,y2,640,480);
bar(x2,y1+1,640,480);
readln;
end.
Добавлено (25.12.2007, 18:25)
---------------------------------------------
Не партись я ее ужу сделал!
