các cậu ơi giúp mình làm mấy bài này với. Mai mình ktra rồi😥😥😥
Câu 1: Sử dụng chương trình con tính tổng 2 số nguyên a,b nhập từ bàn phím
Câu 2: viết công thức ktra 3 số nguyên dương nhập từ bàn phím có phải là 3 cạnh của tam giác không, sử dụng chương trình con
Câu 3: viết công thức tìm min 4 số a,b,c,d nhập từ bàn phím, sử dụng chương trình con tìm min 2 số
Helppp meeeee....
Đọc tiếp
các cậu ơi giúp mình làm mấy bài này với. Mai mình ktra rồi😥😥😥
Câu 1: Sử dụng chương trình con tính tổng 2 số nguyên a,b nhập từ bàn phím
Câu 2: viết công thức ktra 3 số nguyên dương nhập từ bàn phím có phải là 3 cạnh của tam giác không, sử dụng chương trình con
Câu 3: viết công thức tìm min 4 số a,b,c,d nhập từ bàn phím, sử dụng chương trình con tìm min 2 số
Helppp meeeee. 😥😥😥
Câu 1:
function tong(a,b:integer):integer;
begin
tong:=a+b;
end;
Câu 2:
function ktra(a,b,c:integer):boolean;
begin
if (a+b>c) and (a+c>b) and (b+c>a) then ktra:=true
else ktra:=false;
end;
Câu 3:
function min(a,b,c,d:real):real;
begin
min:=a;
if min>b then min:=b;
if min>c then min:=c;
if min>d then min:=d;
end;
Cậu ơi có cần thêm procedure với var phía trước nữa kh á. Hay chỉ ghi vậy thôi