baitapmaupascal-130801022028-phpapp01

http://d.violet.vn//uploads/resources/518/3854358/preview.swf http://dethi.violet.vn/present/show/entry_id/9112483 Program HINH_CHU_NHAT; Uses Crt; Var a,b,s,c: real; Begin Clrscr; Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); Writeln(‘ ‘); Write('Nhap chieu dai='); readln(a); Write('Nhap chieu rong=');readln(b); s:=a*b; c:=(a+b)*2; Writeln('Dien tich hinh chu nhat la:’,s:6:2); Writeln('Chu vi hinh chu nhat:',c:6:2); Readln; End ======================================================== Bài 2: Nhập vào bán kính hình trịn In hình diện tích chu vi Program HINHTRON; Uses Crt; Var r,dt,cv:real; Begin Clrscr; Writeln('TINH DIEN TICH & CHU VI HINH TRON:'); Writeln(' '); Write ('Nhap ban kinh R=');readln(r); dt:=pi*r*r; cv:=2*pi*r; Writeln('Dien tich hinh tron la:',dt:6:2); Writeln('Chu vi hinh tron la:',cv:6:2); Readln; End ========================================================== Bài : Tính tam giác: Nhập vào ba số a,b,c Kiểm tra xem độ dài ba cạnh hay khơng, khơng in hình 'Khong la ba canh cua mot tam giac' Ngược lại, in diện tích, chu vi tam giác hình Program TAMGIAC; Uses crt; Var a,b,c,s,p : real; Begin Clrscr; Writeln(‘BAI TOAN TAM GIAC:’); Writeln(' -'); Write('nhap a =');readln(a); Write ('nhap b =');readln(b); Write('nhap c =');readln(c); If ((a+b)>c)and((b+c)>a)and((a+c)>b) then Begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('Chu vi tam giac:',2*p:4:2); Writeln('Dien tich tam giac:',s:4:2); End Else Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac'); Readln; End =============================================== Bài 4: Viết chương trình giải phương trình bậc (ax + b = 0) Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x:real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0'); Writeln(' '); Write ('Nhap a= '); readln(a); Write ('Nhap b= ');readln(b); If(a=0) then If(b=0) then Writeln(' Phuong trinh co vo so nghiem') Else Writeln(' Phuong tring vo nghiem') Else Writeln('Phuong trinh co nghiem x=',-b/a:4:2); Readln Bài tập 1: Viết chương trình nhập vào số nguyên kiểm tra xem số vừa nhập số chẵn hay số lẻ Program Kiemtratinhchanle; Uses crt; Var x:integer; Begin Write('Nhap vao mot so nguyen : '); Readln(x); If (x MOD 2=0) Then Writeln('So vua nhap vao la so chan') Else Writeln('So vua nhap vao la so le'); Readln; End Bài tập 3: Viết chương trình tính tổng S = 1+2+ +N Program TinhTong; Uses crt; Var N,i,S:integer; Begin Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; For i:=1 to N S:=S+i; Writeln('Ket qua la :',S); Readln; End Bài tập 4: Viết chương trình nhập vào N số ngun từ bàn phím Hãy tính in hình tổng số vừa nhập vào Ý tưởng: Dùng phương pháp cộng dồn Cho vòng lặp FOR chạy từ tới N, ứng với lần lặp thứ i, ta nhập vào số nguyên X đồng thời cộng dồn X vào biến S Program Tong; Uses crt; Var N,S,i,X : Integer; Begin Clrscr; S:=0; For i:=1 To n Do Begin Write('Nhap so nguyen X= '); Readln(X); S:=S+X; End; Writeln(‘Tong cac so duoc nhap vao la: ‘,S); Readln; End Bài tập 6: Viết chương trình nhập vào số nguyên N In hình tất ước số N Ý tưởng: Cho biến i chạy từ tới N Nếu N MOD i=0 viết i hình Uses Crt; Var N,i : Integer; Begin Clrscr; Write('Nhap so nguyen N= '); Readln(N); For i:=1 To N Do If N MOD i=0 Then Write(i:5); Readln; End Bài tập 7: Viết chương trình tìm USCLN BSCNN số a, b nhập vào từ bàn phím Ý tưởng: - Tìm USCLN: Lấy số lớn trừ số nhỏ a=b dừng Lúc đó: USCLN=a - BSCNN(a,b) = a*b DIV USCLN(a,b) Program Tim_USCLN_BSCNN; Uses crt; Var a,b, m,n:integer; Begin Write('Nhap a : '); Readln(a); Write('Nhap b : '); Readln(b); m:=a; n:=b; While (mn) Do Begin If (m>n) Then m:=m-n Else n:=n-m; End; Writeln('USCLN= ',m); Writeln('BSCNN= ',a*b DIV n); Readln; End Bài tập 8: Viết chương trình tìm số có chữ số cho: = a3 + b3 + c3 Ý tưởng: Dùng phương pháp vét cạn Ta biết rằng: a có giá trị từ 19 (vì a số hàng trăm), b,c có giá trị từ 09 Ta dùng vịng lặp FOR lồng để duyệt qua tất trường hợp a,b,c Ứng với abc, ta kiểm tra: Nếu 100.a + 10.b + c = a3 + b3 + c3 in abc Program Timgiatri_abc; Uses crt; Var a,b,c : Word; Begin For a:=1 To Do For b:=0 To Do For c:=0 To Do If (100*a + 10*b + c)=(a*a*a + b*b*b + c*c*c) Then Writeln(a,b,c); Readln; End Bài tập 9: Viết chương trình nhập vào số tự nhiên N thơng báo lên hình số có phải số nguyên tố hay không Ý tưởng: N số ngun tố N khơng có ước số từ  N div Từ định nghĩa ta đưa giải thuật: - Đếm số ước số N từ  N div lưu vào biến d - Nếu d=0 N số nguyên tố Uses crt; Var N,i,d : Word; Begin If N c ) and ( b + c > a ) and ( c + a > b ) and ( a > ) and ( b > ) and ( c > ) Then Writeln (' Thoa man : Day la canh cua mot tam giac ') Else Writeln (' Khong thoa man ! ') ; Readln ;