chương trình pascal

[caotandung100@yahoo.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình nhập 3 số thực a, b, c. Kiểm tra xem 3 số đó có phải là 3 cạnh của một tam giác hay không. Nếu đó là 3 cạnh của tam giác thì hãy kiểm tra xem đó có phải là tam giác đều hay không. Nếu là tam giác đều, hãy tính diện tích của tam giác đó
mình cần gấp, ai giúp được, thanks nhiều

 

[megamanxza]

viết chương trình nhập 3 số thực a, b, c. Kiểm tra xem 3 số đó có phải là 3 cạnh của một tam giác hay không. Nếu đó là 3 cạnh của tam giác thì hãy kiểm tra xem đó có phải là tam giác đều hay không. Nếu là tam giác đều, hãy tính diện tích của tam giác đó
mình cần gấp, ai giúp được, thanks nhiều

Đề nghị mấy thím Mod Toán move cái bài này qua Học lập trình ngay và luôn!!!

[COLOR="blue"]Uses crt;
var a, b, c, s: real;
begin
clrscr;
write ('Nhap canh thu nhat: '); readln (a);
write ('Nhap canh thu hai: '); readln (b);
write ('Nhap canh thu ba: '); readln (c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
  begin
    if (a=b) and (b=c) then 
      begin
        s:= sqrt(c*c-(a/2)*(a/2))*a;
        writeln ('Day la tam giac deu co dien tich la ',s:0:4);
      end
    else writeln ('Day la tam giac nhung khong phai la tam giac deu!');
  end
else writeln ('Day khong phai la tam giac!');
readln
end.[/COLOR]

Có gì sai thì bân thông cảm! Đã hơn bốn tháng mình chưa đụng vô Pascal. @-)