Viết chương trình bằng ngôn ngữ lập trình Turbo Pascal nhập 3 số a, b, c từ bàn phím (a, b, c: số nguyên <=250). Hãy đưa ra giá trị lớn nhất và giá tr

0 bình luận về “Viết chương trình bằng ngôn ngữ lập trình Turbo Pascal nhập 3 số a, b, c từ bàn phím (a, b, c: số nguyên <=250). Hãy đưa ra giá trị lớn nhất và giá tr”

1. uses crt;

   var min,max,a,b,c: byte;

   begin

    clrscr;

     write (‘nhap a: ‘);  readln (a);

     write (‘nhap b: ‘);  readln (b);

     write (‘nhap c: ‘);  readln (c);

   max:=a;

   if max<=b then max:=b;

   if max<=c then max:=c;

   writeln (‘so lon nhat: ‘,max);

   min:=a;

   if min>=b then min:=b;

   if min>=c then min:=c;

   writeln (‘so nho nhat: ‘,min);

   readln;

   end.

   Bình luận

2. Uses crt;

   Var a, b, c, max, min: integer;

   Begin

        Clrscr;

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

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

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

        min:=a;

        If b<min then min:=b;

        If c<min then min:=c;

        Writeln(‘Gia tri nho nhat la: ‘,min);     

        max:=a;

        If b>max then max:=b;

        If c>max then max:=c;

        Writeln(‘Gia tri lon nhat la: ‘,max);

        Readln

   End.

   Bình luận