Bai tap pascal hay

 Bi tập chương 1:CU LỆNH IF ….THEN…

  * Bài 1 :
Nhập ba số a,b,c bất kì . Hãy kiểm tra xem ba số nó có thể là độ dài của tam giác hay tam giác không? Thông báo lên màn hình “thỏa mãn” hay ‘ Không thỏa mãn”.
GIẢI:
Var a , b , c : Real ;
BEGIN
Writeln (` Nhap do dai 3 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 > 0 ) and ( b > 0 ) and ( c > 0 ) Then
Writeln (` Thoa man : Day la 3 canh cua mot tam giac `)
Else
Writeln (` Khong thoa man ! `) ;
Readln ; END .
* BÀI 2 :
Nhập N số bất kì
Nếu các số lớn hơn 10 và nhỏ hơn 20 thì tính tổng của chúng . Sau đó, in ra màn hình :So cac so >10 và <20 là : ( gia tri ) ;tong cua chung la )
GIải
Var Tong , So : Real ; I , N , Dem : Integer ;
BEGIN
Write (` Bao nhieu so : `) ; Readln ( N ) ;
Tong := 0 ; Dem := 0 ;
For I := 1 To N Do
Begin
Write (` So = `) ; Readln ( So ) ;
If ( So > 10 ) and ( So < 20 ) Then
Begin
Tong := Tong + So ;
Dem := Dem + 1 ;
End ;
End ;
Writeln (` So cac so >10 va <20 la : `, dem ) ;
Writeln (` Tong cua chung la :`, Tong ) ;
Readln ; END .
* Bi 3 :
Nhập 4 số a , b , c , d . Hãy tìm giá trị lớn nhất của chúng và gán gi trị lớn nhất cho biến Max .
GIẢI:
Var Max , a , b , c , d : Real ;
BEGIN
Writeln (` Nhap gia tri cua 4 so : `) ;
Write (` a = `) ; Readln ( a ) ;
Write (` b = `) ; Readln ( b ) ;
Write (` c = `) ; Readln ( c ) ;
Write (` d = `) ; Readln ( d ) ;
Max := a ;
If Max < b Then Max := b ;
If Max < c Then Max := c ;
If Max < d Then Max := d ;
Writeln (` Gia tri lon nhat la : `, Max ) ;
Readln ;
END .
  * Bài 4 :
Nêu ngày tháng năm ,sau đó viết ra màn hình các thứ trong tuần .
GIẢI
Var Thu , Ngay , Thang : Byte ;
Nam : Integer ;
BEGIN
Write (` Doc Ngay, Thang, Nam : `) ;
Readln ( Ngay , Thang , Nam ) ;
Nam := 1900 + ( Nam mod 1900 ) ;
If Thang < 3 Then
Begin
Thang := Thang + 12 ;
Nam := Nam - 1 ;
End ;
Thu := Abs ( Ngay + Thang * 2 + ( Thang + 1 ) * 3
div 5 + Nam + Nam div 4 ) mod 7 ;
Case Thu Of
0 : Writeln (` Chu Nhat `) ;
1 : Writeln (` Thu Hai `) ;
2 : Writeln (` Thu Ba `) ;
3 : Writeln (` Thu Tu `) ;
4 : Writeln (` Thu Nam `) ;
5 : Writeln (` Thu Sau `) ;
6 : Writeln (` Thu Bay `) ;
End ;
Readln ;
END .

* Bài 5 :
Viết chương trình :
Nhập số báo danh
Nhập điểm văn, toán, ngoại ngữ
In ra màn hình dưới dạng :
_ Phiếu điểm:
_ Số bo danh :
_ Điểm Văn :
_ Điểm Tốn :
_ Điểm ngoại ngữ :
_ Tổng số điểm :
Bạn đã trúng tuyển ( hoặc Bạn đã không trúng tuyển ) với điều kiện Tổng số điểm >= 15 hay ngược lại .
GIẢI
Uses Crt