Bài tập và thực hành 1

Tiết 16
Gv thực hiện : Mai Quang Ninh.
Tổ bộ môn : Lý - Tin - CN
Tiết 16.
I. Trắc nghiệm:
Câu1: var s,i:integer; Đoạn chương trình sau, s có kết quả là:
s:=0;
For i:=5 downto 1 do s:= s+i;
A.5 B.6 C.1 D.15
Câu 2: var i, s: word; Đoạn chương trình sau s cho kết quả là:
S:=0;
For i:= 1 to 5 do
If i mod 2 =0 then s:=s+i;
A. 15 B. 9 C. 6 D. 2
Tiết 16.
Câu3: var s,i,n :integer; Đoạn chương trình sau:
s:=0;
For i:=1 to n do
if i mod 3<>0 then s:= s+i;
Với n nhập vào bằng 6, s có kết quả là:
A.0 B.12 C.9 D.21
Câu 4: Var i,s:word; Đoạn chương trình sau s có kết quả là:
i:=1; s:=0;
while i<8 do begin s:=s+i; i:=2*i end;
A. 10 B. 11 C.7 D. 8
Tiết 16.
Bài tập:
Bài 1:
Một người gửi tiết kiệm với số tiền là A đồng, lãi suất 1% mỗi tháng. Hỏi sau n tháng người đó rút hết tiền thì nhận được bao nhiêu đồng? (Biết rằng số tiền lãi sau mỗi tháng được cộng vào vốn).
Hãy xác định bài toán?
ý tưởng giải thuật? Giải thuật ?
Viết chương trình?
Tiết 16.
Xác định bài toán:
Input: nhập vào số tiền gốc A va số tháng n
Ouput: Đưa ra tổng số tiền rút ra sau n tháng.
Tiết 16.
100.000
1000
101.000
1010
102.010
1020,1
103.030,1
Ví dụ: + Input: A=100.000 đồng. Số tháng gửi là n=3. Ta có bảng minh hoạ sau:
+ Output: Số tiền rút hết là 103.030,1 đồng
Tiết 16.
ý tưởng giải thuật
Số tiền lãi mỗi tháng = tiền gốc x 1%
Sau mỗi tháng:
số tiền gốc = số tiền gốc của tháng trước đó + số tiền lãi tháng hiện tại
Giải thuật
Tiết 16.
Program bai1;
Uses crt;
Var n,i:byte; A:real;
Begin clrscr;
Write(`Nhap vao so tien gui A:`); readln(A);
Write(`Nhap so thang gui n:`); readln(n);
for i:=1 to n do A:=A+A*1/100;
writeln(` So tien rut het sau `,n,` thang la:`,A:8:2);
readln
End.
Chương trình:
Tiết 16.
Bài 2:
Một người gửi tiết kiệm với số tiền là A đồng, lãi suất 1% mỗi tháng. Hỏi sau bao nhiêu tháng người đó rút hết tiền thì nhận được số tiền ít nhất là B đồng? (Biết rằng số tiền lãi sau mỗi tháng được cộng vào vốn).
Hãy xác định bài toán?
ý tưởng giải thuật ? Giải thuật ?
Viết chương trình?
Tiết 16.
Xác định bài toán:
Input: số tiền A và B (A Ouput: Đưa ra số tháng n.
Ví dụ: + Input: A=100.000 đồng, B=150.000 đồng. Ta có bảng minh hoạ:
Tiết 16.
+ Input: Số tháng là 41
Tiết 16.
ý tưởng giải thuật:
Nếu A ? B thì đưa ra số tháng. Kết thúc
Nếu A < B thì:
- Tăng số tháng lên 1 dơn vị
- Số tiền lãi mỗi tháng = tiền gốc x 1%
- Sau mỗi tháng: số tiền gốc = số tiền gốc của tháng trước đó + số tiền lãi tháng hiện tại
Lặp lại các thao tác trên.
Giải thuật:
Tiết 16.
Chương trình:
Program bai2;
Uses crt;
Var th:byte; A,B:real;
Begin clrscr;
write(`Nhap vao so tien gui A:`); readln(A);
write(`Nhap vao so tien can dat B:`); readln(B);
th:=0;
while A begin th:=th+1; A:=A+A*1/100 end;
writeln(` Sau `,th,` thang rut het tien thi duoc it nhat la`,A:8:2);
readln
End.
Tiết 16.
Cho 2 số nguyên dương n và k (0< k,n ? 200). Viết chương trình tính tổng các số tự nhiên nhỏ hơn hoặc bằng n và chia hết cho k.
Hãy xác định bài toán?
ý tưởng giải thuật? Giải thuật?
Viết chương trình?
Bài 3:
Tiết 16.
Xác định bài toán:
Input: số nguyên dương n, k
Ouput: Đưa ra tổng s.
Ví dụ: + Input: n=10, k=5
+ Output: s =15
Tiết 16.
ý tưởng giải thuật:
Cho biến chỉ số i chạy lần lượt từ 1 đến n.
Nếu i chia k dư 0 thì cộng thêm i vào tổng.
Giải thuật:
Tiết 16.
Chương trình:
Program bai3;
Uses crt;
Var k,n,i,s:word;
Begin clrscr;
Write(`Nhap n:`); readln(n);
Write(`Nhap k:`); readln(k);
for i:=1 to n do
if i mod k =0 then s:=s+i;
writeln(`Tong s= `,s);
readln
End.