Lập trình đơn giản

Diệu Huyền

viet chuong trinh tinh dien tich tam giac voi chieu cao va canh day la 2 so nguyen duong nhap tu ban phim

Giup vs 1 Gp cho cau tl dung

Ji Jiang
14 tháng 11 2019 lúc 17:03

Lập trình đơn giản

Bình luận (0)
 Khách vãng lai đã xóa
Sara Trang
14 tháng 11 2019 lúc 20:46

Program DIEN_TICH_TAM_GIAC;

uses crt;

var a,h,s:integer;

begin

clrscr;

Write('Nhap canh day:'); Readln(a);

Write('Nhap chieu cao:'); Readln(h);

s:=(a*h)/2;

Writeln('Dien tich cua hinh tam giac la:',s);

Readln

End.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
14 tháng 11 2019 lúc 22:02

xin lỗi bạn

mình xin sửa lại

uses crt;

var a,h:integer;

s:real;

begin

clrscr;

Write('Nhap canh day:'); Readln(a);

Write('Nhap chieu cao:'); Readln(h);

s:=(a*h)/2;

Writeln('Dien tich cua hinh tam giac la:',s:4:2);

Readln

End.

Bình luận (0)
 Khách vãng lai đã xóa
Diệu Huyền
14 tháng 11 2019 lúc 16:04
Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
14 tháng 11 2019 lúc 22:01

uses crt;

var a,h,s:integer;

begin

clrscr;

Write('Nhap canh day:'); Readln(a);

Write('Nhap chieu cao:'); Readln(h);

s:=(a*h)/2;

Writeln('Dien tich cua hinh tam giac la:',s);

Readln

End.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyễn Xạ Điêu
Xem chi tiết
minh nguyen cong
Xem chi tiết
Nguyễn Xạ Điêu
Xem chi tiết
Huyền Minh Lam Nguyệt
Xem chi tiết
Vy Tuong
Xem chi tiết
Vy Tuong
Xem chi tiết
Nguyễn Quỳnh
Xem chi tiết
Thiên Bình
Xem chi tiết
Võ Châu Minh Ngọc
Xem chi tiết