viết chương trình Nhập 4 số a, b, c, d. Hãy tìm giá trị lớn nhất của chúng và gán giá trị đó cho biến Max

0 bình luận về “viết chương trình Nhập 4 số a, b, c, d. Hãy tìm giá trị lớn nhất của chúng và gán giá trị đó cho biến Max”

1. Var Max, a, b, c, d: Real;

   BEGIN

   Writeln (‘Nhap gia tri cua 4 so: ‘);

   Write (‘a = ‘) ; Readln (a);

   Write (‘b = ‘) ; Readln (b);

   Write (‘c = ‘) ; Readln (c);

   Write (‘d = ‘) ; Readln (d);

   Max:= a;

   If Max < b Then Max:= b;

   If Max < c Then Max:= c;

   If Max < d Then Max:= d;

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

   Readln;

   END

   Bình luận

2. Program BTH;
   uses crt;
   var a,b,c,d,max:longint;
   procedure BTH1;
   Begin
   Write(‘a= ‘);readln(a);
   Write(‘b= ‘);readln(b);
   Write(‘c= ‘);readln(c);
   Write(‘d= ‘);readln(d);
   end;
   procedure BTH2;
   Begin
   max:=a;
   If max<b then max:=b;
   If max<c then max:=c;
   If max<d then max:=d;
   end;
   procedure BTH3;
   Begin
   writeln(‘So lon nhat trong 4 so tren la: ‘,max);
   end;
   Begin
   clrscr;
   BTH1;
   BTH2;
   BTH3;
   readln;
   end.

   Bình luận