Nhập vào cạnh và chiều cao của hình tam giác.In ra màn hình diện tích và chu vi của nó

0 bình luận về “Nhập vào cạnh và chiều cao của hình tam giác.In ra màn hình diện tích và chu vi của nó”

1. Uses Crt;
   Var r,dt,cv:real;
   Begin
      Clrscr;
      Writeln(‘TINH DIEN TICH & CHU VI HINH TRON:’);
      Writeln(‘——————————————————’);
      Write (‘Nhap ban kinh R=’);readln(r);
      dt:=pi*r*r;
      cv:=2*pi*r;
      Writeln(‘Dien tich hinh tron la:’,dt:6:2);
      Writeln(‘Chu vi hinh tron la:’,cv:6:2);
      Readln;
   End.

   chúc bạn học tốt!

   Bình luận

2. var:c=canh;

         h=chieucao;

   begin;

   writeln(“canh:”);

   readln(“canh”);

   writeln(“chieucao”);

   readln(“chieucao”);

   writeln(“dientichla:”);

   writeln(“c*h/2”);

   writeln(“chuvila:”);

   writeln(“c*3”);

   end.

   Bình luận