- Ta có thủ tục HCN:

Hướng dẫn:

• Có thể tạo hình chữ nhật được tô màu bằng nhiều đoạn thẳng đứng sát nhau

• Để mở cửa sổ soạn thảo em nháy chuột vào nút Edall

• Thủ tục vach vẽ một đoạn thẳng đứng dài 100 bước, sau đócho Rùa lui về vị trí cũ, quay phải 90o rồi nhích sang phải 1 bước vào vị trí vẽ vạch tiếp theo. Để vẽ vạch tiếp theo, cần quay Rùa hướng lên trên.

• Sau khi gõ xong hai thủ tục vach và hcn, em nháy chọn File → Save and Exit để đưa các thủ tục này vào bộ nhớ.

• Thực hiện thủ tục: gõ hcn vào ngăn nhập lệnh và nhấn Enter.

• Lưu các thủ tục thành tệp HCN_MAU.LGO bằng cách gõ vào ngăn nhập lệnh: save “hcn_mau.lgo và nhấn Enter, hoặc nháy File → Save sau đó nhập tệp rồi nháy nút Save.

uses crt;

var a,b:integer;

{---------------ve-hinh-chu-nhat---------------------}

procedure ve(x,y:integer);

var i,j:integer;

begin

for i:=1 to x do 

  begin

for j:=1 to y do 

  write('*');

writeln;

end;

end;

{------------------chuong-trinh-chinh---------------}

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

ve(a,b);

writeln;

ve(2*a,2*b);

writeln;

ve(3*a,3*b);

readln;

end;

to khantheu

cs setpencolor 4

repeat 30 [repeat 6[fd 30 rt 60] rt 12]

pu bk 60 rt 90 bk 120

setpencolor 1

label [Chuc mung sinh nhat me]

end

to khantheu

cs setpencolor 4

repeat 30 [repeat 6[fd 30 rt 60] rt 12]

pu bk 60 rt 90 bk 120

setpencolor 1

label [Chuc mung sinh nhat me]

end

Hướng dẫn: Em cần thực hiện tuần tự các bước sau:

• Nạp tệp HCN_MAU.LGO vào bộ nhớ: Nháy File → Load, sau đó tìm đến thư mục có chứa tệp này, nháy vào tên tệp rồi nháy nút Open.

• Nháy nút Edall để mở cửa sổ soạn thảo (Editor) có chứa sẵn các thủ tục vach và hcn trong tệp HCN_MAU.LGO, sửa lại thủ tục hcn.

• Nháy File → Save and Exit để đưa các thủ tục đã sửa vào bộ nhớ.

• Thực hiện thủ tục (để kiểm nghiệm lại kết quả đã sửa đổi): gõ hcn trong ngăn nhập lệnh và nhấn Enter.

• Nháy File → SaveAs, gõ vào khung File name tên tệp mới là 2HCN_MAU.LGO, nháy nút Save, như vậy trên đĩa sẽ có hai tệp: HCN_MAU.LGO và 2HCN_MAU.LGO.

Hướng dẫn: Thân thủ tục có thể là lệnh sau:

REPEAT 2[FD 100 RT 90 FD 60 RT 90]

Em thực hiện các bước sau:

• Nháy chuột vào ngăn nhập lệnh

• Gõ lệnh

Edit “hinhcn

• Rồi nhấn Enter

• Trong cửa sổ soạn thảo có sẵn 2 dòng:

To hinhcn

End

• Em đặt con trỏ soạn thảo vào sau từ hinhvuong rồi nhấn Enter để con trỏ soạn thảo về vị trí bắt đầu thân thủ tục

• Gõ lệnh tạo hình vuông

REPEAT 2 [FD 100 RT 90 FD 60 RT 90]

• Đóng cửa sổ soạn thảo và lưu thủ tục vào bộ nhớ bằng cách nháy File → Save and Exit.

• Để thực hiện thủ tục, trong ngăn nhập lệnh em gõ tên thủ tục là: hinhvuong rồi nhấn Enter