viết chương trình xác định max, min của a,b nhập vào dùng chương trình con

0 bình luận về “viết chương trình xác định max, min của a,b nhập vào dùng chương trình con”

1. !huutainguyen4559

    Cái này mik cũng mới học cũng ko bt đúng hay ko , nếu sai bạn thông cảm

   program dz;
   ues crt;
   var a,b:longint;
   procedure sosanh;
   var min,max:longint;
   begin
        if a>b then begin max:=a;min:=b;end
        else begin max:=b;min:=a;end;
        writeln(‘ So lon hon la : ‘,max);
        write(‘ So ba hon la : ‘,min);
   end;
   BEGIN
          clrscr;
          write(‘ Nhap a, b : ‘);readln(a,b);
          sosanh;
          readln
   End.

   _chúc bạn hcoj tốt_

   Trả lời

2. uses crt;
   var a,b:longint;
   procedure kt(a,b:longint);
   var max,min:longint;
   begin
      max:=a;
      if b>max then max:=b;
      min:=a;
      if b<min then min:=b;
      writeln(‘Max: ‘,max);
      writeln(‘Min: ‘,min);
   end;
   begin
   clrscr;
      write(‘Nhap a,b: ‘); readln(a,b);
      kt(a,b);
   readln
   end.

   Trả lời