Паскаль тілінде есеп графикамен жұмыс. Экран бетіне төртбұрыш, шеңбер, үшбұрыш орналастырсақ олардың түсін, жиегінін түрін төмендегі кестеден таңдаңыз.

Question

Төртбұрыш: сары 215; Шеңбер: қоңыр 47; Үшбұрыш: алкызыл 223

Answer 1

Program grh;
uses graph, crt;
var
grDriver:integer;
grMode:integer;
grPath:string;
errCode:integer;
begin
grDriver:=VGA;
grMode:=VGAHi;
grPath:='c:\tp\Ba';
initgraph(grDriver,grMode,grPath);
errCode:=GraphResult;
if errCode=grOk then
begin
setcolor(215);
rectangle(200,400,250,450);
setcolor(47);
circle(200,150,25);
setcolor(223);
line(300,150,300,450);
line(300,150,100,300);
line(100,300,100,450);
readln();
end.

Comments

/ мына белгіні керсінше қылып саласың.
:-меншіктеу - орнына теңдік белгісін қоясың менде кейбір символдар жоқ екен.

---

Үлкен рахмет! :o