Ví dụ Màn hình kết Program Hien_thi;xuất sau Uses Crt; thực đoạn Begin chương trình Clrscr; End Writeln(‘Xin chao’); Writeln(‘Xin chao’); Writeln(‘Xin chao’); Writeln(‘Xin chao’); Writeln(‘Xin chao’); Writeln(‘Xin chao’); Writeln(‘Xin chao’); Writeln(‘Xin chao’); Writeln(‘Xin chao’); Writeln(‘Xin chao’); Readln Có cách làm cho ngắn lại dài Đoạn chương trình gọn hay không?? Bài 7: Câu lệnh lặp (2 tiết) Bài 7: Câu lệnh lặp Nội dung chính: 1/ Câu lệnh lặp – lệnh thay cho nhiều lệnh 2/ Câu lệnh lặp for…do 3/ Tính tổng tích câu lệnh lặp Bài 7: Câu lệnh lặp 1/ Câu lệnh lặp – lệnh thay cho nhiều lệnh 2/ Câu lệnh lặp for…do 3/ Tính tổng tích câu lệnh lặp 1) Câu lệnh lặp, lệnh thay cho nhiều lệnh: Hãy kể tên hoạt động thường ngày em làm với số lần biết trước ? -Đánh lần ngày -Kim giây quay 60 vòng -Bài tốn viết CT in hình số từ đến 10 (10 lệnh in) …… Ví dụ a) In chữ Program in1; Uses crt; Begin Writeln('O'); Readln End O b) In chữ Program in4; Uses crt; Begin Writeln('O'); Writeln('O'); Writeln('O'); Writeln('O'); readln End O O O O 1) Câu lệnh lặp, lệnh thay cho nhiều lệnh: Nếu có CT đề nghị in hình 100 chữ O ? Chương trình dài, viết nhiều thời gian, tốn nhớ chương trình 2) Câu lệnh lặp for … Có cú pháp câu lệnh lặp tốt Bây dùng câu lệnh lặp để in hình bốn chữ O ! 2) Câu lệnh lặp for … In chữ số Program in4; Uses crt; Begin For i:=1 to Writeln('O'); Readln End Program in4; Uses crt; Begin Writeln('O'); Writeln('O'); Writeln('O'); Writeln('O'); readln End Program in4; Begin For i:=1 to Writeln('O'); Readln End Program in4; Begin Writeln('O'); Writeln('O'); Writeln('O'); Writeln('O'); readln End Hoạt động lệnh For to Ban đầu biến đếm (i=1