Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, d được nhập từ bàn phím).

0 bình luận về “Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, d được nhập từ bàn phím).”

1. Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, d được nhập từ bàn phím).

   Trả lời:

   Program Gia_Tri_Lon_Nhat;
   Uses crt;
   Var a,b,c,d,max:real;
   Begin
   Clrscr;
   Writeln(‘TIM SO LON NHAT TRONG BON SO A, B, C, D’);
   Write(‘Nhap a=’); Readln(a);
   Write(‘Nhap b=’); Readln(b); Write(‘Nhap c=’); Readln(c);
   Write(‘Nhap d=’); Readln(d); max:=a;
   If b>max then max:=b; If d>max then max:=d;
   Writeln(‘So lon nhat la:’,max:4:2);
   Readln;

   End.

   Bình luận

2. Program chuongtrinh;

   Uses crt;

   Var a, b, c, d, max: real;

   Begin

   Clrscr;

   Write (‘Nhap a=’);

   Readln(a);

   Write (‘Nhap b=’);

   Readln(b);

   Write (‘Nhap c=’);

   Readln(c);

   Write (‘Nhap d=’);

   Readln(d);

   max:=a;

   If b>max then max:=b;

   If c>max then max:=c;

   If d>max then max:=d;

   Writeln (‘So lon nhat la:’,max:4:2);

   Readln;

   End.

   Bình luận