Giải đề thi tin học trẻ Bình Dương 2016

Ở bài trước tôi đã giải bài toán đường tròn nội tiếp tam giác, hôm nay tôi giải bài tương tự nhưng với cách khác đơn giản và dễ hơn

Hình tròn ngoại tiếp tam giác :

Dùng MWSLogo vẽ hình tam giác màu xanh dương, có ba cạnh bằng nhau, nằm trong hình tròn màu đỏ viền xanh như hình bên. Kích thước tùy ý sao cho đỉnh của tam giác nằm trên đường tròn.

Giải thuật lần trước tôi xác định trọng tâm tam giác bằng cách nối trung điểm của 3 cạnh lại thành một tam giác nhỏ hơn, rồi lại nối tiếp trung điểm cạnh của tam giác nhỏ ấy, cứ như vậy cho tới khi tam giác chỉ còn là 1 điểm. Trong bài lần này tôi sẽ áp dụng lệnh Distance dùng để đo khoảng cách từ vị trí rùa đến một điểm nào đó.

To BD :n

SETPENCOLOR [0 81 255]
SETPENSIZE [2 2]
  CS HT PD Rt 30
  Repeat 3 [fd :n rt 120] ;Ve tam gia ABC
  Fd :n
  Make “B pos ;Lay toa do diem B
  BK :n Rt 60
  Fd :n/2 ;Di toi giua canh AC
  LT 90 ;Quay ve dinh B
  Make “h Distance :B ;Tinh duong cao
  PU Fd 1/3*:h ;Di toi trong tam cua tam giac
  Make “R 2/3*:h ;Ban kinh ngoai tiep duong tron
  PD Circle :R ;Ve hinh tron
  SETFC [0 81 255] Fill ;To mau xanh tam giac
  SETFLOODCOLOR [255 0 0] PU
  Rt 45 Repeat 3 [FD :R-10 Fill Bk :R-10 Rt 120] ; To mau do hinh tron

End

Câu 3: Tính Tổng 1+2+3+….+100

 To Tong
    CS RT 90 HT
    Make "S 0
    For  [i 0 100 1][Make "S :S+:i]
    Label (List "Tong "1+2+3...+...100= :S)
End

Câu 2:

Lúc trước tôi không để ý nên code lộn đề, tôi cảm thấy hơi buồn vì bài viết hơn 1500 lượt xem nhưng không ai có ý kiến, cho tới khi tôi nhận được ý kiến của một cô trên fanpage tôi mới phát hiện ra, tôi vẫn để lại code này để mọi người tham khảo. Với đề này người ta chỉ nói vẽ thêm để được 4 hình vuông nên sẽ có rất nhiều cách làm tôi vẽ theo cách sau:

Một cách vẽ khác tôi nghĩ là hay hơn

Chia hình chữ nhật thành hình vuông.

Giải theo tọa độ thì rất dễ (xem code thầy Lộc ở dưới) cho nên bài này chúng tôi code ở mức độ tổng quát hơn, có nghĩa là bạn xoay rùa bao nhiêu độ rồi gọi chương trình thì nó vẫn vẽ đúng, biến d là chiều dài của hình chữ nhật.

TO Chiavuong :d
	Pennormal
	SETPENSIZE 4
	SETPENCOLOR [0 0 255]
	Make "dai :d
	Make "cao :d/2

	Make "A Pos Fd :cao 
	Make "B Pos Rt 90
	Fd :cao Make "M Pos Fd :cao Rt 90 
	Make "C Pos
	Fd :cao Make "D  Pos Rt 90 Fd :dai
	Wait 200

	SETHEADING TOWARDS :M
	Make "cheo DISTANCE :M
	Repeat 4 [Fd :cheo RT 90]
	LT 45 PE Fd :cao Rt 90 Fd :dai RT 90 FD :cao
	PPT RT 45 Repeat 5 [Fd :cheo RT 90] ;PPT là lệnh vẽ lại ko xóa nữa
	RT 45 FD :cao 
	
END

Cách khác code của thầy Lộc

TO ChiaHinhChuNhat
   cs
   repeat 2[repeat 4[fd 100 rt 90]lt 90]
   rt 90 fd 100
   setxy 0 100
   setxy 100 0
   rt 90
   pe fd 100 wait 30 lt 90 fd 200 wait 30 lt 90 fd 100 wait 30
   ppt setxy 0 -100 wait 30
   bk 100 fd 100 wait 30
   setxy 100 0
   ht
END