BÀI TẬP PASCAL BDHSG

BÀI TẬP CHƯƠNG 1:CÂU LỆNH IF ….THEN… * Bài : Nhập số a , b , c Hãy kiểm tra xem ba số độ dài ba cạnh tam giác hay không ? Thông báo lên hình ‘ Thỏa mãn ‘, ‘ Không thỏa mãn trường hợp tương ứng GIẢI Var a , b , c : Real ; BEGIN Writeln (' Nhap dai canh cua tam giac : ') ; Write (' a = ') ; Readln ( a ) ; Write (' b = ') ; Readln ( b ) ; Write (' c = ') ; Readln ( c ) ; If ( a + b > 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 ; END * Bài : Nhập N số Đếm số lớn 10 nhỏ 20 tính tổng chúng Sau , đưa hình :So cac so >10 10 ) and ( So < 20 ) Then Begin Tong := Tong + So ; Dem := Dem + ; End ; End ; Writeln (' So cac so >10 va [...]... + 1 ; until tien >= x ; writeln (' Ban phai gui tien trong ', thang div 12 , ' nam ', thang mod 12 ,' thang ') ; writeln (' Khi do so tien ban rut ra duoc la ', tien:12:2 ,' dong ') ; readln ; END * Bài 12 : Viết chương trình tìm ƯSCLN của N số được nhập từ bàn phím GIẢI Uses crt ; Var a : Array [1 100] Of Integer ; n , i : Byte ; d : integer ; BEGIN Clrscr ; Writeln (' Tim USCLN cua N so :') ; Write ... Then Writeln(' Dung ! ') Else Writeln(' Sai ! ') ; Readln ; END BÀI TẬP CHƯƠNG 2:VÒNG LẬP XĐ VÀ KHÔNG XÁC ĐỊNH Sử dụng lệnh For * Bài : Lập trình tính tích số tự nhiên từ tới 10 GIẢI Var i : Byte... Writeln (' Thu Nam ') ; : Writeln (' Thu Sau ') ; : Writeln (' Thu Bay ') ; End ; Readln ; END * Bài : Viết chương trình : Nhâp số báo danh Nhập điểm văn , toán , ngoại ngữ In hình dạng : _ Phiếu... Then Writeln(' Ban da trung tuyen ') Else Writeln(' Ban khong trung tuyen ') ; Readln ; END * Bài : Viết chương trình nhập hai số thực Sau hỏi phép tính cần thực in kết phép tính Nếu “+” ,