Đề 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ó…
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! ٩(×̯×)۶
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…
Tài liệu lập trình Scratch hiện nay trên mạng rất ít, sách bán ở ngoài thì chỉ có bộ sách của FPT, trong quá trình tìm kiếm chúng tôi sưu tâm được 2 tài liệu hướng dẫn tương đối đầy đủ cho người mới tập làm quen với Scratch. Chúng tôi nghĩ rằng Scratch sau này sẽ thay thế Mslogo dùng trong cấp tiểu học như hiện nay. Bên cạnh việc dạy cho học sinh cách làm quen với lập trình thì các thầy cô cũng nên tìm hiểu chuyên sâu Scratch, nó là công cụ trợ giảng rất thú…
Chuyển Scratch về tiếng Việt Thật may mắn, giao diện Scratch hiển thị tiếng Việt cho chúng ta, vậy vào một ngày nào đó Scratch hiển thị tiếng nước ngoài thì sao ta?. Để tùy chỉnh ngôn ngữ cho Scratch. Chọn vào biểu tượng Quả Địa Cầu và rê chuột chọn ngôn ngữ bạn muốn sử dụng. Giao diện Scratch – Thanh Menu gồm 4 thành phần chính: File, Chỉnh sửa, Tips, About. + File menu: + Chỉnh sửa: Với chế độ Turbo mode, khi nhấp vào lá cờ xanh (Green Flag), dự án của chúng ta sẽ chạy…