Câu 5. Viết chương trình tính thể tích và diện tích toàn phần hình hộp chữ nhật với độ dài các cạnh được nhập từ bàn phím.
Bài 6. Viết chương trình xét xem một tam giác có là tam giác vuông hay không khi biết ba cạnh của tam giác của tam giác?
Câu 5. Viết chương trình tính thể tích và diện tích toàn phần hình hộp chữ nhật với độ dài các cạnh được nhập từ bàn phím.
Bài 6. Viết chương trình xét xem một tam giác có là tam giác vuông hay không khi biết ba cạnh của tam giác của tam giác?
5/
Program BTH;
Uses crt;
var dai,rong,cao,v,s:longint;
Begin
clrscr;
Write(‘Nhap chieu dai: ‘);readln(dai);
Write(‘Nhap chieu rong: ‘);readln(rong);
Write(‘Nhap chieu cao: ‘);readln(cao);
v:=dai*rong*cao;
s:=((dai+rong)*2*4)+(dai*rong*2);
writeln(‘The tich hinh hop chu nhat la: ‘,v);
Writeln(‘Dien tich toan phan cua hinh hop chu nhat la: ‘,s);
readln;
end.
6/
Program BTH;
Uses crt;
Var a,b,c:longint;
Begin
clrscr;
write(‘Nhap do dai canh thu nhat: ‘);readln(a);
write(‘Nhap do dai cannh thu hai: ‘);readln(b);
write(‘Nhap do dai canh thu ba: ‘);readln(c);
If (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then
writeln(‘Day la tam giac vuong’)
else writeln(‘Day khong phai la tam giac vuong’);
readln;
End.
câu 5 :
var n,a,b:longint;
begin
read(a,b,n);
writeln(a*b);
writeln((a+b)*2);
writeln(n*n);
write(n*4);
end.
6/
Program BTH;
Uses crt;
Var a,b,c:longint;
Begin
clrscr;
write(‘Nhap do dai cannh thu hai: ‘);readln(a,b,c);
If (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then
writeln(‘Day la tam giac vuong’)
else writeln(‘Day khong phai la tam giac vuong’);
readln;
End.