VCT kiểm tra xem a,b,c có lập thành 3 cạnh của tam giác không? VCT tính các diện tích hình vuông, chữ nhật, tròn, hình thang

1.

program phuongt;

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>c) and (b+c>a) and (a+c>b) then write('Co') else write('Khong');

             readln

end.

2.

program phuongt;

uses crt;

   var a, b, r, h: real;

begin

           clrscr;

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

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

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

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

           writeln('Dien tich hinh vuong: ', a*a);

           writeln('Dien tich hinh chu nhat: ', a*b);

           writeln('Dien tich hinh tron: ', r*r*3.14);

           write('Dien tich hinh thang: ', ((a+b)*h)/2);

           readln

end.

Bài 1:

Program BTT;
Uses crt;
Var a,b,c: extended;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        If (a+b>c) and (b+c>a) and (a+c>b) then Write('Thoa man')
        Else Write('Khong thoa man');
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Const pi=3.14;
Var a,b,h,s,r: extended;
    k: 1..4;
Begin
        Clrscr;
        Writeln('1. Hinh vuong: ');
        Writeln('2. Hinh chu nhat: ');
        Writeln('3. Hinh tron: ');
        Writeln('4. Hinh thang: ');
        Write('Chon hinh can tinh dien tich (1 -> 4): '); Readln(k);

        If k=1 then
        Begin
                Write('Nhap do dai canh: '); Readln(a);
                s:=sqr(a);
        End;

        If k=2 then
        Begin
                Write('Nhap chieu dai va chieu rong: '); Readln(a,b);
                s:=a*b;
        End;

        If k=3 then
        Begin
                Write('Nhap ban kinh: '); Readln(r);
                s:=sqr(r)*pi;
        End;

        If k=4 then
        Begin
                Write('Nhap do dai 2 day: '); Readln(a,b);
                Write('Nhap chieu cao: '); Readln(h);
                s:=(a+b)*h/2;
        End;

        Write('Dien tich cua hinh do la: ',s:0:2);
        Readln
End.