Viết chương trình tìm số lớn nhất trong 4 số nguyên a, b, c, d, trong chương trình có sử dụng hàm tìm số lớn nhất của 2 số nguyên a và b? Giúp mjk với nha! Mjk sắp kiểm tra rồi :((

Levanoai12345

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 26 xem

1 trả lời

Thích Trả lời

kthanh1004

program tim_max;

uses crt;

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

{---HAM---}

function lonnhat(x,y:integer):integer;

begin

if x>y then lonnhat:=x else lonnhat:=y;

end;

{---Chuong-trinh-chinh---}

BEGIN

clrscr;

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

write('Nhap c: '); readln(c);

write('Nhap d: '); readln(d);

max:=lonnhat(a,b);

max:=lonnhat(max,c);

max:=lonnhat(max,d);

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

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

huyenvthb2012

uses crt;

var a,b,c,d: integer;

function max(a,b,c,d: integer): integer;

begin

if (a>=b) and (a>=c) and (a>=d) then max:=a;

if (b>=a) and (>=c) and (>=d) then max:=b;

if (c>=a) and (>=b) and (>=d) then max:=c;

if (d>=a) and (>=c) and (>=b) then max:=d;

end;

begin

clrscr;

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

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

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

write ('nhap d: '); readln (d);

writeln ('so lon nhat la: ',max(a,b,c,d));

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

giúp mình với nêu đủ các bước ah

trình báy tất cả các kiến thức em đã học về cuộc khởi nghĩa yên thế

MN giúp mình vs. Mai thi mất rùi. Sớm quá 😢

Viết 2 đoạn văn giải thích nghĩ đen và nghĩ bóng của câu tục ngữ "Ăn quả nhớ kẻ trồng cây" KO CHÉP MẠNG!! cần gấp ạ

Giúp mình với, loay hoay từ sáng đến giờ mà chẳng biết giải thế nào, :((

Giải hộ mình với ạ cảm ơn nhiều ạ.

Ưu điểm,nhược điểm,tình hình phân bố của các loại hình vận tải.

bài văn về lễ hôi bằng tiếng anh nha nhanh giúp mik

Giúp mk 2 bài nâng cao này nhez

Giúp mẹ câu c với mọi người ơi hứa sẽ vote 5 Sao và cho 20đ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến