Bài 17: Chương trình con và phân loại

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trương Vui
Viết thủ tục nhập vào 3 cạnh của 1 tam giác. Viết hàm Max(x,y:real): Real có giá trị lớn nhất trong hai số x,y. Viết thủ tục để viết ra màn hình đường cao nhỏ nhất trong tam giác đều. Gọi các chương trình con đã viết ở chương trình trên.
Nguyễn Lê Phước Thịnh
21 tháng 5 2020 lúc 13:33

1:

procedure nhap(var a,b,c:real);

begin

Repeat

write('Nhap canh thu nhat:'); readln(a);

write('Nhap canh thu hai:'); readln(b);

write('Nhap canh thu ba:'); readln(c);

Until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

end;

2:

function max(var x,y:real):real;

begin

max:=x;

if max<y then max:=y;

end;


Các câu hỏi tương tự
hà nội 123
Xem chi tiết
Tuấn Lê
Xem chi tiết
Tuấn Lê
Xem chi tiết
Trong nhóm zalo
Xem chi tiết
Trường
Xem chi tiết
Thanh Hải
Xem chi tiết
Thúy Hà
Xem chi tiết
Đinh Thị Hạnh
Xem chi tiết
Thanh Hoàn
Xem chi tiết