Question

Cho 4 số a, b, c, d. Viết chương trình tìm giá trị lớn nhất và đưa ra màn hình kết quả

Answer 1

program Tim_Max;
uses CRT;
var a,b,c,d,Max :integer;

Begin
clrscr;
Write('Nhap 4 so can so sanh ');
readln(a,b,c,d);

Max:=a;
If Max<b then Max:=b;
If Max<c then Max:=c;
If max<d then Max :=d;

Writeln('So lon nhat trong 4 so do la: ',Max);
readln;

End.

Answer 2

Tìm GTLN : =SUM(X_A:Y_B) sau đó ấn enter,sử dụng nút điền , kéo thả chuột sang ngang để sao chép công thức.

Answer 3

program gia_tri_lon_nhat;

uses crt;

var a,b,c,d :real;

BEGIN

write('nhap vao so a'); Readln(a);

write('nhap vao so b'); Readln(b);

write('nhap vao so c'); Readln(c);

write('nhap vao so d'); Readln(d);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

write('gia tri lon nhat cua bon so a,b,c,d la:',max);

readln;

END.

Thanks

Answer 4

program tim_gia_tri_lon_nhat;

uses crt;

var a, b, c, d: real;

begin

clrscr;

write ('nhap 4 so a, b, c, d: '); readln (a, b, c, d);

if (a>b) and (a>c) and (a>d) then writeln('a la so lon nhat')

else if (b>a) and (b>c) and (b>d) then writeln('b la so lon nhat')

else if (c>a) and (c>b) and (c>d) then writeln('c la so lon nhat')

else if (d>a) and (d>b) and (d>c) then writeln ('d la so lon nhat')

else writeln ('a=b=c=d');

readln

end.

* ở đây mình chỉ áp dụng trường hợp là lớn nhất và 4 số cùng bằng nhưng nếu xét đúng ra thì nó còn xảy ra trường hợp a=b hoặc b=c hoặc a=b=c,... nhưng thầy mình nói chỉ cần làm như vậy thôi!

Answer 5

program ctdt;
uses crt;
type mang=array[1..4]of integer;
var a,b,c,d,i,max:integer;
t:mang;

(*-----------------------*)
BEGIN
clrscr;
{vi co 4 so nen ta dua 4 so do vao mot mang}
for i:=1 to 4 do
begin
write('so thu ',i,' :');readln(t[i]);
end;
max:=t[1];
for i:=2 to 4 do
if t[i]>=max then max:=t[i];
write('gia tri lon nhat: ',max);
readln;
end.

Answer 6

program ctdt;
uses crt;
type mang=array[1..4]of integer;
var a,b,c,d,i,max:integer;
t:mang;

(*-----------------------*)
BEGIN
clrscr;
{vi co 4 so nen ta dua 4 so do vao mot mang}
for i:=1 to 4 do
begin
write('so thu ',i,' :');readln(t[i]);
end;
max:=t[1];
for i:=2 to 4 do
if t[i]>max then max:=t[i];
write('gia tri lon nhat: ',max);
readln;
end.

Answer 7

uses crt;

var a,b,c,d,max:longint;

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 max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

write('So lon nhat la:',max);

readln;

end.