- 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.
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
23 tháng 4 2021
Mình viết chương trình chính thôi, bạn tự viết chương trình con nhé
uses crt;
var a:array[1..100]of integer;
i,n,t,tam,j:integer;
begin
clrscr;
write('Nhap n=');readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong diem cua ',n,' ban la: ',t);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
PQ
0
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;