Bai tap HKII

BÀI TẬP (tt)

Tuần: 25
Tiết: 47
Thứ tư, ngày 22 tháng 02 năm 2012
Môn: Tin Học 8
GV: Nguyễn Quốc Đăng
Program tinhtoan;
Var a,h: interger; S : real;
Begin
Write(‘Nhap canh day và chieu cao :’);
Readln (a,h);
S:=(a*h)/2;
Writeln(‘ Dien tich hinh tam giac la :’,S:5:1);
Readln;
End.
Sửa bài tập về nhà:
Tuần: 25
Tiết: 47
Thứ tư, ngày 22 tháng 02 năm 2012
BÀI TẬP (tt)
Viết chương trình tính diện tích S của hình tam giác với độ dài một cạnh a và chiều cao tương ứng h (a và h là các số tự nhiên được nhập vào từ bàn phím).
BÀI TẬP (tt)
Tuần: 25
Tiết: 47
Thứ tư, ngày 22 tháng 02 năm 2012
Bài tập 1:
Hãy tìm hiểu mỗi đoạn chương trình sau và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp và S nhận giá trị bao nhiêu. Hãy rút ra nhận xét của em?
a) S:=0; n:=0;
while S<=10 do
begin
n:=n+1; s:=s+n;
end.
b) S:=0; n:=0;
while S<=10 do
n:=n+1; s:=s+n;
a) Câu lệnh của vòng lặp while …. do thực hiện 5 lần và S = 15
b) Câu lệnh của vòng lặp while …. do thực hiện lặp vô hạn lần vì sau vòng lặp không làm sai điều kiện.
BÀI TẬP (tt)
Tuần: 25
Tiết: 47
Thứ tư, ngày 22 tháng 02 năm 2012
Bài tập 2:
Tính xn với n là số nguyên không âm
a. Đọc tìm hiểu chương trình sau:
Program tinh_luy_thua;
Var x, lt :real;
i, n:integer;
Begin
Writeln(‘nhap co so x’); readln(x);
Writeln(‘nhap so mu n’); readln(n);
lt:=1;
For i:=1 to n do
lt:=lt*x;
Writeln(x,’^’,n,’=’,lt:6:2); readln
End.
b. Gõ chương trình , dịch và chạy chương trình nhập vào một vài số để kiểm tra.
BÀI TẬP (tt)
Tuần: 25
Tiết: 47
Thứ tư, ngày 22 tháng 02 năm 2012
Bài tập 3:
Tương tự bài tập 2: Hãy viết chương trình tính tổng các luỹ thừa x1 + x2 + … xn với x , n nhập từ bàn phím.
Program tinh_luy_thua;
Var x, lt, S :real;
i, n:integer;
Begin
Writeln(‘nhap co so x’); readln(x);
Writeln(‘nhap so mu n’); readln(n);
lt:=1; S:=0;
For i:=1 to n do
Begin
lt:=lt*x; S:=S+lt;
end;
Writeln(‘Tong cac luy thua S=’, S:6:2);Readln
End.
KẾT THÚC
Chúc quý thầy cô vui,
Chúc các em học tốt!!