Lập trình a/ Tìm giá trị lớn nhất của 2 số nguyên b/ Tính y = ∑(trên 50 và dưới n=1)$\frac{n}{n+1}$ không hiểu comt nhé! c/ Tính diện tích tam giác,

0 bình luận về “Lập trình a/ Tìm giá trị lớn nhất của 2 số nguyên b/ Tính y = ∑(trên 50 và dưới n=1)$\frac{n}{n+1}$ không hiểu comt nhé! c/ Tính diện tích tam giác,”

1. a)

   Program BTT;
   Uses crt;
   Var a,b: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘Nhap b: ‘); Readln(b);
           If a>b then Write(a,’ lon hon ‘,b)
           Else If a<b then Write(b,’ lon hon ‘,a)
           Else Write(‘Hai so bang nhau’);
           Readln
   End.

   c)

   Program BTT;
   Uses crt;
   Var a,b,c,s,p: real;
   Begin
           Clrscr;
           //Tam giac
                   Write(‘Nhap do dai 3 canh: ‘); Readln(a,b,c);
                   p:=(a+b+c)/2;
                   s:=sqrt(p*(p-a)*(p-b)*(p-c));
                   Write(‘S = ‘,s:0:2);
           //Hinh vuong
                   Write(‘Nhap do dai canh: ‘); Readln(a);
                   s:=sqr(a);
                   Write(‘S = ‘,s:0:2);
           //Hinh tron
                   Write(‘Nhap ban kinh: ‘); Readln(r);
                   s:=sqr(r)*3.14;
                   Write(‘S = ‘,s:0:2);
           Readln
   End.

   Bình luận