Bài tập 1: Viết chương trình in ra màn hình bản cửu chương của số N trong khoản từ 1 đến 9, số được nhập từ bàn phím và dừng màn hình để có thể quan sát kết quảc. Khởi động chương trình[r]
(1)Chuyên đề I
Chương I: LẬP TRÌNH ĐƠN GIẢN Chủ đề
BÀI THỰC HÀNH 5: Sử dụng câu lệnh For … Do… Nội dung:
I. Ôn lại kiến thức: Cú pháp:
FOR <Biến đếm> := <giá trị đầu> TO <giá trị cuối> DO <câu lệnh>; Trong đó:
- FOR, TO, TO: từ khóa
- Biến đếm: thuộc kiểu liệu số nguyên - Giá trị đầu, giá trị cuối: giá trị nguyên
- Câu lệnh: câu lệnh đơn hay câu lệnh ghép Ý nghĩa:
Khi thực hiện, biến đếm nhận giá trị giá trị đầu, sau vòng lặp, biến đếm tự động tăng đơn vị giá trị ci dừng lại
II. Thực hành
Bài tập 1: Viết chương trình in hình cửu chương số N khoản từ đến 9, số nhập từ bàn phím dừng hình để quan sát kết
a Khởi động chương trình Turbo Pascal Gõ chương trình sau tìm hiểu ý nghĩa câu lệnh chương trình
Uses crt;
Var N,i: integer; Begin
Clrscr;
Write(‘Nhap so N=’); Readln(N);
Writeln;
Writeln(‘Bang nhan ’, N); Writeln;
For i:=1 to 10 writeln(N,’ x ‘,i:2,’ = ‘,N*i:3); Readln
End
b Lưu chương trình với tên BANGNHAN.PAS
c Dịch chỉnh sữa sữa lỗi, có
d Chạy chương trình với giá trị nhập vào 1,2,…,10 Quan sát kết nhận hình
Gợi ý làm bài: Kết in hình
(2)Bài tập 2: Chỉnh sửa chương trình để làm đẹp kết hình Gợi ý làm bài:
Chương trình: Uses crt;
Var N,i: integer; Begin
Clrscr;
Write(‘Nhap so N=’); Readln(N);
Writeln;
Writeln(‘Bang nhan ’, N); Writeln;
For i:=1 to 10 Begin
GotoXY(5,WhereY)
writeln(N,’ x ‘,i:2,’ = ‘,N*i:3); writeln
end; Readln End
Câu lệnh thêm vào:
- Writeln; => tạo hàng trống trỏ - GotoXY(a,b); => Đưa trỏ cột a hàng b
- GotoXY(5,WhereY); => Đưa trỏ cột hàng - WhereY => cho biết thứ tự hàng có trỏ
Lưu ý: sử dụng lệnh GotoXY(a,b), WhereX, WhereY sau khai báo thư viện crt; Pascal
Bài tập 3: Học sinh tự thực
(3)Chủ đề BÀI TẬP I. Ôn lại kiến thức:
1 Câu lệnh điều kiện: Cú pháp:
- Dạng thiếu:
If <điều kiện> then <câu lệnh>; - Dạng đầy đủ:
If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>; 2 Câu lệnh lặp For Do :
Cú pháp:
For <biến đếm> := <giá trị đầu> to <giá trị cuối> <câu lệnh>; II. Bài tập:
Bài tập 1: Viết chương trình in số lẻ nhỏ n (với n nhập từ bàn phím) a Hướng dẫn:
- Nhập n
- Cho biến i chạy từ đến n, i lẻ (i chia dư khác 0) in số i b Chương trình:
Program Tong_so_le; Uses crt;
Var i, n: integer; Begin
Clrscr;
Write(‘nhap so n= ‘); Readln(n);
For i:= to n if I mod <> then write(i:3,’ ’); Readln
End
Bài tập 2: Viết chương trình in tổng số lẻ nhỏ n (với n nhập từ bàn phím) a Hướng dẫn:
- Cho S =
- Nhập n
- Cho biến i chạy từ đến n, i lẻ (i chia dư khác 0) cộng thêm i cào S - In S hình
b Chương trình: Program In_so_le;
Uses crt;
Var s, i, n: integer; Begin
Clrscr; S:=0;
Write(‘nhap so n= ‘); Readln(n);
For i:= to n if i mod <> then S:=S+i;
Writeln(‘Tong cac so le nho hon hoac bang ’, n ,’ la: ‘, S); Readln
(4)Bài tập 3: Viết chương trình in tất ước số n (với n nhập từ bàn phím) a Hướng dẫn:
- Nhập n
- Cho biến i chạy từ đến n, n chia hết cho i (n chia i dư 0) in i hình b Chương trình:
Program Tim_uoc; Uses crt;
Var i, n: integer; Begin
Clrscr;
Write(‘nhap so n= ‘); Readln(n);
For i:= to n if n mod i = then write(i:3,’ ‘); Readln