BÀI TẬP PASCAL CHƯƠNG 2 VÀ 3

CHƯƠNG 2: CHƯƠNG TRÌNH ĐƠN GIẢN. Bài 1: Viết chương trình tính Z=5x 4 + 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 . 2 2 M a b= + . 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. Program 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. Bà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=1 2 +2 2 +…+ N 2 . 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 ax 2 + 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. . 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ố. ',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