Giải bài tập tin khó

[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:

[sonhuu77]

viet bai nhu cut ma cung viet ?????????????????????????????????????????????????? ?????????????/

[computer_1993]

tui zoi bạn thi choi à! ai giỏi hơn!, chấp bạn đó, ra đề đi

[rongphuongdong]

tui zoi bạn thi choi à! ai giỏi hơn!, chấp bạn đó, ra đề đi

Để t ra đề giúp: Viết liên tiếp các số 1,2,3... thành một dãy. Viết chương trình tính số thứ n trong dãy là số nào?
Ví dụ: 1234567891011....số thứ 5 trong dãy trên là 5, số thứ 10 là 0
Test chương trình với n=500.000, n=1.000.000, n=200
(Trích đề thi Tin học trẻ tỉnh Bình Định năm 2008-2009)

[Dark Magician]

tui zoi bạn thi choi à! ai giỏi hơn!, chấp bạn đó, ra đề đi

Thằng này mới có tí kiến thức mà chảnh.
ngay tại câu lệnh
"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}"
sao không dùng div cho nó nhanh --> đầu óc có vấn đề

[canlong_2x]

Thằng này mới có tí kiến thức mà chảnh.
ngay tại câu lệnh
"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}"
sao không dùng div cho nó nhanh --> đầu óc có vấn đề



chưa bit ai hơn ai đâu!!!
bay gio chưa noi len dc dieu j nhaz!:byebye:

[computer_1993]

Câu lệnh div bình thường mà, xài wai hông biết chán à, phải luôn tim cái mới chứ, pascal rộng vô kể phải tìm tòi cho vui, chứ lên 12 rùi thì ai học nữa hả ku Dark magician!

[rongphuongdong]

Thằng này mới có tí kiến thức mà chảnh.
ngay tại câu lệnh
"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}"
sao không dùng div cho nó nhanh --> đầu óc có vấn đề

Câu lệnh div bình thường mà, xài wai hông biết chán à, phải luôn tim cái mới chứ, pascal rộng vô kể phải tìm tòi cho vui, chứ lên 12 rùi thì ai học nữa hả ku Dark magician!

hai anh này có sao không vậy, cái j mà xài hoài chán, lệnh trunc làm tròn số, còn lệnh div lấy phần nguyên, hai cái này là khác nhau mà làm sao thay thế dc cho nhau hả.:botay: