Bài 1: Viết chương trình con tìm giá trị nhỏ nhất của 2 số nguyên a và b Bài 2:Viết chương trình con tính cạnh huyền c với 2 cạnh góc vuông a,b nhập

0 bình luận về “Bài 1: Viết chương trình con tìm giá trị nhỏ nhất của 2 số nguyên a và b Bài 2:Viết chương trình con tính cạnh huyền c với 2 cạnh góc vuông a,b nhập”

1. Bài 1:

   uses crt;
   var a,b:real;
   procedure min;
   begin
      if a<b then write(‘So nho nhat la ‘,a:4:2) else if b<a then write(‘So nho nhat la ‘,b:4:2)
      else write(‘Hai so a va b bang nhau’);
   end;
   begin
      clrscr;
      write(‘Nhap a: ‘); readln(a);
      write(‘Nhap b: ‘); readln(b);
      min;
      readln
   end.

   Bài 2:

   uses crt;
   var a,b,c:real;
   procedure canhhuyen;
   begin
      c:=sqr(a)+sqr(b);
      c:=sqrt(c);
      write(‘Canh huyen c la: ‘,c:4:2);
   end;
   begin
      clrscr;
      write(‘Nhap canh goc vuong a: ‘); readln(a);
      write(‘Nhap canh goc vuong b: ‘); readln(b);
      canhhuyen;
      readln
   end.

   Bình luận