Tác giả: Đình Trọng

Đề bài: Nhập vào 2 số m,n (n>n) cho biết số lần n xuất hiện trong m ví dụ 500 và 0 số lần xuất hiện của 0 là 2. Thủ tục STR(num,s) dùng đổi số thành chuỗi ký tự. (s là tham biến) Hàm Pos(s2,s1) tìm vị trí xuất hiện của s2 trong chuỗi s1 Thủ tục Delete(s,i,n) xóa chuỗi s từ vị trí thứ i trở đi n ký tự. (s là tham biến) Bài giải Program SLXH; Uses CRT; Var m,n:Longint; dem:byte; s1,s2:String; Begin Repeat Clrscr; Write(‘Nhap so thu nhat m ‘); Readln(m); Write(‘Nhap so thu hai…

Câu 1: Bài này đã có rất lâu trên website ở đây chúng tôi cung cấp cho các bạn code giải của Thầy Nguyễn Nguyễn (fb) các bạn tham khảo. To Hoasen2     CS     SetPC[255 0 255]     LT 125 Repeat 9[Repeat 2[Arc2 90 200 RT 90]RT 20] End Câu 2: Phần vẽ hình Phần nhập giá trị Phần chương trình chính Ở đây dùng một biết là thoat để kiểm tra xem có thể đi tiếp không. Chương trình sẽ kiểm tra xem ô đầu tiên có phải là ô màu ko, nếu không phải thì mới làm…

To Cau2 CS Repeat 6[Arc2 180 50 RT 360/3] LT 60 Circle2 100 PU RT 90 FD 100 SetFC 14 Fill PD HT End To Cau3 Cs Ht Repeat 5[ Repeat 5[FD 50 RT 360/5] Repeat 5[FD 25 LT 360/5] RT 180-72 FD 50 RT 36 FD 25 LT 180-108] End To Cau4 :n ;Truyền độ dài cạnh hình vuông ban đầu vào CS Make “s 0 PU FD :n/2 Make “m Distance (list :n/2 0) Home PD For[i 1 7 1][IfElse (modulo :i 2)=1 [ Make “s :s+:n*:n Repeat 4[Fd :n rt 90] Fd :n/2 rt 45 make “n…

A. Soạn thảo văn bản: khó hay dễ? Ngày nay chúng ta không thể tìm thấy một văn bản chính thức nào của nhà nước mà không được thực hiện trên máy tính. Công việc soạn thảo văn bản giờ đây đã trở nên quen thuộc với tất cả mọi người. Tuy nhiên không phải ai cũng nắm vững các nguyên tắc gõ văn bản cơ bản nhất mà chúng tôi sắp trình bày hôm nay. Bản thân tôi đã quan sát và nhận thấy rằng 90% sinh viên tốt nghiệp các trường đại học không nắm vững (thậm chí…

Trong bài viết này chúng tôi dùng Mswlogo để vẽ bông hoa 6 cánh như hình dưới đây: Kết quả là như thế này :D, nhìn nó không giống với phiên bản gốc cho lắm nhưng ở trong đó có rất nhiều điều thú vị, các bạn có thể xem lại tại đây Trong bài này tôi viết một chương trình tên là a, (do lười nên trong page toàn đặt là aa zz xx thôi) chương trình này vẽ và tô màu 1 cụm 5 cánh hoa, để cho việc chọn màu vẽ và tô màu được ngắn ngọn…

Xử lý dữ liệu từ bàn phím Đây là một bài viết nâng cao thích hợp cho các thầy cô nghiên cứu tuy nhiên một phần nhỏ trong này cũng rất thích hợp để các thầy cô hướng dẫn cho họ trò của mình, đầu tiên tôi hướng dẫn cách các chúng ta kiểm tra xem phím nào được nhấn và xử lý phím đó. Phím được nhấn có 2 trạng thái 1 là khi nhấn xuống 2 là khi buông ra. Ở ví dụ sau đây tôi dùng bốn phím mũi tên để điều khiển rùa đi trên sân…

To Cau1     CS HT     Repeat 24[             Repeat 4[fd 100 RT 90]                     RT 360/24 PU FD 10 PD]     Pu RT 90 FD 38 LT 90 BK 5 PD     Circle 120 End Cách giải câu 2 Vì hình chữ nhật to ABCD chia làm 4 hình chữ nhật nhỏ mà đa giác lại là 1/2 diện tích của tổng tất cả 4 hình chữ nhật nhỏ đó nên diện tích nó chính bằng 1/2 diện tích của ABCD, các bạn có thể tham khảo cách tính khác ở dưới. Mở…

Tình cờ trên mạng phát hiện ra cái hình này và tôi nghĩ là MSWLogo sẽ vẽ được, nhìn thì có vẻ đơn giản với một hình vuông và một bát giác ở ngoài. Tuy nhiên khi bắt tay vào thự hiện thì hàng loạt vấn đề phát sinh. Các bạn có thể xem chi tiết ở đây. Trước giờ chúng ta thường sử dụng SETXY cho tọa độ cố định, ở ví dụ dưới đây cũng là cách để các bạn có thể hình dung ra việc sử dụng SetXY ở mức độ tương đối, có thể thay đổi…

Đề bài: Cho 3 số a, b, c thực. Kiểm tra xem mỗi 3 số đó giữ nguyên thứ tự của chúng có tạo thành cấp số nhân hay không. Nếu 3 số đó tạo thành cấp số nhân tính trung bình cộng của chúng, nếu không thì gấp đôi mỗi số. Biết a, b, c được lấy từ file csn.inp. Kết quả ghi vào file csn.out. Cấp số nhân Program CapSoNhan; Uses Crt; Var f,g:Text; a,b,c:Real; s:String; {ham kiem tra xem so a,b,c co phai la cap so nhan hay khong} Function kiemtra(o,p,q:real):Boolean; Begin If p/o=q/p then kiemtra:=True else…

Vì nhìn phần màu đỏ khá giống với cánh quạt nên tôi đặt tiêu đề như vậy, bài này thật ra không khó lắm tuy nhiên sau khi nhận code của các thầy cô trên fanpage chúng tôi thấy rằng phần lớn các thầy cô khi vẽ hình đều để lại đường màu đen của hình vuông trong khi đề bài không có. Vì vậy tôi code lại bài này và nhấn mạnh rằng : Với lệnh Distance trong MSWLogo bạn có thể đo khoảng cách từ rùa tới một tọa độ nào đó. Về phần diện tích tôi tính…

Định nghĩa kiểu tập hợp : Một số đối tượng nào đó có cùng bản chất. Ví dụ Những quả cam trên bàn. Nhóm học sinh lớp 5.1. Các bạn trai của trường. Bài toán: Có 4 bạn tên là Xuân, Hạ, Thu, Đông được đánh số từ 1 tới 4, hãy dùng MswLogo để in ra màn hình tất cả các vị trí có được bằng cách hoán đổi vị trí của 4 người, tất nhiên các vị trí là không giống nhau ví dụ Xuân Hạ Thu Đông Xuân Đông Thu Hạ Hạ Xuân Thu Đông Đông Hạ…

Đề dạng này các bạn đã gặp ở đề tài năng trẻ tin học tỉnh Bình Dương, huyên Sơn Trà năm 2016. Đề bài : Cắt một hình chữ nhật có chiều rộng bằng 4/5 chiều dài và ghép thành một hình vuông. Chiều dài được đưa từ ngoài vào To Ghephinh :d ;:d là chiều dài đưa từ ngoài vào Cs Pd Ppt Make “R :d*4/5 ;đặt chiều rộng bằng 4/5 chiều dài Repeat 2[Fd :R Rt 90 Fd :d Rt 90] Fd :R Make “A Pos Bk :R Rt 90 Fd :d*2/5 Setheading Towards :A Fd (Distance :A)…