ADA Program to find perimeter of rectangle

By: Chaitra

Created: 07/17/2024 11:41

Last modified: 07/17/2024 11:41

Program

With Gnat.IO; use Gnat.IO;
procedure perimeterofrectangle is
	width : Integer;
	height: Integer;
	perimeter : Integer;
begin
	Put ("Enter the width of the rectangle: ");
	Get (width);
	Put ("Enter the height of the rectangle: ");
	Get (height);
	perimeter := 2 * (width + height);
	Put_Line ("Area = " & integer'image(perimeter));
end;

Output

$ gnat make perimeterofrectangle.adb
gcc -c perimeterofrectangle.adb
gnatbind -x perimeterofrectangle.ali
gnatlink perimeterofrectangle.ali
$ ./perimeterofrectangle
Enter the width of the rectangle: 21
Enter the height of the rectangle: 13
Area =  68