Pascal: SOLUTIONS BÀI TẬP 2

Program SO_SANH1;

uses crt;

var a,b: real;

begin

     clrscr;

     write('nhap so thu nhat: '); readln(a);

     write('nhap so thu hai: '); readln(b);

     if a> b then writeln(' So lon la:',a);

     if a<= b then writeln(' So lon la:',b:10:2);

     readln

end.

Program SO_SANH2;

uses crt;

var a,b: real;

begin

     clrscr;

     write('nhap so thu nhat: '); readln(a);

     write('nhap so thu hai: '); readln(b);

     if a> b then writeln(' So lon la:',a:10:2)

     else writeln(' So lon la:',b:10:2);

     readln

end.

Program So_Lon_Nhat_1;

Uses crt;

Var a,b,c,d: real;

Begin

     Clrscr;

     Write('Nhap so thu nhat:');readln(a);

     Write('Nhap so thu hai:');readln(b);

     Write('Nhap so thu ba:');readln(c);

     Write('Nhap so thu tu:');readln(d);

     if (a>=b) and (a>=c) and (a>= d) then writeln('So lon nhat la:',a:10:2);

     if (b>=a) and (b>=c) and (b>= d) then writeln('So lon nhat la:',b:10:2);

     if (c>=a) and (c>=b) and (c>= d) then writeln('So lon nhat la:',c:10:2);

     if (d>=a) and (d>=b) and (d>= c) then writeln('So lon nhat la:',d:10:2);

     readln

end.

Program So_Lon_Nhat_2;

Uses crt;

Var a,max: real;

Begin

     Clrscr;

     Write('Nhap so thu nhat:');readln(a);Max:=a;

     Write('Nhap so thu hai:');readln(a);if a>=Max then Max:=a;

     Write('Nhap so thu ba:');readln(a);if a>=Max then Max:=a;

     Write('Nhap so thu tu:');readln(a);if a>=Max then Max:=a;

     Write('So lon nhat la:',Max:10:2);

     readln

end.

Program Tam_giac_deu;

uses crt;

var a,b,c: real;

begin

     clrscr;

     write('Nhap a = '); readln(a);

     write('Nhap b = '); readln(b);

     write('Nhap c = '); readln(c);

     if (a = b) and (b = c) then writeln('La tam giac deu')

     else

     writeln('Khong phai la tam giac deu');

     readln

end.

Program Tam_giac_can;

uses crt;

var a,b,c: real;

begin

     clrscr;

     write('Nhap a = '); readln(a);

     write('Nhap b = '); readln(b);

     write('Nhap c = '); readln(c);

     if (a = b) or (b = c) or (a = c) then writeln('La tam giac can')

     else

     writeln('Khong phai la tam giac can');

     readln

end.

Program Tam_giac_can;

uses crt;

var a,b,c: real;

begin

     clrscr;

     write('Nhap a = '); readln(a);

     write('Nhap b = '); readln(b);

     write('Nhap c = '); readln(c);

     if (a*a = b*b+c*c) or (b*b = c*c+a*a) or (c*c= a*a+b*b) then writeln('La tam giac vuong')

     else

     writeln('Khong phai la tam giac vuong');

     readln

end.

Program Phuong_trinh_2;

uses crt;

var a,b:real;

begin

     clrscr;

     Writeln('CHUONG TRINH GIAI PT ax + b = 0');

     Write('Nhap he so a = ');readln(a);

     Write('Nhap he so b = ');readln(b);

     if (a<>0) then writeln('phuong trinh',a:10:2,'x + ',b:10:2,'= 0',' co nghiem x =;',-b/a:10:2);

     if (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem');

     if (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem');

     readln

end.

Program Phuong_trinh_2;

uses crt;

var a,b:real;

begin

     clrscr;

     Writeln('CHUONG TRINH GIAI PT ax + b = 0');

     Write('Nhap he so a = ');readln(a);

     Write('Nhap he so b = ');readln(b);

     if (a<>0) then writeln('phuong trinh',a:10:2,'x + ',b:10:2,'= 0',' co nghiem x =;',-b/a:10:2)

     else

     if (b=0) then writeln('Phuong trinh co vo so nghiem')

     else

     writeln('Phuong trinh vo nghiem');

     readln

end.

Program Sap_ngua;

uses crt;

Var A, B, C: byte;

Begin

     clrscr;

     Writeln('Go phim de xem ket qua: ');

     A:=Random(10); A:=A mod 2;

     B:=Random(10); B:=B mod 2;

     C:=Random(10); C:=C mod 2;

     Write('Ket qua: ',a,b,c);

     if (A=0) and (B=0) and (C=0) then Write(' Hoa');

     if (A=0) and (B=0) and (C=1) then Write(' C Thang');

     if (A=0) and (B=1) and (C=0) then Write(' B Thang');

     if (A=0) and (B=1) and (C=1) then Write(' A Thang');

     if (A=1) and (B=0) and (C=0) then Write(' A Thang');

     if (A=1) and (B=0) and (C=1) then Write(' B Thang');

     if (A=1) and (B=1) and (C=0) then Write(' C Thang');

     if (A=1) and (B=1) and (C=1) then Write(' Hoa');

     Readln;

     Readln

End.

Program dich;

uses crt;

Var thu:byte;

begin

     clrscr;

     write('nhap thu can dich 2à8: '); readln(thu);

     case thu of

     2: Write('--> Monday');

     3: Write('--> Tuesday');

     4: Write('--> Wednesday');

     5: Write('--> Thursday');

     6: Write('--> Friday');

     7: Write('--> Saturday');

     8: Write('--> Sunday');

     else

     Write(' Khong co thu nay');

     end;

     readln

end.

Program Dien_Tich_cac_hinh;

uses crt;

var chon: byte;

    a,b,c,S: real;

Begin

     clrscr;

     writeln('CHUONG TRINH TINH DIEN TICH CAC HINH');

     Writeln('------------------------------------------');

     writeln('1.   DIEN TICH HINH TAM GIAC');

     writeln('2.   DIEN TICH HINH VUONG');

     writeln('3.   DIEN TICH HINH CHU NHAT');

     writeln('4.   DIEN TICH HINH THANG');

     writeln('5.   DIEN TICH HINH TRON');

     write('Moi ban chon hinh can tinh dien tich: ');readln(chon);

     case chon of

     1 : Begin

          Write('Cho biet canh day: '); readln(a);

          Write('Cho biet chieu cao: '); readln(b);

          S:=(a*b)/2;

          end;

     2:Begin

         Write('Cho biet chieu dai canh: '); readln(a);

         S:=a*a;

         end;

     3:Begin

         Write('Cho biet chieu dai: '); readln(a);

         Write('Cho biet chieu rong: '); readln(b);

         S:=a*b;

         end;

     4:Begin

              Write('Cho biet day lon: '); readln(a);

              Write('Cho biet day nho: '); readln(b);

              Write('Cho biet chieu cao: '); readln(c);

              S:=(a+b)*c/2;

        End;

     5:Begin

              Write('Cho biet ban kinh: '); readln(a);

              S:=a*a*pi;

         End;

     else

        Writeln('Chon sai roi!!!');

     end;

     Writeln('Dien tich cua hinh la: ',S:8:2);

     readln

end.