Viết chương trình Pascal nhập vào số đo ba cạnh tam giác là a,b,c và chiều cao h của cạnh a. Tính chu vi và diện tích của tam giác và in kết quả ra màn hình.(a,b,c,h là số nguyên dương).
2 câu trả lời
uses crt;
var a,b,c,h,p,s:integer;
begin
clrscr;
write ('Nhap a: '); readln (a);
write ('Nhap b: '); readln (b);
write ('Nhap c: '); readln (c);
write ('Nhap h: '); readln (h);
p:=a+b+c;
s:=a*h;
writeln ('Chu vi cua tam giac la: ',p);
writeln ('Dien tich cua tam giac la: ',s);
readln;
end.
program tam_giac;
uses crt;
var a, b, c, h, cv : integer;
s : real;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai canh b :');readln(b);
write('nhap do dai canh c :');readln(c);
write('nhap chieu cao cua canh a :');readln(h);
cv := a + b + c;
s := 0.5 *a * h;
writeln('chu vi tam giac la :', cv);
writeln('dien tich tam giac la :', s:4:2);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
