Đề bài : Một miếng bìa hình vuông, có cạnh 200, người ta đục 4 lỗ hình tròn nằm sát giữa của các cạnh miếng bìa đó với bán kính đường tròn là 30. Em hãy sử dụng các câu lệnh trong MSW Logo vẽ lại miếng bìa khi đục lỗ và tính diện tích còn lại… Em hãy lưu kết quả trong tệp văn bản có tên hinhvuong.doc gồm: – Hình em đã vẽ – Các câu lệnh của MSWLogo theo trình tự đã vẽ Cách 1: to hinhvuong repeat 4[ fd 200 rt 90] setxy 0 100 circle2…
Tác giả: Đình Trọng
Đình Trọng
٩(●̮̮̃•̃)۶ Không có lẽ yêu trên đời quá khó ٩(͡๏̯͡๏)۶ Mà thôi yêu cũng chẳng dễ chút nào! ٩(×̯×)۶
Đề bài : Trong vườn cây người ta đếm thấy có tổng cộng 9 cây, được trồng thành 10 hàng, và mỗi hàng có 3 cây. + Em hãy viết các câu lệnh trong chương trình MSWLogo để vẽ lại sơ đồ vườn cây trên. + Hãy lưu kết quả trong tập tin văn bản có tên trongcay.doc gồm: – Hình sơ đồ vườn cây trên – Tất cả câu lệnh MSWLogo theo trình tự đã vẽ. Phân tích: Đây là một dạng bài khó, nếu không biết xắp xếp cây cho đúng thì xem như khỏi làm. Đây là…
Đề bài: Nhập vào 1 chuỗi trong đó có rất nhiều khoảng trắng, hãy cắt hết các khoảng trắng thừa ở đầu, giữa và cuối ví dụ:” Nguyen Van Teo “ sau khi xử lý xuất ra “Nguyen Văn Teo” Cách làm: Chạy vòng lặp kiểm tra xem trong chuỗi có 2 khoảng trắng liên tiếp nhau không, nếu có thì xóa 1 khoảng trắng đi, khi kết thúc vòng lặp này thì không còn 2 khoảng trắng nào liên tiếp nhau While Pos(‘ ‘,s)>0 Do Delete(s,pos(‘ ‘,s),1); kế đó kiểm tra ký tự đầu tiên và cuối cùng có…
Các bạn làm theo hình hướng dẫn: Bước 1 : Khởi động MswLogo và bấm nút Edall Bước 2: ta thấy xuất hiện một cửa sổ, đây là nơi bạn sẽ viết các lệnh của mswlogo, theo sau to là tên của một chương trình, nếu có nhiều chương trình thì các bạn cứ viết To TênChươngTrình End nếu các bạn muốn truyền vào các biến cho chương trình thì ghi dấu : trước tên biến xem hình Bước 3 : Trong cửa sổ này hãy bấm File-> Save and exit để quay về cửa sổ chính, nếu bạn muốn…
Đề bài Dùng MSWLogo vẽ hình trên : Phân tích : Hình trên được tạo bởi các hình ngũ giác xếp chồng vào nhau Chúng ta sẽ lặp lại 5 lần công việc vẽ 1 hình ngũ giác ở các vị trí khác nhau. Các bạn để ý sẽ thấy việc vẽ ngũ giác nhỏ lặp 7 lần vì sao vậy? Mục đích là để cho rùa đi tới vị trí đỉnh kế tiếp để vẽ ngũ giác tiếp theo. Code thật ra rất đơn giản chúng tôi thêm dòng lệnh chờ Wait 500 giúp các bạn dễ hình dung…
Đề bài : Hãy dùng MSWLogo vẽ và tô màu hình bông hoa ở trên. Ở đây chúng tôi viết một thủ tục tổng quát, các bạn có thể vẽ bông hoa với số cạnh (p) và độ dài (n) tùy ý. Hoa 6 100 To Hoa :p :n Repeat :p[ Pu ;Nhấc viết lên Fd :n/2 ; đi tới một nửa cạnh cảu đa giác Lt 90 ;Xoay trái 90 độ Pd ;Hạ viết xuống ELLIPSEARC 180 :n/2 :n/3+10 90 ; Vẽ một nửa cung tròn Pu ; Nhấc viết Rt 90 ;xoay phải 90 độ Fd :n/2…
Trong bài hướng dẫn cài đặt pascal trong môi trường Window mình có đề cập tới việc ánh xạ thư mục thành một ổ đĩa để lưu bài tuy nhiên có một số bạn vẫn chưa biết cách tùy biến dòng lệnh để lưu bài vào thư mục theo ý mình. Hôm nay mình sẽ hướng dẫn các bạn từng bước một. Yêu cầu : Bạn đã cài đặt chương trình turbo pascal ở link trên. Sau khi cài xong bấm chuột phải vào biểu tượng Turbo Pascal trên desktop -> chọn Porperties Bạn sẽ được Chúng ta sẽ sửa…
I. Một số tình huống sư phạm. 1) Dạy thay đồng nghiệp bị ốm . Một lần do đồng nghiệp của bạn bị ốm phải nghỉ dạy, bạn được phân công dạy thay. Sau khi kết thúc bài giảng, bạn hỏi các em: “Thầy dạy thế các em có hiểu bài không?”. Các em trả lời: “Thầy dạy hay lắm ạ. Cô A. dạy chúng em chẳng hiểu gì cả. Hay là thầy dạy luôn lớp em đi ạ”. Vào tình huống này bạn chọn cách xử lý nào trong 3 cách sau: 1. Mỉm cười, im lặng không nói…
Để vẽ được ngôi sao ta đơn giản chỉ cần duy nhất một dòng lệnh Repeat 5 [Fd 200 Rt 144] Tuy nhiên đó là trong trường họp ta biết được độ dài cạnh của ngôi sao, nếu không biết thì phải làm như thế nào. Dưới đây là đề vẽ ngôi sao của bạn đọc : Vẽ ngôi sao biết rằng khoảng cách từ đỉnh của ngôi sao đến tâm ngôi sao là 50. Phân tích: Ta biết rằng để vẽ ngôi sao 5 cánh ta có 2 cách thông thường 1 là nối các điểm của các đỉnh…
Mối tình đầu Mối tình đầu còn nguyên vẹn trong em Chiều tan trường quán kem mình hò hẹn Lần đầu tiên với ánh nhìn e thẹn Tay rụt rè, chưa dám chạm vào tay. Ngày cuối cùng của năm lớp mười hai Anh mới ngỏ lời yêu em thật sự Lúc đó vô tư nên vòng vo do dự Mối tình hồng lỡ nhịp cũng từ đây. Ngày chia tay khóe mắt bỗng cay cay Vội ngoảnh mặt lau nhanh dòng lệ chảy Có ngờ đâu, đó là lần xa mãi Chẳng bao giờ gặp lại dẫu là mơ.…
Giới thiệu với các bạn một số hình vẽ đẹp được tạo bởi Mswlogo TO a cs SETACTIVEAREA [-150 -250 350 250] Setpc [255 0 255] MAKE “append “FALSE px setpensize [200 200] repeat 36 [ fd 20 rt 10 (GIFSAVE “01.gif 0 :append 0) MAKE “append “TRUE] END To b SETACTIVEAREA [-250 -250 250 250] MAKE “append “FALSE PENNORMAL CS For [i -1 15] [ repeat 720 [fd power 1.2 :i rt repcount] (GIFSAVE “02.gif 0 :append 0) MAKE “append “TRUE lt 45] End To c cs SETACTIVEAREA [-190 -190 150 150] MAKE “append “FALSE px repeat 100 […
DosBox Phần mềm giả lập chạy các ứng dụng cũ. Để chạy được Pascal trong môi trường Windows xp, Windows 7, Windows 8, Windows 10 thì các bạn phải cài thêm vào máy phần mềm Dosbox, tuy nhiên cài đặt riêng lẻ rồi lại tạo biểu tượng ngoài màn hình nền nữa, nếu không quen thì cũng rất khó khăn. Chúng tôi có bộ cài đặt của nhóm yeulaptrinh.tk tích hợp vừa cài dosbox vừa cài Pascal luôn, nhược điểm duy nhất là thư mục các file .pas được tạo ra nằm ở C:\DOSBox\TP. các bạn không thể mở file…