ADA Program to find perimeter of square

By: Chaitra

Created: 07/15/2024 09:36

Last modified: 07/15/2024 09:36

Program

With Gnat.IO; use Gnat.IO;
procedure perimeterofsquare is
	side : Integer;
	perimeter : Integer;
begin
	Put ("Enter the dimension of one side: ");
	Get (side);
	perimeter := 4 * side;
	Put_Line ("Perimeter = " & integer'image(perimeter));
end;

Output

$ gnat make perimeterofsquare.adb
gcc -c perimeterofsquare.adb
gnatbind -x perimeterofsquare.ali
gnatlink perimeterofsquare.ali
$ ./perimeterofsquare
Enter the dimension of one side: 9
Area =  36