- 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]
(1)Tin học
Bài thực hành 6: Sử dụng lệnh lặp While do I Mục đích, 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ả đọc chương trình, tìm hiểu tác dụng câu lệnh - Câu lệnh lặp while…do có dạng: while <điều kiện> <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 tập hoàn chỉnh
T:=0; I:=1;
While I<=100 Begin
T:=T+1/I I:=I+1; End;
Writeln(T);
Bài 2: Viết chương trình:
- Nhập 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 tố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 số nguyên tố hay không
Để N số ngun tố phải số >=1 chia hết cho nó, số N khơng chia hết cho số số đến N-1
- Bước 3: Nếu N chia hết cho số từ đến N-1 thơng báo N khơng số nguyên tố không thông báo N số nguyên tố
b Chạy chương trình
Đọc tìm hiểu ý nghĩa câu lệnh chương trình sau:
Program snt; Uses crt;
(2)Begin Clrscr;
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) 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 số ngun từ bàn phím kết thúc nhập số 0 Tính tổng số nguyên đó
Hướng dẫn:
Đọc tìm hiểu ý nghĩa câu lệnh chương trình sau: Program tinh_tong;
Uses crt;
Var n,tong:integer; Begin
Clrscr; Tong:=0;
Write(‘Nhap cac so nguyen y,nhap so de ket thuc’);readln(n); While n<>0
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 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 số a, b số - Thông báo ucln a hay b
(3)Uses crt;
Var a, b : integer; Begin
Clrscr;
Write(‘nhap so a,b:’);readln(a,b); While a<>b
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… để viết chương trình tính gần số π với độ chính xác cho trước.
Hướng dẫn
- Dùng công thức: π4 =1 −¿
3 +
1
5−
1
7 +…+
1
2 n−1−
1
2 n+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) bài tập giáo viên hướng dẫn vào máy (ở nhà).