Viết chương trình tìm giá trị lớn nhất 3 số nhập vào từ bàn phím (SỬ DỤNG CHƯƠNG TRÌNH CON)

0 bình luận về “Viết chương trình tìm giá trị lớn nhất 3 số nhập vào từ bàn phím (SỬ DỤNG CHƯƠNG TRÌNH CON)”

1. program GTLN;

   uses crt;

   var a,b,c:integer;

   {—–Chuong-trinh-con——}

   function max(x,y,z:integer):integer;

   begin

          max:=x;

          if y>max then max:=y;

          if z>max then max:=z;

   end;

   {——Chuong-trinh-chinh——}

   BEGIN

          clrscr;

          write(‘Nhap so thu nhat: ‘);   readln(a);

          write(‘Nhap so thu hai: ‘);   readln(b);

          write(‘Nhap so thu ba: ‘);   readln(c);

          write(‘Gia tri lon nhat la: ‘,max(a,b,c));

          readln;

   end.

   Bình luận

2. uses crt;
   var a,b,c:integer;
   function max(x,y,z:integer):integer;
   begin
      max:=x;
      if y>x then max:=y;
      if z>x then max:=z;
   end;
   begin
      write(‘Nhap a: ‘); readln(a);
      write(‘Nhap b: ‘); readln(b);
      write(‘Nhap c: ‘); readln(c);
      write(‘Gia tri lon nhat la: ‘,max(a,b,c));
      readln
   end.

   Bình luận