ÖN TẬP MÔN TIN 8 (tt)/ Bài 3: Kiểm tra xem tam giác có cân, vuông không uses crt; var a,b,c,cv,dt,p:real; BEGIN clrscr; write ('Nhap do dai canh write ('Nhap do dai canh .. : write ('Nhap do dai canh ');readln (a); ');readln (b); : ' );readln (c); Cv:= p:= .. ..; dt:=sqrt (p* (p-a)*(p-b) * (p-c)); writeln ('. writeln ('. writeln ('Duong cao canh thu 1 la: ',dt*2/a:0:4); writeln ('Duong cao canh thu 2 la: ',dt*2/b:0:4); writeln('Duong cao canh thu 3 la: ',dt*2/c:0:4); if (a=b) or (a=c) or (b=c) if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c%=b*b+a*a)then writeln ('Tam giac vuong'); readln la: ',cv:0:4); la: ',dt:0:4); . writeln ('Tam giac can'); END. Bài 4: Hoán vị 2 số Nhập 2 số nguyên a, b, hoán vị 2 số khi a>b. uses crt; var a,b, tg:integer; BEGIN clrscr; write ('Nhap .. '); readln (........); write ('Nhap if a>b .: ');readln (. .); begin tg:=a; a:=b; b:=tg; end; writeln (. ., .............) ; readln END. hơi khó nhìn :v

Đây là điền từ vào hay sao ạ?!

<Điền từ> <Phần Program thì điền gì cũng được nhé!>

Program kiemtra;

Uses crt;

Var a,b,c,cv,dt, p: real;

Begin

    Clrscr;

    Write(' Nhap do dai canh a: '); Readln(a);

    Write(' Nhap do dai canh b: '); Readln(b);

    Write(' Nhap do dai canh c: '); Readln(c);

    cv:=a+b+c;

    p:=cv/2;

    dt:=sqrt(p*(p-a)*(p-b)*(p-c));

    Writeln(' Chu vi cua tam giac là: ',cv:0:4);

    Writeln(' Dien tich cua tam giac là: ',dt:0:4);

    Writeln(' Duong cao canh thu 1 la: ',dt*2/a:0:4);

    Writeln(' Duong cao canh thu 2 la: ',dt*2/b:0:4);

    Writeln(' Duong cao canh thu 3 la: ',dt*2/c:0:4);

     If (a=b) or (a=c) or (b=c) then writeln(' Tam giac can');

     If (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then

       writeln(' Tam giac vuong');

     Readln

End.

~~~~~~~~~~~~~~

Program Hoanvi;

Uses crt;

Var a,b,tg:Integer;

Begin

    Clrscr;

    Write(' Nhap a: ');Readln(a);

    Write(' Nhap b: ');Readln(b);

    If a>b then

      Begin

          tg:=a;

          a:=b;

          b:=tg;

      End;

    Writeln(a,' ',b);

    Readln

End.