Не получается сделать ....

[Castro]

Графика в Паскале
Получить изображение под названием "несуществующий квадрат" для радиуса секторов круга , который равняется 1/3 стороны квадрата.

Сколько сидел думал...всё равно у меня не получается ничего по этой задаче ....
прошу помочь мне ..

[Sazary]

Сообщение от Castro

Сколько сидел думал...всё равно у меня не получается ничего по этой задаче ....

Раз сидели и думали, значит какие-то наработки должны быть.
Что конкретно у вас не получается? Здесь нужно нарисовать 4 сектора. В чем проблема?

[Castro]

Сообщение от Sazary

Раз сидели и думали, значит какие-то наработки должны быть.
Что конкретно у вас не получается? Здесь нужно нарисовать 4 сектора. В чем проблема?

та проблема в том что сначала я рисовал 4 круга , потом примерно в центре рисовал квадрат и ставил цвет заливки его как фон , вот только выхадила чепуха у меня полнейшая ... , проблем достаточно , просто с паскалем не очень дружу =)

[Sazary]

Сообщение от Castro

вот только выхадила чепуха у меня полнейшая

Так покажите, что вышло. Посмотрим на эту чепуху.

[Sazary]

Вот, в общем

uses crt,graph;
var
d,m : smallint;  // для TP7 заменить тип на integer
cntrx,cntry : integer;
a,r : integer;

begin
clrscr;
initgraph(d,m,'');
a := 300;
r := a div 3;
cntrx := getmaxx div 2;
cntry := getmaxy div 2;

setfillstyle(1,15);
floodfill(1,1,15);
setfillstyle(1,0);
sector(cntrx-(a div 2),cntry-(a div 2),0,270,r,r);
sector(cntrx-(a div 2),cntry+(a div 2),90,360,r,r);
fillellipse(cntrx+(a div 2),cntry-(a div 2),r,r);
fillellipse(cntrx+(a div 2),cntry+(a div 2),r,r);
setfillstyle(1,15);
sector(cntrx+(a div 2),cntry-(a div 2),180,270,r,r);
sector(cntrx+(a div 2),cntry+(a div 2),90,180,r,r);
readln;
closegraph;
end.