Giải bài tập tin

[computer_1993]

Đề: vẽ hình vuông nội tiếp đường tròn < Thầy Bùi Hữu Thọ ra>, Mở rộng đề là tô màu nền cho hình vuông và hình tròn.Bài giải:
program hinh;
uses graph;
var drive,mode,a,b,c:integer;
begin
initgraph(drive,mode,'C:\TP\BGI'); {day la thu vien}
drive:=0;
a:=trunc(getmaxx/2); {trunc la cau lenh lam tron so}
b:=trunc(getmaxy/2);
c:=trunc(160/sqrt(2));{la cach tinh bieu thi moi quan he duong cheo hinh vuong va ban kinh}
setcolor(yellow);
setfillstyle(solidfill,yellow);{khoi tao mau nen}
fillellipse(a,b,c,c);{to mau}
circle(a,b,c);
setcolor(red);
setfillstyle(solidfill,red);
bar(a-80,b-80,a+80,b+80);
rectangle(a-80,b-80,a+80,b+80);
readln;
closegraph;
end.
Bài này do NGÔ HIẾU TRƯỜNG lớp 11@6 viết đề nghị khi sử dụng phải ghi rõ mã nguồn: http://hoaiana6pro.tk <tui lèm admin>:byebye::byebye:

:vn::vn:CHÚC MẤY BẠN 11 THI TIN THẬT TỐT NHA!:vn::vn: