LÝ THUYẾT VÀ BÀI TẬP LOGO

MSWLOGO THAY LỜI NÓI ĐẦU… Hãy đọc suy nghĩ nội dung báo mạng vấn đề dạy tin học cho trẻ “Cách dạy công nghệ thông tin cho trẻ em cần xem xét lại cách triệt để” Tác giả John Naughton giải thích vấn đề đề xuất hướng cải cách viết Điều thiếu việc dạy công nghệ thông tin trường học vấn đề lớn Một thảo luận sôi diễn - ngồi phủ - vấn đề “Cần phải làm Cơng nghệ thơng tin truyền thơng (ICT) chương trình phổ thơng” Các tổ chức - Royal Society, Association for Learning Technology, Computing at School (Tổ chức giáo viên liên quan) British Computer Society - công bố báo cáo tài liệu thảo luận nhắm tới trưởng Bộ Giáo dục Michael Gove, thư ký giáo dục Nhà trắng, trình bày phát biểu hội thảo cơng nghệ BETT gần đây, Nhà trắng cân nhắc Trong lúc đó, xảy số kiện đáng ngạc nhiên, chẳng hạn triệu người đặt hàng sản phẩm Raspberry Pi, máy tính rẻ tiền, nhỏ xíu cỡ thẻ tín dụng từ Cambridge geeks Vậy thì, điều xảy ra: có dịch chuyển kiến tạo Các trường đại học muốn thay đổi giảm sút số lượng học viên khóa học khoa học máy tính Các cơng ty sản xuất trò chơi muốn có nhiều lập trình viên Chính phủ đòi hỏi nhân viên có trình độ cơng nghệ cao Các nhà sản xuất muốn có nhân viên biết thiết kế hệ thống nhúng Và giáo viên muốn có nhiều tiền cho phòng thí nghiệm máy tính Câu chuyện thiếu rõ ràng vấn đề lớn Do vậy, đề xuất John là: Ngay từ tiểu học, trẻ em Anh lực nguồn gốc cần có hội: học số kiến thức khoa học máy tính; hiểu cách tư điện tốn; học lập trình; có hội tiến tới cấp độ hoàn hảo lĩnh vực Chúng ta vào câu hỏi việc lại quan trọng cần thiết, trước hết ta cần đối mặt với thực tế “đau thương” Đó phần lớn ta làm cho giáo dục ICT trường học nước Anh hai thập kỷ qua bị lạc hướng vơ ích Thay giáo dục trẻ em công nghệ tiên tiến nhất, ta lại tập trung vào giáo dục chúng sử dụng sản phẩm phần mềm lỗi thời Và làm điều ta gặp phải vấn đề mà nhà triết học Gilbert Ryle gọi “sai lầm thể loại” - việc loại biểu thuộc loại khác Ta mắc sai lầm nghĩ học máy tính giống học lái xe ô tô, kiến thức công nghệ đốt không cần thiết cho việc trở thành lái xe chuyên nghiệp, nên kéo theo hiểu biết hoạt động máy tính khơng quan trọng trẻ em Điều ta quên xe không vận hành giới, không giám sát truyền thông, không hỗ trợ điện thoại di động, không giúp quản lý tài khoản ngân hàng, không lưu trữ nhật ký, không can thiệp vào hoạt động xã hội chí - số nước - khơng tính số phiếu bầu cử Nhưng máy tính nối mạng làm tất việc trên, Do ta cần phải thừa nhận “ICT trường học” trở thành hàng độc hại Ta phải thay môn học khác tương đương, hỗ trợ mặt tri thức mở rộng sống cho sinh viên Nếu cần tên hay hơn, gọi mơn khoa học máy tính Đây thuật ngữ lớn, bao trùm hai lĩnh vực riêng biệt Trước tiên tập hợp khái niệm cần thiết trẻ em muốn hiểu giới mạng mà chúng lớn lên Và thứ hai khoa học máy tính liên quan tới cách suy nghĩ giải vấn đề: gọi suy nghĩ điện tốn, hiểu biết khác biệt trí tuệ người trí tuệ nhân tạo, đồng thời suy nghĩ đệ quy, tỉnh táo trước nhu cầu ngăn chặn, dò tìm chống lại nguy cơ, sử dụng tư trừu tượng phân tích giải cơng việc lớn, huy động lực đoán, lặp tìm kiếm để khám phá giải pháp cho vấn đề phức tạp Sẽ có nhiều thảo luận thú vị khái niệm mà sinh viên cần phải hiểu được, đưa danh mục khái niệm cho người bắt đầu Trẻ em cần biết về: thuật tốn (các cơng thức tốn học để làm thành chương trình); mật mã (mức độ bảo mật thơng tin mạng); trí tuệ máy (cách dịch vụ Youtube, NetFlix, Google Amazon đoán ý muốn bạn); sinh học điện toán (cách hoạt động mã di truyền); tìm kiếm (cách ta tìm kim tỉ đống cỏ khơ); đệ quy (một phương pháp giải pháp phụ thuộc vào giải pháp cho mẫu nhỏ vấn đề); phương pháp thử - sai (các kỹ thuật dựa vào kinh nghiệm để giải vấn đề, học khám phá) MSWLOGO Nếu khái niệm bí ẩn cho phần nhiều độc giả, sống mơi trường văn hóa mà khái niệm cho hệ bị cố ý che Về mặt này, tác phẩm “Two Cultures” C.P Snow tồn tại, tốt nước Anh Và bạn nghĩ khái niệm phức tạp để dạy cho trẻ nhỏ, bạn chưa biết tới giáo viên tài sáng tạo thực điều Trên thực tế, nhiều độc giả Anh độ tuổi 30 biết tới đệ quy, ví dụ, xưa nhiều trường học Anh dạy lập trình Logo, giúp trẻ em học cách chế tạo rùa máy để thực vận động phức tạp Nhưng cuối cùng, hầu hết trường từ bỏ dạy Logo quay lại dạy trẻ sử dụng Microsoft Word Nhân tiện, câu chuyện Logo cho thấy minh họa việc dạy trẻ viết chương trình máy tính phải phần tất yếu chương trình khoa học máy tính Lý khơng có cách tốt để giúp người hiểu khái niệm đệ quy hay thuật toán cách cho họ tự viết mã thực thi khái niệm Đó lý câu thần thời thượng - “mã chữ Latin mới” - lại khó hiểu đến Điều có nghĩa lập trình kỹ phù hợp lại khơng hữu ích tùy chọn Bộ chữ Latin loại ngôn ngữ thú vị, chết; mã máy tính ngơn ngữ sống kết nối mạng - đồng thời tái tạo di truyền Một quan niệm sai lan tràn tranh luận chương trình lý cho điều kinh tế: ta cần nhiều trẻ em hiểu điều cơng nghiệp “sáng tạo” cần nguồn nhân lực viết mã, từ suy trường đại học cần nguồn sinh viên định thành thạo máy tính Đó thật, hiển nhiên, khơng phải lý mà ta cần phải tạo thay đổi tận gốc hệ thống giáo dục Lời biện hộ lớn cho thay đổi kinh tế mà đạo đức Đó ta không hành động bây giờ, ta lừa đảo trẻ Chúng sống giới hình thành nhờ nhà vật lý, hóa học, sinh học lịch sử, ta muốn chúng hiểu thứ Nhưng giới chúng định hình nhờ điện tốn mạng chúng khơng có hiểu biết sâu khái niệm chúng tê liệt tri thức Chúng lớn lên người thụ động sử dụng thiết bị sản phẩm đóng, dẫn tới sống bị bao bọc công nghệ số người ưu tú tạo từ công ty khổng lồ Google, Facebook công ty giống Thực vậy, ta nuôi lớn hệ chuột cảnh chuồng có bánh xe lấp lánh Mark Zuckerberg đồng nghiệp tạo Đó có phải điều ta muốn khơng? Đương nhiên khơng Vậy bắt tay vào thơi MSWLOGO I LOGO LÀ GÌ? XUẤT XỨ Bắt đầu từ hệ máy tính, vào thập kỷ 60, ý tưởng “máy tính thơng minh” nảy nở ngành trí tuệ nhân tạo hình thành Tại Viện cơng nghệ MIT, nơi có dự án v ề trí tuệ nhân tạo, đời ngơn ngữ lập trình LISP, ngơn ngữ chun xử lý danh sách, nghĩa có tính phi số, phục vụ cho việc nghiên cứu trí tuệ nhân tạo, đời ngơn ngữ lập trình LISP, ngơn ngữ chun xử lý danh sách, nghĩa có tính phi số, phục vụ cho việc nghiên cứu trí tuệ nhân tạo Cũng đó, nhà tin học sư phạm S.Papert lại nảy ý muốn nghiên cứu hình thành trí tuệ trẻ em Từ 1967 ông J.Piaget hợp tác nghiên cứu J.Piaget nhà tâm lý tiếng, từ thập kỷ 20 đưa giả thuyết trí tuệ có cấu trúc thao tác minh họa hệ thống thao tác logic tốn Sự thành cơng MTĐT, cơng cụ logic hình thức, biện hộ ý tưởng J.Piaget Sự hợp tác hai nhà bác học thuộc hai lĩnh vực khác ưu tuổi thơ đưa đến đời LOGO, ngơn ngữ lập trình công nhận quốc tế ngôn ngữ sư phạm dành cho trẻ em Theo cách chiết tự LOGO có bao hàm hai nhân tố đặc trưng: LOGOS (ý niệm trí tuệ) LISP (truyền thống kế thừa) Nghĩa LOGO tự coi xuất thân từ LIPS trí tuệ trẻ em Chịu ảnh hưởng sâu sắc tư tưởng kiến thiết J.Piaget, S Papert thiết kế LOGO mơi trường tin học có “các - thực - thể - để - - tư - duy” nhằm giúp em phát triển trí tuệ q trình giao tiếp với LOGO Cụ thể mơi trường em “chơi mà học học chơi”, phù hợp với phát triển tự nhiên tâm sinh lý trẻ em Thành công thử nghiệm ban đầu thập kỷ 70 cho phép S.Papert đưa nhận xét: “Ngày giáo dục trẻ em đặt đối diện với máy tính y để thử thách, để giải tốn có cỡ, để nhồi nhét thơng tin Ấy máy chương trình hóa em, khơng khơng Với mơi trường LOGO tình đảo ngược: em chế ngự máy, chương trình hóa máy” Quan điểm sư phạm giàu tính nhân hậu tán đồng rộng rãi nên từ năm 80 với phổ cập máy vi tính, LOGO vào phục vụ đại trà em học sinh, từ tuổi mẫu giáo trở đi, nhiều nước có nên cơng nghiệp tin học phát triển Để em giao tiếp với máy thể với người thân Từ 1996 LOGO theo nhà tin học sư phạm Pháp đến Việt Nam CÁC ĐẶC TRƯNG CƠ BẢN CỦA LOGO 2.1 Đơn giản Đơn giản hiểu theo nghĩa sử dụng phát triển dần theo sở thích, nhu cầu mức độ hiểu biết Điều bảo đảm yếu tố chủ động, tích cực tiềm sáng tạo người dùng 2.2 Trực quan Bằng Rùa, rơbốt hình, thông báo ngắn gọn chế độ thông dịch, LOGO vừa trực quan hóa ý tưởng người dùng vừa bám sát nâng giấc bước chập chững người Mặt khác tạo chế để rà sốt, khảo sát mơ phỏng, với tình phức tạp Cụ thể, người dùng làm chậm lại trình chế biến cho hiển thị tất thông tin cần quan sát, thể quay chậm để xác minh pha gay cấn sân cỏ Nói chung, LOGO giúp cho người từ tư hình tượng dần vào tư trừu tượng, từ biểu tượng vào khái niệm, phán đoán suy lý Đó "chơi mà học học chơi" phù hợp với lứa tuổi phát triển, giàu tưởng tượng, động cần hài hòa em bé 2.3 Mở LOGO xây dựng từ từ vựng nguyên thủy, tức từ số từ khóa ban đầu Số từ khóa hồn tồn bổ sung, tức từ vựng mở rộng Khơng mở rộng từ vựng mà ý tưởng tạo vi giới LOGO tạo nên phần mềm mở, mơ giới thực lẫn giới viễn tưởng Như nguyên lý mở LOGO có dụng ý trình bày quan điểm tương lai Chúng ta người đương thời, chưa ý thức đầy đủ tương lai mà hình dung nó, cảm thấy Vậy ta đặt vào tay hệ trẻ cơng cụ tự phác họa thiết kế tương lai 2.4 Hiện đại Tuy giản đơn LOGO chứa tiềm đại lớn Trước hết cách để tồn tại, tin học phát triển vũ báo Yếu tố đại thể lực xử lý danh sách kỹ thuật đệ quy tính cấu trúc Là ngơn ngữ có cấu trúc với cách cấu trúc môđun theo nguyên lý "phân tán tuyệt đối", LOGO thích ứng với trình độ lập trình, mở rộng biên độ sử dụng Mặt khác, ngơn ngữ thủ tục LOGO có chứa yếu tố vị từ ngôn ngữ phi thủ tục, đặt gạch nối ngôn ngữ cổ điển với ngơn ngữ vị ngữ sở để hòa nhập với ngôn ngữ tương lai Với đặc trưng ấy, LOGO MSWLOGO coi phần mềm dạy học phần mềm mở, ngôn ngữ sư phạm Ở chưa vào khía cạnh tinh tế gắng minh họa đường nét có tính phác thảo tồn cảnh TÌM HIỂU CÁC THÀNH PHẦN CƠ BẢN CỦA LOGO 3.1 Bộ chữ viết từ vựng LOGO LOGO xây dựng ký tự bao gồm: + Bộ chữ latinh: 26 chữ hoa A, B, Z 26 chữ thường a, b, , z + Bộ chữ số thập phân : 0, , + Bộ ký hiệu tốn học thơng dụng : +, -, *, / , =, >, 2) [DAGIAC :M :N] end b) Hàm OR Cú pháp: OR (điều_kiện 1) (điều_kiện 2)… Ngược lại với hàm And, hàm xét điều kiện cho kết Đúng cần điều kiện thỏa mãn (Đúng) Chỉ tất điều kiện không thỏa mãn (Sai) hàm cho kết Sai 3) Về so sánh biểu thức logic: Về MSWLogo có phép so sánh ngơn ngữ lập trình khác so sánh (=), so sánh lớn (>), so sánh nhỏ (2) [DAGIAC :M :N] [LABEL [so canh khong phu hop]] End V CẤU TRÚC LẶP Cấu trúc lặp với số lần lặp biết trước: người ta thường dùng cú pháp sau: 1.1.Câu lệnh REPEAT: Cú pháp: Repeat N[ lệnh1 lệnh2 …] Ý nghĩa: Lặp lại N lần lệnh: lệnh1 lệnh2 … Cách thực vòng lặp sau: MSWLogo cho thực N lần dãy lệnh lệnh1 lênh2 … Ví dụ 1: vẽ đa giác có số cạnh độ dài cạnh người chạy chương trình lệnh to DG_NcanhM :M :N repeat :N[FD :M RT 360/:N] end Rõ ràng sô lần lặp biết trước N Ví du 2: Giải đề thi tin học trẻ toàn quốc năm 2015 Câu (20 điểm): Biển báo Em viết câu lệnh chương trình MSWLogo để vẽ hình – Biển báo giao thông “cấm dừng đổ xe” Biết bán kính vòng tròn ngồi 110 đơn vị, bán kính vòng tròn 90 đơn vị, độ dày đường chéo 10 đơn vị Tô màu quy định biển báo giao thông Giải: to bienbao cs pd setpc [255 0] circle 110 rt 45 pu fd lt 90 fd pd repeat 4[fd 85 rt 90 arc2 90 85 rt 90 fd 85 pu fd 10 pd] pu home setFC fill fd 30 setFC fill rt 135 fd 40 repeat 3[fill rt 90 fd 40]pd ht end Hình 1(bản màu đen, xám) Câu (10 điểm): Hình vẽ Em viết câu lệnh chương trình MSWLogo để vẽ hình Biết Hình tạo thành từ hình vng tam giác có kích thước cạnh 100 đơn vị Giải: to vehinh cs pd repeat 8[repeat 4[fd 100 rt 90] fd 100 lt 90 repeat 2[rt 120 fd 100] rt 75 pu fd 100*sqrt(2) rt 180 pd] end Hình Câu (10 điểm): Tinh tốn MSWLOGO Một bể nước tích 2015 lít thùng đựng nước tích 31 lít lít Chỉ có hai thao tác: - Thao tác 1: Múc đầy thùng 31 lít đổ vào bể - Thao tác 2: Múc đầy thùng lít đổ vào bể Em sử dụng câu lệnh MSWLogo để tính đưa số cách sử dụng thao tác để làm đầy bể nước Hai cách gọi khác tổng số thao tác sử dụng khác Giải: to tinhtoan cs make "d make "m make "n repeat 66[repeat 251[if (:m*31+:n*8)=2015[make "d :d+1] make "n :n+1] make "n make "m :m+1] rt 90 label [so cach la] pu fd 100 pd label :d ht end Cấu trúc lặp với số lần lặp chưa biết trước (lặp có điều kiện) Ta biết câu lệnh Repeat để lặp lại công việc Trong câu lệnh này, số bước lặp biết trước MSWLogo thực số bước định Ví dụ 1: Cần tính tổng S = + + + + + …+ N Ta giải toán với biến S A thực sau: Đầu tiên, ta cho S = A = 1; thực lặp N lần với hai công việc cộng dồn S = S + A cho tăng A đơn vị: A = A +1 To cong :N CS Make “S Make “A Repeat :N [Make “S :S*:A Make “A :A+1] RT 90 Label :S End Với toán trên, N biến ta biết trước thực chương trình Trong nhiều trường hợp, số lần lần lặp lại trước số vòng lặp xác định điều kiện Khi cần sử dụng vòng lặp có điều kiện While (hay gọi vòng lặp với số lần lặp khơng xác định) Ví dụ 2: Tính tổng S = + + 11 + 15 + 19 + … số hạng cuối gần 100 Cũng giống trên, ta giải với biến S A, ta cho S=0 A=3; sau thực lặp với hai việc cộng dồn S = S + A tăng A = A + (vì khoảng cách số hạng 4) Vấn đề đặt là: Số lần lặp ? 1.2.Câu lệnh FOR: Cú Pháp: For [ ] [Câu lệnh] Công dụng: - Ban đầu nhận giá trị - [Câu lệnh] thực nhỏ giá trị cuối, lần thực câu lệnh tăng lên Ví dụ: 10 MSWLOGO Bài 41: Tìm số có hai chữ sơ, biết rằng, số cộng với hai lần tổng chữ số 93 Em sử dụng câu lệnh MSWLogo để tìm số Lưu lại với tên tệp timso.doc to so CS Make "a Make "b Make "m Make "dem for[i 1][Make "a :i for[j 1][Make "b :j if((10*:a+:b)+(:a+:b)*2)=93[Make "m (10*:a+:b) rt 90 Label :m PU FD 50 PD LT 90 Make "dem :dem+1]]] PU BK 50 RT 90 BK 200 Label[So luong so can tim la:] FD 250 Label :dem HT End Bài 42: Tìm số tự nhiên có hai chữ số, biết viết thêm chữ số vào bên trái số số gấp 13 lần số cho Em sử dụng câu lệnh MSWLogo để tìm số Lưu lại với tên tệp timso.doc to so CS Make "a Make "b Make "c for[i 1][Make "a :i for[j 1][Make "b :j if((900+:a*10+:b)=((10*:a+:b)*13)) [Make "c (10*:a+:b) rt 90 Label :c]]] HT end Bài 43: Tìm số tự nhiên có hai chữ số, biết viết thêm chữ số vào bên trái số số gấp 13 lần số cho Em sử dụng câu lệnh MSWLogo để tìm số Lưu lại với tên tệp timso3.doc to so CS Make "a Make "b Make "c for[i 1][Make "a :i for[j 1][Make "b :j if((900+:a*10+:b)=((10*:a+:b)*13)) [Make "c (10*:a+:b) rt 90 Label :c]]] HT end Bài số 44: Có số tự nhiên có hai chữ sơ, biết viết thêm chữ số vào bên trái số ta số lớn gấp 13 lần số cho Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso.doc to timso CS Make "a Make "b Make "c make "d Make "dem For[k 1][Make "a :k for[i 1][Make "b :i for [j 1][Make "c :j if ((:c*100+:a*10+:b)=((10*:a+:b)*13)) [Make "d(10*:a+:b) rt 90 Label :d 42 MSWLOGO PU FD 1]]]] PU BK luong Label HT end 50 PD LT 90 Make "dem :dem + 50 RT 90 BK 200 Label[So so can tim la:] FD 250 :dem Bài 45: Tìm số tự nhiên có ba chữ số, biết viết thêm chữ số vào bên trái số số gấp 26 lần số cho Em sử dụng câu lệnh MSWLogo để tìm số Lưu lại với tên tệp timso4.doc to so CS Make "m Make "a Make "b Make "c for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((9000+:a*100+:b*10+:c)=((100*:a+ :b*10+:c)*26))[Make "m (100*:a+:b*10+:c) rt 90 Label :m]]] HT end Bài 46: Tìm số tự nhiên có hai chữ số, biết viết thêm số 21 vào bên trái số ta số gấp 31 lần số cho Em sử dụng câu lệnh MSWLogo để tìm số Lưu lại với tên tệp timso21.doc to CS Make "a Make "b Make "c for[i 1][Make "a :i for[j 1][Make "b :j if((2100+:a*10+:b)=((10*:a+:b)*31)) [Make "c (10*:a+:b) rt 90 Label :c]]] HT end Bài 47: Khi viết thêm chữ số vào chữ số hàng chục hàng trăm số tự nhiên có chữ số gấp lên lần Em sử dụng câu lệnh MSWLogo để tìm số có chữ số Lưu lại với tên tệp timso3CS1.doc to so3 CS Make "m Make "a Make "b Make "c for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:a*1000+:b*10+:c)=((100*:a+:b*1 0+:c)*6))[Make "m (100*:a+:b*10+:c) rt 90 Label :m]]]] HT end 43 MSWLOGO Bài 48: Khi viết thêm chữ số vào chữ số hàng chục hàng trăm số tự nhiên có chữ số gấp lên lần Em sử dụng câu lệnh MSWLogo để tìm số có chữ số Lưu lại với tên tệp timso3CS2.doc to so3 CS Make "m Make "a Make "b Make "c for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:a*1000+:b*10+:c)=((100*:a+:b*10+:c)*7)) [Make "m (100*:a+:b*10+:c) rt 90 Label :m]]]] HT end Bài 49: Khi xóa chữ số hàng trăm số có chữ số số giảm lần Em sử dụng câu lệnh MSWLogo để tìm số có chữ số Lưu lại với tên tệp timso3CS3.doc to so3 CS Make "m Make "a Make "b Make "c for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:b*10+:c)=((100*:a+:b*10+:c)/7))[Make "m (100*:a+:b*10+:c) rt 90 Label :m]]]] HT end Bài 50: Tìm số tự nhiên có chữ số, biết lấy số chia cho tổng chữ số ta thương 11 Em sử dụng câu lệnh MSWLogo để tìm số có chữ số Lưu lại với tên tệp timso3CS4.doc to timso3CS CS Make "m Make "a Make "b Make "c for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:a*100+:b*10+:c)/(:a+:b+:c)=11)[Make "m (100*:a+10*:b+:c) rt 90 Label :m]]]] HT end Bài 51: Tìm số tự nhiên có chữ số, biết số gấp lần tích chữ số Em sử dụng câu lệnh MSWLogo để tìm số có chữ số Lưu lại với tên tệp timso3CS5.doc to timso3CS CS Make "m Make "a Make "b Make "c for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:a*100+:b*10+:c)=(:a*:b*:c)*5)[Make "m (100*:a+10*:b+:c) rt 90 Label :m]]]] HT 44 MSWLOGO end Bài 52: Tìm số tự nhiên có chữ số, biết số gấp lần tích chữ số Em sử dụng câu lệnh MSWLogo để tìm số có chữ số Lưu lại với tên tệp timso2CS1.doc to timso2CS CS Make "m Make "a Make "b for[i 1][Make "a :i for[j 1][Make "b :j if((:a*10+:b)=(:a*:b)*2)[Make "m (10*:a+:b) rt 90 Label :m]]] HT end Bài 53: Tìm số tự nhiên có chữ số, biết số chia cho hiệu chữ số hàng chục với hàng đơn vị Em sử dụng câu lệnh MSWLogo để tìm số có chữ số Lưu lại với tên tệp timso2CS2.doc to timso2CS CS Make "m Make "a Make "b for[i 1][Make "a :i for[j 1][Make "b :j if((:a*10+:b)=(:a-:b)*28+1)[Make "m (10*:a+:b) rt 90 Label :m]]] HT end Bài 54: Tìm số tự nhiên có chữ số, biết lấy số chia cho tổng chữ số ta thương dư 12 Em sử dụng câu lệnh MSWLogo để tìm số có chữ số Lưu lại với tên tệp timso2CS3.doc to timso2CS CS Make "m Make "a Make "b for[i 1][Make "a :i for[j 1][Make "b :j if((:a*10+:b)-12=(:a+:b)*6)[Make "m (10*:a+:b) rt 90 Label :m]]] HT end Bài 55: Khi xóa chữ số hàng trăm số có chữ số chữ số số giảm lần Em sử dụng câu lệnh MSWLogo để tìm số có chữ số Lưu lại với tên tệp timso3CS3.doc to so3 CS Make "m Make "a Make "b Make "c for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:b*10+:c)=((300*:a+:b*10+:c)/5))[Make "m (300*:a+:b*10+:c) rt 90 Label :m]]]] HT end Bài 56: Khi xóa chữ số hàng nghìn số có chữ sơ số giảm lần Em sử dụng câu lệnh MSWLogo để tìm số có chữ to so4 CS Make "m Make "a Make "b 45 MSWLOGO số Lưu lại với tên tệp Make "c timso4CS1.doc Make "d for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k for[h 1] [Make "d :h if((:b*100+:c*10+:d)=((4000*:a+100*:b+10*:c+:d )/9))[Make "m (4000*:a+:b*100+10*:c+:d) rt 90 Label :m]]]]] HT end Bài 57: Khi xóa chữ số hàng nghìn số có chữ so số giảm lần số có chữ số Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso4cs2.doc to so4 CS Make "m Make "a Make "b Make "c Make "d Make "dem for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k for [h 1] [Make "d :h if((:b*100+:c*10+:d)=((1000*:a+100*:b+10*:c+: d)/9))[Make "m (1000*:a+:b*100+10*:c+:d) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]]] PU BK 30 RT 90 BK 350 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 58: Khi xóa chữ số hàng trăm số có chữ so số giảm lần số có chữ số Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso3cs4.doc to so3 CS Make "m Make "a Make "b Make "c Make "dem for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:b*10+:c)=((100*:a+10*:b+:c)/7))[Make "m (100*:a+:b*10+:c) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]] PU BK 30 RT 90 BK 350 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 59: Khi xóa chữ số to so3 hàng trăm số có CS chữ so số giảm lần Make "m số có chữ số Em sử 46 MSWLOGO dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso3cs5.doc Make "a Make "b Make "c Make "dem for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:b*10+:c)=((100*:a+10*:b+:c)/5))[Make "m (100*:a+:b*10+:c) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]] PU BK 30 RT 90 BK 180 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 60: Tìm số tự nhiên có hai chữ sơ, biết số gấp lần tích chữ số Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso2cs.doc to so2 CS Make "m Make "a Make "b Make "dem for[i 1][Make "a :i for[j 1][Make "b :j if((:a*10+:b)=((:a*:b)*3))[Make "m (:a*10+:b) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]] PU BK 30 RT 90 BK 180 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 61: Tìm số có hai chữ số, biết số gấp 21 lần hiệu chữ số hàng chục hàng đơn vị Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso2cs1.doc to so2 CS Make "m Make "a Make "b Make "dem for[i 1][Make "a :i for[j 1][Make "b :j if((:a*10+:b)=((:a-:b)*21))[Make "m (:a*10+:b) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]] PU BK 30 RT 90 BK 250 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 62: Tìm số có hai chữ số, biết thêm chữ số vào bên phải số ta số lớn số phải tìm 230 đơn vị Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp to so2 CS Make "m Make "a Make "b Make "dem for[i 1][Make "a :i for[j 1][Make "b :j if(:a*100+:b*10+5)-230=(10*:a+:b)[Make 47 MSWLOGO cacso2cs2.doc "m (:a*10+:b) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]] PU BK 30 RT 90 BK 60 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 63: Tìm số tự nhiên có chữ sơ, biết viết thêm số 12 vào bên phải số số tăng thêm 53769 đơn vị Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso3cs6.doc to so3 CS Make "m Make "a Make "b Make "c Make "dem for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:a*10000+:b*1000+:c*100+12)53769)=(100*:a+:b*10+:c)[Make "m (:a*100+:b*10+:c) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]] PU BK 30 RT 90 BK 60 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 64: Tìm số tự nhiên có chữ số, biết ta xóa chữ số hàng chục hàng đơn vị số giảm 4455 đơn vị Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso4cs.doc to so4 CS Make "m Make "a Make "b Make "c Make "d Make "dem for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k for [h 1] [Make "d :h if((:a*10+:b) +4455=((1000*:a+100*:b+10*:c+:d)))[Make "m (1000*:a+:b*100+10*:c+:d) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]]] PU BK 30 RT 90 BK 350 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 65: Tìm số tự nhiên có ba chữ số biết viết thêm chữ số vào bên phải số số tăng thêm 4106 đơn vị Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso2cs3.doc to so3 CS Make "m Make "a Make "b Make "c Make "dem for[i 1][Make "a :i for[j 48 MSWLOGO 1][Make "b :j for[k 1][Make "c :k if((:a*1000+:b*100+:c*10+2)4106)=(100*:a+:b*10+:c)[Make "m (:a*100+:b*10+:c) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]] PU BK 30 RT 90 BK 60 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 66: Tìm số tự nhiên có chữ số, biết viết số theo thứ tự ngược lại ta số gấp lần số ban đầu Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso4cs.doc to so4 CS Make "m Make "a Make "b Make "c Make "d Make "dem for[i 1][Make "a :i for[j 1] [Make "b :j for[k 1][Make "c :k for [h 1][Make "d :h if((:a*1000+:b*100+:c*10+:d)*4=((1000*: d+100*:c+10*:b+:a)))[Make "m (1000*:a+:b*100+10*:c+:d) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]]] PU BK 30 RT 90 BK 350 Label [Cac so can tim la:] FD 200 Label :dem HT End Bài 67: Việt có 20 viên bi, Nam có viên bi Cả Việt Nam cho Bình số viên bi nhau, sau Việt lại cho Nam số viên bi số viên bi mà Nam có, nhận thấy số bi Việt Nam Em sử dụng câu lệnh MSWLogo để tìm số bi Việt Nam cho Bình Lưu lại với tên tệp timbi.doc to timsobi CS PD Make "x Make "a 20 - :x Make "b - :x While [not :b*2 make "a 20 - :x Rt 90 label [So fd 150 pd label HT End Bài 68:Tìm hai số có tổng 43 Nếu đem số thứ gấp lên lần số thứ hai gấp lên lần thi tổng 122 Em sử dụng câu lệnh MSWLogo để tìm số Lưu lại với tên tệp timso.doc to timhaiso CS PD Make "a Make "b 42 While [not :a*4+:b*2=122][make "a :a + make "b :b - 1] = 12][make "x :x +1 make "b - :x] bi can tim la:] pu :x 49 MSWLOGO RT 90 label [So thu nhat la:] pu fd 250 pd label :a Pu bk 250 lt 90 bk 30 rt 90 pd Label [So thu hai la:] pu fd 250 pd label :b HT End Bài 69: Tìm số có hai chữ số, biết tổng chữ số số 14 Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso2cs4.doc to timso2CS CS Make "m Make "a Make "b Make "dem for[i 1][Make "a :i for[j 1] [Make "b :j if((:a+:b)= 14)[Make "m (10*:a+:b) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]] PU BK 30 RT 90 BK 300 Label [Cac so can tim la:] FD 200 Label :dem HT End Bài 70: Tìm số có ba chữ số, biết tổng chữ số số 25 Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso3cs7.doc to so3 CS Make "m Make "a Make "b Make "c Make "dem for[i 1][Make "a :i for[j 1] [Make "b :j for[k 1][Make "c :k if((:a+:b+:c)=25)[Make "m (:a*100+:b*10+:c) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]] PU BK 30 RT 90 BK 350 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 71: Tìm số tự nhiên có chữ số, biết chuyển chữ số cuối lên chữ số đầu ta số lớn số cho 531 đơn vị Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso4cs.doc to so4CS CS Make "m Make "a Make "b Make "c Make "d Make "dem for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k for[h 1][Make "d :h if((:d*1000+:a*100+:b*10+:c)50 MSWLOGO (1000*:a+100*:b+10*:c+:d)=531) [Make "m (1000*:a+:b*100+10*:c+:d) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]]] PU BK 30 RT 90 BK 350 Label [Cac so can tim la:] FD 200 Label :dem HT End Bài 72: Tìm số có ba chữ số, biết số gấp 20 lần tổng chữ số số Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso3cs8.doc to so3 CS Make "m Make "a Make "b Make "c Make "dem for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:a+:b+:c)=(:a*100+:b*10+:c)/2 0)[Make "m (:a*100+:b*10+:c) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]] PU BK 30 RT 90 BK 350 Label [Cac so can tim la:] FD 200 Label :dem HT end Bài 73: Tìm số tự nhiên có chữ số, biết chuyển chữ số cuối lên chữ số đầu ta số lớn số cho 765 đơn vị Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso3cs.doc to so3CS CS Make "m Make "a Make "b Make "c Make "dem for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k if((:c*100+:a*10+:b)(100*:a+10*:b+:c)=765)[Make "m (100*:a+:b*10+:c) rt 90 Label :m PU FD 60 PD LT 90 Make "dem :dem+1]]]] PU BK 30 RT 90 BK 350 Label [Cac so can tim la:] FD 200 Label :dem HT End Bài 74: Tìm số tự nhiên có chữ số, biết to so viết thêm chữ số vào bên trái số ta CS Make "a Make "b 51 MSWLOGO Make "c số có chữ số số viết chữ số for[i 1][Make "a :i for[j 1][Make "b :j vào bên phải số có chữ số Em sử if((100*:a+10*:b+3)=3/4*((300+10* dụng câu lệnh MSWLogo để tìm số có :a+:b)))[Make "c (10*:a+:b) rt 90 chữ số Lưu lại với tên tệp so2cs.doc Label :c]]] HT end Bài 75: Cho số có chữ số có chữ số hàng đơn vị 5, biết chuyển chữ số lên đầu ta số giảm 531 đơn vị Em sử dụng câu lệnh MSWLogo để tìm số liệt kê Lưu lại với tên tệp cacso4cs.doc to so4CS CS Make "m Make "a Make "b Make "c Make "d Make "dem for[i 1][Make "a :i for[j 1][Make "b :j for[k 1][Make "c :k for[h 1 1][Make "d :h if((1000*:a+100*:b+10*:c+5)(5*1000+:a*100+:b*10+:c)=531)[Make "m (1000*:a+:b*100+10*:c+5) rt 90 Label :m PU FD 50 PD LT 90 Make "dem :dem+1]]]]] PU BK 30 RT 90 BK 350 Label [Cac so can tim la:] FD 200 Label :dem HT End Bài 76: Cách năm, tuổi mẹ gấp lần tuổi con,biết tổng số tuổi mẹ 46 Em sử dụng câu lệnh MSWLogo để tính tuổi mẹ Lưu lại với tên tệp timtuoi.doc to timtuoi CS PD Make "a Make "b 45 While [not (:b-5)=(:a-5)*5 ] [make "a :a + make "b :b - 1] RT 90 label [Tuoi la:] pu fd 250 pd label :a Pu bk 250 lt 90 bk 30 rt 90 pd Label [Tuoi me la:] pu fd 250 pd label :b HT End Bài 77: Cách năm, tổng số tuổi mẹ 36 tuổi, biết 12 năm tuổi mẹ gấp đơi tuổi Em sử dụng câu lệnh MSWLogo để tính tuổi mẹ Lưu lại với tên tệp timtuoi.doc to tinhtuoi CS PD Make "a Make "b 47 While [not (:b+12)=(:a+12)*2 ] [make "a :a + make "b :b - 1] 52 MSWLOGO RT 90 label [Tuoi la:] pu fd 250 pd label :a Pu bk 250 lt 90 bk 30 rt 90 pd Label [Tuoi me la:] pu fd 250 pd label :b HT End Bài 77: Cách to tinhtuoi CS PD Make "x Make "a :x+6 Make "b 36-:x-6 While [not (:b+12)=(:a+12)*2 ] [make "x :x+1 make "a :a + make "b :b + 1] RT 90 label [Tuoi hien la:] pu fd 250 pd label :a Pu bk 250 lt 90 bk 30 rt 90 pd Label [Tuoi me hien la:] pu fd 250 pd label :b HT End Bài 78: Mẹ sinh năm 26 tuổi, biết 15 năm tuổi mẹ gấp đơi tuổi Em sử dụng câu lệnh MSWLogo để tính tuổi mẹ Lưu lại với tên tệp timtuoi.doc to tinhtuoi CS PD Make "a Make "b :a+26 While [not (:b+15)=(:a+15)*2 ] [make "a :a + make "b :b + 1] RT 90 label [Tuoi la:] pu fd 250 pd label :a Pu bk 250 lt 90 bk 30 rt 90 pd Label [Tuoi me la:] pu fd 250 pd label :b HT End Bài 79: Cách năm, tổng số tuổi anh em 11 tuổi, biết anh em tuổi Em sử dụng câu lệnh MSWLogo để tính tuổi anh em Lưu lại với tên tệp timtuoianhem.doc to tinhtuoianhem CS PD Make "a Make "b 16 While [not (:b+3)-(:a+3)=5 ][make "a :a + make "b :b - 1] RT 90 label [Tuoi em hien la:] pu fd 260 pd label :a Pu bk 260 lt 90 bk 30 rt 90 pd Label [Tuoi anh hien la:] pu fd 250 pd label :b 53 MSWLOGO HT End Bài 80: Hiện tuổi mẹ gấp lần tuổi Đến tuổi tuổi mẹ tổng số tuổi hai mẹ 84 tuổi Em sử dụng câu lệnh MSWLogo để tính tuổi mẹ Lưu lại với tên tệp tinhtuoi.doc to tinhtuoi CS PD Make "a Make "b :a*5 While [not (:a*5+:a*5+:a*4)=84 ] [make "a :a +1 make "b :b-1] RT 90 label [Tuoi hien la:] pu fd 260 pd label :a Pu bk 260 lt 90 bk 30 rt 90 pd Label [Tuoi me hien la:] pu fd 250 pd label :a*5 HT End Bài 81: Năm anh 11 tuổi, em tuổi Hỏi sau bao năm tổng số tuổi hai anh em 28 tuổi Em sử dụng câu lệnh MSWLogo để tính số năm Lưu lại với tên tệp tinhtuoi2anhem.doc to tinhtuoi2anhem CS PD Make "a Make "b 11 Make "x While [not (:x+:a+:x+:b=28)][make "x :x +1] RT 90 label [So nam nua la:] pu fd 150 pd label :x HT End Bài 82: Hiện tuổi bố gấp lần tuổi tổng số tuổi hai bố 50 tuổi Hỏi sau năm tuổi bố gấp lần tuổi Em sử dụng câu lệnh MSWLogo để tính số năm Lưu lại với tên tệp tinhnam1.doc to tinhnam1 CS PD Make "a 50*1/5 Make "b 50-:a Make "x While [not (:x+:a)*2=(:x+:b)][make "x :x +1] RT 90 label [So nam nua la:] pu fd 150 pd label :x HT End Bài 83: Hiện 15 tuổi, bố 45 tuổi Sau bao to tinhnam2 54 MSWLOGO nhiêu năm tuổi bố gấp đôi tuổi con? Em CS sử dụng câu lệnh MSWLogo để tính PD số năm Lưu lại với tên tệp tinhnam2.doc Make "a 15 Make "b 45 Make "x While [not (:x+:a)=(:x+:b)/2] [make "x :x +1] RT 90 label [So nam nua tuoi bo gap lan tuoi la:] pu fd 420 pd label :x HT End Bài 84: Hiện 15 tuổi, bố 45 tuổi Hỏi trước năm tuổi bố gấp lần tuổi con? Em sử dụng câu lệnh MSWLogo để tính số năm Lưu lại với tên tệp tinhnam2.doc to tinhnam2 CS PD Make "a 15 Make "b 45 Make "x While [not (:b-5)/(:a-5)=:x][make "x :x +1] RT 90 label [Truoc day nam so lan tuoi bo gap tuoi la:] pu fd 450 pd label :x HT End Bài 85: Hiện tuổi mẹ gấp lần tuổi Sau năm tuổi mẹ gấp lần tuổi con? Em sử dụng câu lệnh MSWLogo để tính số năm Lưu lại với tên tệp tinhnam3.doc to tinhnam3 CS PD Make "a Make "b :a*7 Make "x While [not (:x+:a)*4=(:x+:b)] [make "x :x +1] RT 90 label [So nam nua tuoi me gap lan tuoi la:] pu fd 400 pd label :x HT End Bài 86: Năm mẹ 28 tuổi mẹ gấp lần tuổi tuổi mẹ tuổi con? Em sử dụng câu lệnh MSWLogo để tính số năm Lưu lại với tên tệp tinhtuoi.doc to tinhtuoi CS PD Make "a Make "b :a+28 Make "x While [not (:b+:x)=(:a+:x)*5 ][make "a :a + make "b :b + 1] RT 90 label [Tuoi la:] pu fd 250 pd label (:a+:x) Pu bk 250 lt 90 bk 30 rt 90 pd Label [Tuoi me la:] pu fd 240 pd label (:b+:x) 55 MSWLOGO HT End Bài 87: Cách năm, em lên tuổi anh tuổi Hỏi trước năm tuổi anh gấp lần tuổi em ? Em sử dụng câu lệnh MSWLogo để tính số năm Lưu lại với tên tệp tinhnam4.doc to tinhnam4 CS PD Make "a Make "b :a+6 Make "x While [not (:a-:x)*3=(:b-:x)][make "x :x +1] RT 90 PU BK 250 label [So nam truoc day tuoi anh gap lan tuoi em la:] pu fd 450 pd label :x HT End Bài 88: Hiện tuổi bố gấp lần tuổi tổng số tuổi hai bố 50 tuổi Hãy tính tuổi người tuổi bố gấp lần tuổi Em sử dụng câu lệnh MSWLogo để tính tuổi người Lưu lại với tên tệp tinhtuoi.doc to tinhtuoi CS PD Make "a 10 Make "b :a*4 Make "x While [not (:b+:x)=(:a+:x)*3 ][make "a :a + make "b :b + 1] RT 90 label [Tuoi tuoi cha gap lan la:] pu fd 350 pd label (:a+:x) Pu bk 350 lt 90 bk 30 rt 90 pd Label [Tuoi cha gap lan tuoi la:] pu fd 350 pd label (:b+:x) HT End Bài 89: Hùng Cường tuổi, biết 4/7 tuổi Hùng 2/3 tuổi Cường Tính tuổi người Em sử dụng câu lệnh MSWLogo để tính tuổi người Lưu lại với tên tệp tinhtuoi.doc to tinhtuoi CS PD Make "a Make "b :a+4 While [not (:a*2/3)=(:b*4/7)][make "a :a + make "b :b + 1] RT 90 label [Tuoi cua Cuong la:] pu fd 200 pd label :a Pu bk 200 lt 90 bk 30 rt 90 pd Label [Tuoi cua Hung la:] pu fd 200 pd label :b HT End Bài 90: Trước năm, tuổi Lan nửa tuổi Lan sau năm Tính tuổi Lan Em sử dụng câu lệnh MSWLogo để tính tuổi Lan Lưu lại với tên tệp tinhtuoi.doc to tinhtuoi CS PD Make "a While [not (:a-8)*2=(:a+8)][make "a :a +1] RT 90 label [Tuoi Lan hien la:] pu fd 250 pd label :a HT End 56 ... việc a, b, c 13 MSWLOGO Wait n Chờ n/60 giây Wait 60 chờ giây BÀI TẬP DÙNG LỆNH MSWLOGO VẼ HÌNH Hãy dùng lệnh MSWLogo để vẽ hình sau: Bài Em viết câu lệnh chương trình MSWLogo để vẽ bên cạnh... ngôn ngữ LOGO + Từ từ quy định phải viết với dấu nháy kép (“) đầu Ví dụ ta muốn đưa thơng tin từ “MSW logo vào chương trình chạy phải gõ: “MSW logo tức gõ dấu nháy kép trước gõ “MSW logo + Từ... trưng ấy, LOGO MSWLOGO coi phần mềm dạy học phần mềm mở, ngôn ngữ sư phạm Ở chưa vào khía cạnh tinh tế gắng minh họa đường nét có tính phác thảo tồn cảnh TÌM HIỂU CÁC THÀNH PHẦN CƠ BẢN CỦA LOGO 3.1