- Viết chương trình Pascal sử dụng lệnh lặp với số lần không biết trước (Vòng lặp While. Do).. - Rèn luyện khả năng đọc chương trình, tìm hiểu tác dụng của các câu lệnh[r]
Trang 1Tin học 8
Bài thực hành 6: Sử dụng lệnh lặp While do
I Mục đích, yêu cầu
- Viết chương trình Pascal sử dụng lệnh lặp với số lần không biết trước (Vòng lặp While Do)
- Rèn luyện khả năng đọc chương trình, tìm hiểu tác dụng của các câu lệnh
- Câu lệnh lặp while…do có dạng: while <điều kiện> do <câu lệnh>;
II Nội dung Bài thực hành
Bài 1: Viết chương trình tính tổng T=1+1/2+1/3+ … +1/100
Hướng dẫn: HS sử dụng đoạn chương trình sau để viết thành bài tập hoàn chỉnh
T:=0; I:=1;
While I<=100 do
Begin
T:=T+1/I
I:=I+1;
End;
Writeln(T);
Bài 2: Viết chương trình:
- Nhập 1 số nguyên N từ bàn phím
- Kiểm tra số N vừa nhập có phải là số nguyên tố không?
Hướng dẫn:
a) Thuật toán
- Bước 1: Nhập vào số tự nhiên N
- Bước 2: Kiểm tra xem số N có phải là số nguyên tố hay không
Để N là số nguyên tố thì nó phải là số >=1 và chỉ chia hết cho 1 và chính nó, khi
đó số N sẽ không chia hết cho bất kì số nào bắt đầu từ số 2 đến N-1
- Bước 3: Nếu N chia hết cho 1 số nào đó từ 2 đến N-1 thì thông báo N không là số nguyên
tố nếu không thông báo N là số nguyên tố
b Chạy chương trình
Đọc và tìm hiểu ý nghĩa của từng câu lệnh trong chương trình sau:
Program snt;
Uses crt;
Var I, N:integer;
Trang 2Clrscr;
Write(‘nhap N=’);
Readln(N);
IF N<=1 then writeln(‘N khong phai la so nguyen to’)
Else
Begin
I:=2;
While (N mod I<>0) do I:=I+1;
IF I=N then writeln(N,’la so nguyen to’)
Else writeln(N,’Khong la so nguyen to’);
End;
Readln;
End
Bài 3: Viết chương trình nhập các số nguyên từ bàn phím kết thúc cho đến khi nhập số
0 Tính tổng các số nguyên đó
Hướng dẫn:
Đọc và tìm hiểu ý nghĩa của từng câu lệnh trong chương trình sau:
Program tinh_tong;
Uses crt;
Var n,tong:integer;
Begin
Clrscr;
Tong:=0;
Write(‘Nhap cac so nguyen tuy y,nhap so 0 de ket thuc’);readln(n);
While n<>0 do
Begin
Tong:=tong+n;
Readln(n);
End;
Writeln(‘tong cac so da nhap la:’,tong);
Readln;
End
Bài 4: Viết chương trình tìm UCLN của 2 số a, b nhập từ bàn phím
Hướng dẫn: - Nhập a, b từ bàn phím
- Trừ dần 2 số a, b cho đến khi 2 số bằng nhau
- Thông báo ucln là a hay b
Đọc và tìm hiểu ý nghĩa của từng câu lệnh trong chương trình sau:
Program UCLN;
Trang 3Uses crt;
Var a, b : integer;
Begin
Clrscr;
Write(‘nhap 2 so a,b:’);readln(a,b);
While a<>b do
Begin
If a>b then a:=a-b
Else then b:=b-a;
End;
Writeln(‘UCLN=’,a);
Readln;
End
Bài 5: Hãy sử dụng câu lệnh While… do để viết chương trình tính gần đúng số π với độ chính xác cho trước.
Hướng dẫn
- Dùng công thức: π4=1−¿ 13+15− 1
- Tham khảo sgk trang 70
Dặn dò: Học sinh xem thật kỹ và thực hành (gõ chương trình; dịch và chạy chương
trình) các bài tập giáo viên hướng dẫn ở trên vào máy (ở nhà).
Chúc các em thực hành thành công!