Question

ĐỀ KIỂM TRA CUỐI HK2 TIN 11

ĐỀ 1: Viết chương trình tính tổng, tìm giá trị lớn nhất của 3 số nguyên dương ( Sử dụng hàm tính tổng, tìm giá trị lớn nhất của 2 số )
ĐỀ 2: Viết chương trình tính tích, tìm giá trị nhỏ nhất của 3 số nguyến dương ( Sử dụng hàm tính tích, tìm giá trị nhỏ nhất của 2 số )

giúp mik với ạ 

 

Answer 1

Đề 1: 

uses crt;

var a,b,c:integer;

{---------------chuong-trinh-con-tinh-tong------------------}

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

begin

tong:=x+y;

end;

{-----------------chuong-trinh-con-tim-max--------------------}

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

begin

max:=x;

if max<y then max:=y;

end;

{--------------------chuong-trinh-chinh---------------------}

begin

clrscr;

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

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

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

writeln(tong(a,tong(b,c)));

writeln(max(a,max(b,c)));

readln;

end.

Answer 2

Đề 2: 

uses crt;

var a,b,c:integer;

{---------------chuong-trinh-con-tinh-tich------------------}

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

begin

tich:=x*y;

end;

{-----------------chuong-trinh-con-tim-min--------------------}

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

begin

min:=x;

if min>y then min:=y;

end;

{--------------------chuong-trinh-chinh---------------------}

begin

clrscr;

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

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

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

writeln(tich(a,tich(b,c)));

writeln(min(a,min(b,c)));

readln;

end.