Pascal | Lập thủ tục nhập ba số thực dương a , b , c từ bàn phím

Pascal | Lập thủ tục nhập ba số thực dương a , b , c từ bàn phím

Viết chương trình thực hiện lần lượt các công việc sau:

- Lập thủ tục nhập ba số thực dương a , b , c từ bàn phím .

- Lập thủ tục kiểm tra xem ba số trên có lập thành ba cạnh của tam giác hay không ?

- Viết hàm tính diện tích của tam giác .

- Viết hoàn thiện chương trình chính.

Chương trình

Program Tam_Giac;

Uses crt;

Var a,b,c : Integer;

{ 1. Thu tuc nhap}

Procedure NhapABC (Var a, b, c : Integer);

Begin

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

    Write( 'Nhap b:' ); Readln( b );

    Write( 'Nhap c:' ); Readln( c );

End;

{ 2. Ham tinh dien tich}

Function Dientich( a, b, c:Integer ) : Real;

Var dt,p : Real;

Begin

     p := (a+b+c)/2;

     dt := sqrt(p* (p-a)*(p-b)*(p-c));

     Dientich := dt;

End;

{ 3. Thu tuc kiem tra va In kqua tinh dien tich (neu la tam giac) }

Procedure KiemTra_InDienTich ( a,b,c:Integer);

Begin

     If ((a+b>c) and (b+c>a) and (a+c>b)) then

         Writeln(' Ba canh tren tao thanh tam giac.dien tich', Dientich(a,b,c) )

     Else

         Writeln('Ba canh tren khongtao thanh tam giac');

End;

{ 3. Than chuong trinh chinh }

BEGIN

     NhapABC(a,b,c);

     KiemTra_InDienTich (a,b,c);

END.
Bạn thấy bài viết này như thế nào?: 
Average: 10 (1 vote)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Hướng dẫn tạo blog trong Symfony 2 framework

Hướng dẫn tạo blog trong Symfony 2 framework

This tutorial will guide you through the process of creating a full featured blogging website using Symfony2. The Standard Distribution of the Symfony2 framework will be used

Gái mại dâm trên đường phố C annes trong thời gian liên hoan phim 2019

Trao đổi thân xác ở Cannes - Gái gọi hạng sang nhất thế giới (phần 1)

Liên hoan phim Cannes (Pháp) tràn ngập không khí lễ hội. Nhiều gương mặt ngôi sao xuất hiện trên thảm đỏ với trang phục lộng lẫy. Thế nhưng phía sau hào quang ấy là đủ chiêu trò đổi chác tình dục và mua bán thân xác.

Google sẽ độc bá CES 2013

Google sẽ độc bá CES 2013

Chỉ mới vài năm trước, gần như mọi sản phẩm điện toán xuất hiện tại Triển lãm CES đều chạy hệ điều hành Windows.

Tomdesgin.vn

 

Drupal Services