Imperative language
For the exercises below (except for the first one), don't worry about the
details of the Main
procedure. You should just focus on implementing the
application in the subprogram specified by the exercise.
Hello World
Goal: create a "Hello World!" application.
Steps:
Complete the
Main
procedure.
Requirements:
The application must display the message "Hello World!".
with Ada.Text_IO; use Ada.Text_IO; procedure Main is begin -- Implement the application here! null; end Main;
Greetings
Goal: create an application that greets a person.
Steps:
Complete the
Greet
procedure.
Requirements:
Given an input string
<name>
, procedureGreet
must display the message "Hello <name>!".
For example, if the name is "John", it displays the message "Hello John!".
Remarks:
You can use the concatenation operator (
&
).
with Ada.Command_Line; use Ada.Command_Line; with Ada.Text_IO; use Ada.Text_IO; procedure Main is procedure Greet (Name : String) is begin -- Implement the application here! null; end Greet; begin if Argument_Count < 1 then Put_Line ("ERROR: missing arguments! Exiting..."); return; elsif Argument_Count > 1 then Put_Line ("Ignoring additional arguments..."); end if; Greet (Argument (1)); end Main;
Positive Or Negative
Goal: create an application that classifies integer numbers.
Steps:
Complete the
Classify_Number
procedure.
Requirements:
Given an integer number
X
, procedureClassify_Number
must classifyX
as positive, negative or zero and display the result:
If
X > 0
, it displaysPositive
.If
X < 0
, it displaysNegative
.If
X = 0
, it displaysZero
.
procedure Classify_Number (X : Integer);with Ada.Text_IO; use Ada.Text_IO; procedure Classify_Number (X : Integer) is begin -- Implement the application here! null; end Classify_Number;with Ada.Command_Line; use Ada.Command_Line; with Ada.Text_IO; use Ada.Text_IO; with Classify_Number; procedure Main is A : Integer; begin if Argument_Count < 1 then Put_Line ("ERROR: missing arguments! Exiting..."); return; elsif Argument_Count > 1 then Put_Line ("Ignoring additional arguments..."); end if; A := Integer'Value (Argument (1)); Classify_Number (A); end Main;
Numbers
Goal: create an application that displays numbers in a specific order.
Steps:
Complete the
Display_Numbers
procedure.
Requirements:
Given two integer numbers,
Display_Numbers
displays all numbers in the range starting with the smallest number.
procedure Display_Numbers (A, B : Integer);procedure Display_Numbers (A, B : Integer) is begin -- Implement the application here! null; end Display_Numbers;with Ada.Command_Line; use Ada.Command_Line; with Ada.Text_IO; use Ada.Text_IO; with Display_Numbers; procedure Main is A, B : Integer; begin if Argument_Count < 2 then Put_Line ("ERROR: missing arguments! Exiting..."); return; elsif Argument_Count > 2 then Put_Line ("Ignoring additional arguments..."); end if; A := Integer'Value (Argument (1)); B := Integer'Value (Argument (2)); Display_Numbers (A, B); end Main;