câu 1 : viết chương trình giá trị của biểu thức a*a / (2*b+c)+(2*b+c) với a,b,c đc nhập từ bàn phím câu 2 viết chương trình tính chu vi và diện tích

0 bình luận về “câu 1 : viết chương trình giá trị của biểu thức a*a / (2*b+c)+(2*b+c) với a,b,c đc nhập từ bàn phím câu 2 viết chương trình tính chu vi và diện tích”

1. câu 1

   var a,b,c,s:real;

   begin

    writeln(‘nhap lan luot 3 so’);readln(a,b,c);      {nhap gia tri ba so}

    s:=a*a/((2*b+c)*2);      {gan bien s la gia tri bieu thuc}

    writeln(s);  {in gia tri bien s ra man hinh}

    readln;

   end.

   câu 2

   var canh, chuvi, dientich:real;

   begin

    writeln(‘nhap do dai canh’);readln(canh);   {nhap do dai canh}

    chuvi:=canh*4; {tinh chu vi hinh vuong}

    dientich:=canh*canh {tinh dien tich hinh vuong}

   writeln(‘dien tich la:’,dientich); {in dien tich hinh vuong ra man hinh}

   writeln(‘chu vi la:’,chuvi); {in chu vi hinh vuong ra man hinh}

    readln;

   end.

   Bình luận

2. 1.

   program btsydn;

   uses crt;

     var a, b, t: real;

   begin

              clrscr;

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

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

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

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

              write(‘Gia tri = ‘, t);

              readln

   end.

   2.

   program btsydn;

   uses crt;

     var a: real;

   begin

              clrscr;

              write(‘Nhap canh a = ‘); readln(a);

              writeln(‘Chu vi = ‘, a*4);

              writeln(‘Dien tich = ‘, a*a);

              readln

   end.

   Bình luận