Nom kiritish bosManishini

2- misol. Nuqtalar yordamida ekran markazida R radiusli sariq rangli aylana chizish dasturini tuzing.

Yechish. Ekran markazini aniqlaydigan butun o'zgaruvchilar kiritib olinadi: markazX:=trunc(GetMaxX/2); markazY:=trunc(GetMaxY/2); (yoki markazX:=639; va markazY:=479). Matematikadan ma'lumki, ta'rif bo'yicha sin cc = — va coscc = — . Bundan kelib chiqadiki, markazi (0,0) nuqtada RRbo'lgan R radiusli aylana nuqtalarini quyidagiformulalar juftligi orqali aniqlash mumkin: x = r •cos(a), y = rsin(a), bunda a burchak 0 dan 2gacha o'zgaradi. Dasturda aylana nuqtalarinizichroq chizish uchun a burchak o'zgarishini 0,01qadam bilan olinadi. Shularga asosan quyidagidastur tuziladi.

Uses Graph;

Var gd, gm:integer;

x, y, markazX, markazY: Integer; R, alfa: real;

Begin

Gd := 0; InitGraph(Gd, Gm, ");

Write('R= '); readln(R);

markazX:=trunc(GetMaxX/2); markazY:=trunc(GetMaxY/2);

alfa:=0;

while alfa<=2*pi dobegin

x:= markazX +trunc(R*cos(alfa)); y:= markazY +trunc(R*sin(alfa)); putpixel(x, y, 14); alfa:= alfa+0.01;

end; Readln; CloseGraph; End.