Bài tập câu lệnh While

CHÀO MỪNG THẦY, CÔ ĐẾN DỰ GIỜ THĂM LỚP
Bài 2
TỔ CHỨC LẶP
Tiết thứ 2
BÀI TẬP LẶP VỚI SỐ LẦ�N CHƯA BIẾT TRƯỚC
I. Lý thuyết:
I. Lý thuyết:
3. Sơ đồ khối:

I. Lý thuyết:
4. Các bước thực hiện lệnh:
I. Lý thuyết
II CÁC BÀI TOÁN:
Nhập từ bàn phím hai số nguyên dương A và B,
đưa ra kết quả ước số chung lớn nhất.
Phân tích bài toán:
1. Đại lượng vào/ra:
Hai số A,B
Output:
USCLN(A,B)
2.Tổ chức dữ liệu:
Biến:
A,B: Số nguyên
3.Sơ đồ khối:
4. Chương trình:
PROGRAM USCLN;
USES CRT;
VAR A , B : WORD;
BEGIN
CLRSCR;
WRITE(`NHAP SO NGUYEN DUONG A:`); READLN(A);
WRITE(`NHAP SO NGUYEN DUONG B:`); READLN(B);
WHILE A<>B DO
IF A>B THEN A:=A-B
ELSE B:=B-A;
WRITELN(`UOC SO CHUNG LON NHAT LA:`,A);
READLN
END.
5. CHẠY THỬ CHƯƠNG TRÌNH:
II.CÁC BÀI TOÁN:
Bài 2
Tính tổng: S = 1+ 1/3 + 1/5+ .. . + 1/(2n - 1) .. Cho đến khi 1/(2n-1) < E
* E là một số vô cùng bé nhập từ bàn phím
Phân tích bài toán:
1. Đại lượng vào/ra:
Input:
Nhập số E vô cùng bé
Output:
Tổng S
2.Tổ chức dữ liệu:
Biến:
E,S: số thực
3.Sơ đồ khối:
4.Chương trình:
PROGRAM TINH_TONG;
USES CRT;
VAR E, S: REAL; I:INTEGER;
BEGIN
CLRSCR;
WRITELN(`NHAP SO E:` ); READLN(E);
I:=2; S:=1;
WHILE (1/(2*I-1))>=E DO
BEGIN
S:=S+1/(2*I-1); I:=I+1;
END;
WRITELN(`TONG S = `,S:8:2);
READLN
END.
5. Chạy thử chương trình:
II.CÁC BÀI TOÁN:
Bài 3
Nhập vào số tự nhiên N và xem nó có phải là số nguyên tố hay không?
Phân tích bài toán:
1. Đại lượng vào/ra:
Input:
Nhập số tự nhiên N
Output:
Kiểm tra số N có phải là số NT?
2.Tổ chức dữ liệu:
Biến:
N, i: Số nguyên dương
3.Sơ đồ khối:
4.Chương trình:
PROGRAM KT_SONT;
USES CRT;
VAR N,I : INTEGER;
BEGIN
WRITE(`NHAP SO TU NHIEN N: `); READLN(N);
I:=2;
WHILE N MOD I <>0 DO
I:=I+1;
IF I=N THEN WRITELN(`SO:`, N, ` LA SO NGUYEN TO`)
ELSE WRITELN(`SO:`,N, ` KHONG PHAI LA SO NGUYEN TO`);
READLN;
END.
5. Chạy thử chương trình:
CHÚC THẦY CÔ, CÙNG CÁC EM SỨC KHOẺ