Bài 5: Viết chương tính diện tích tam giác.. BÀI TẬP TỰ LÀM Bài 1: Viết chương trình tính diện tích hình cầu.. Bài 2: Viết chương trình tính diện tích hình chữ nhật.. In kết quả ra màn h
Trang 1CHƯƠNG 2: CHƯƠNG TRÌNH ĐƠN GIẢN.
Bài 1: Viết chương trình tính Z=5x4 + 3y In kết quả ra màn hình
Program bai1;
Var Z,x,y:integer;
Begin
Write(‘nhap x,y’); readln(x,y);
Z:=5*sqr(x)*sqr(x) + 3*y; {Z:=5*x*x*x*x + 3*y;}
Writeln(Z);
Readln
End
Bài 2: Viết chương trình tính M = a2+b2 In kết quả ra màn hình Program bai2;
Var a,b:integer;
M: real;
Begin
Write(‘Nhap a,b’); readln(a,b);
M:=sqrt(sqr(a) + sqr(b));
Writeln(M:2:4);
Readln
End
Bài 3: viết chương trình in ra màn hình tam giác sau:
* * * * * * * * * *
* * * * * * * *
* * * * * *
* * * *
* * * Bài 4: Viết chương trình tính diện tích hình thang In kết quả ra màn hình Program Hinh_thang;
Var
a,b,h:Integer;
S:Real;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH HINH THANG');
Write('-Cho biet day ngan = ');
Readln(a);
Write('-Cho biet day dai = ');
Readln(b);
Write('-Cho biet chieu cao = ');
Readln(h);
S := 0.5 * (a + b) * h;
Writeln('+Dien tich hinh thang = ',s:6:2,' met vuong');
Readln
End
Bài 5: Viết chương tính diện tích tam giác In kết quả ra màn hình
Trang 2Program Tam_Giac;
Var
a,b,c:Integer;
p,s:Real;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH TAM GIAC');
Write('-Cho biet canh thu nhat = ');
Readln(a);
Write('-Cho biet canh thu hai = ');
Readln(b);
Write('-Cho biet canh thu ba = ');
Readln(c);
p := 0.5 * (a + b + c);
s := sqrt(p*(p-a)*(p-c)*(p-c));
Writeln('+Dien tich hinh tam giac = ',s:6:2,' met vuong');
Readln
End
BÀI TẬP TỰ LÀM
Bài 1: Viết chương trình tính diện tích hình cầu In kết quả ra màn hình
Bài 2: Viết chương trình tính diện tích hình chữ nhật In kết quả ra màn hình
Bài 3: Viết chương trình tính chu vi, diện tích hình tròn In kết quả ra màn hình
**********************************************************************
CHƯƠNG 3: CẤU TRÚC RẼ NHÁNH VÀ LẶP
Bài 1: Viết chương trình nhập từ bàn phím số nguyên dương N Kiểm tra xem N có chia hết cho 3 và
5 hay không In kết ra màn hình
Program bai1;
var N:integer;
begin
write('nhap N=');
readln(n);
if (n mod 3=0) and (n mod 5=0) then
writeln(n,'chia het cho 3 va 5')
else
writeln(n,'khong chia het cho 3 va 5');
readln
end
Bài 2: Viết chương trình in ra màn hình từ 1 10
program bai2;
var i:integer;
begin
for i:=1 to 10 do
write(i:4);
readln
end
Bài 3: Viết chương trình in ra màn hình từ 10 1
Trang 3Bài 4: Viết chương trình tính tổng S=1 +2 +3 + …+ N In kết quả ra màn hình.
var s,n,i:integer;
begin
write('nhap n');
readln(n);
s:=0;
for i:= 1 to n do
s:=s+i;
writeln(s);
readln
end
Bài 5: Lập trình tính giá trị biểu thức S=12 +22 +…+ N2 In kết quả ra màn hình
program bai4;
var s,n,i:integer;
begin
write('nhap n');
readln(n);
s:=0;
for i:= 1 to n do
s:=s+sqr(i);
writeln(s);
readln
end
BÀI TẬP TỰ LÀM
Bài 1: Lập trình tìm tất cả các số hoàn hảo nhỏ hơn số n cho trước với n được nhập từ bàn phím, trong đó số hoàn hảo là bằng tổng các ước số của nó không kể chính nó, ví dụ: 6 là một số hòan hảo vi 6=1 + 2+3
Bài 2 Viết chương trình tính tổng bậc 3 của N số nguyên đầu tiên In kết quả ra màn hình
Bài 3: Viết chương trình tìm ước số của số nguyên N In kết quả ra màn hình.
Bài 4: Viết chương trình tính tổng nghịch đảo N số nguyên đầu tiên In kết quả ra màn hình Bài 5:Viết chương trình tính tổng bình phương các số lẻ từ 1 N In kết quả ra màn hình Bài 6: Viết chương trình tính N! In kết quả ra màn hình.
Bài 7: Viết chương trình tính a n In kết quả ra màn hình
Bài 8: Viết chương trình giải phương trình bậc 2 ax2 + bx + c=0(a<>0) In kết quả ra màn hình
Bài 9: Viết chương trình tính tổ hợp chập K của N In kết quả ra màn hình.
Bài 10 Viết chương trình tìm UCLN và BSCNN In kết quả ra màn hình