Question

Write a solution for a predicate that translates numbers in English in ADA, for example: Number: 1000 is one thousand Number:1103 is one thousand one hundred three The program should enter into a loop for reading a number and translating it until we type the word ”halt.”, instead of a number.

**The range can be up to 9999***

Answer 1

toenglish.adb

with Ada.Text_IO; use Ada.Text_IO;

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

with Ada.Strings.Unbounded.Text_IO; use Ada.Strings.Unbounded.Text_IO;

procedure toenglish (N : Integer) is

num : Integer:=N;

num1 : Integer:=N;

l : Integer:=0;

digit1 : Integer;

digit2 : Integer;

digit3 : Integer;

digit4 : Integer;

type OneArray is array(1..19) of Unbounded_String;

one: OneArray;

type TwoArray is array(1..9) of Unbounded_String;

two: TwoArray;

type ThreeArray is array(1..9) of Unbounded_String;

three: ThreeArray;

type FourArray is array(1..9) of Unbounded_String;

four: FourArray;

begin

one(1):=To_Unbounded_String("one");

one(2):=To_Unbounded_String("two");

one(3):=To_Unbounded_String("three");

one(4):=To_Unbounded_String("four");

one(5):=To_Unbounded_String("five");

one(6):=To_Unbounded_String("six");

one(7):=To_Unbounded_String("seven");

one(8):=To_Unbounded_String("eight");

one(9):=To_Unbounded_String("nine");

one(10):=To_Unbounded_String("ten");

one(11):=To_Unbounded_String("eleven");

one(12):=To_Unbounded_String("twelve");

one(13):=To_Unbounded_String("thirteen");

one(14):=To_Unbounded_String("fourteen");

one(15):=To_Unbounded_String("fifteen");

one(16):=To_Unbounded_String("sixteen");

one(17):=To_Unbounded_String("seventeen");

one(18):=To_Unbounded_String("eighteen");

one(19):=To_Unbounded_String("nineteen");

two(1):=To_Unbounded_String("ten");

two(2):=To_Unbounded_String("twenty");

two(3):=To_Unbounded_String("thirty");

two(4):=To_Unbounded_String("fourty");

two(5):=To_Unbounded_String("fifty");

two(6):=To_Unbounded_String("sixty");

two(7):=To_Unbounded_String("seventy");

two(8):=To_Unbounded_String("eighty");

two(9):=To_Unbounded_String("ninety");

three(1):=To_Unbounded_String("one hundred");

three(2):=To_Unbounded_String("two hundred");

three(3):=To_Unbounded_String("three hundred");

three(4):=To_Unbounded_String("four hundred");

three(5):=To_Unbounded_String("five hundred");

three(6):=To_Unbounded_String("six hundred");

three(7):=To_Unbounded_String("seven hundred");

three(8):=To_Unbounded_String("eight hundred");

three(9):=To_Unbounded_String("nine hundred");

four(1):=To_Unbounded_String("one thousand");

four(2):=To_Unbounded_String("two thousand");

four(3):=To_Unbounded_String("three thousand");

four(4):=To_Unbounded_String("four thousand");

four(5):=To_Unbounded_String("five thousand");

four(6):=To_Unbounded_String("six thousand");

four(7):=To_Unbounded_String("sevent thousand");

four(8):=To_Unbounded_String("eight thousand");

four(9):=To_Unbounded_String("nine thousand");

while num > 0 loop

l:=l+1;

num := num / 10;

end loop;

digit1:=(num1 rem 10);

num1:=num1/10;

digit2:=(num1 rem 10);

num1:=num1/10;

digit3:=(num1 rem 10);

num1:=num1/10;

digit4:=(num1 rem 10);

if l=1 then

Put(one(digit1));

elsif l=2 then

if N>=11 and N<=19 then

Put(one(N));

elsif(digit1=0) then

Put(two(digit2));

else

Put(two(digit2)); Put(" "); Put(one(digit1));

end if;

elsif l=3 then

if digit2=0 and digit1=0 then

Put(three(digit3));

elsif digit2=0 then

Put(three(digit3)); Put(" "); Put(one(digit1));

elsif digit1=0 then

Put(three(digit3)); Put(" "); Put(two(digit2));

elsif digit2 = 1 and digit1 /= 0 then

Put(three(digit3)); Put(" "); Put(one(10+digit1));

else

Put(three(digit3)); Put(" "); Put(two(digit2)); Put(" "); Put(one(digit1));

end if;

elsif l=4 then

if digit3=0 and digit2=0 and digit1=0 then

Put(four(digit4));

elsif digit2=0 and digit1=0 then

Put(four(digit4)); Put(" "); Put(three(digit3));

elsif digit3=0 and digit1=0 then

Put(four(digit4)); Put(" "); Put(two(digit2));

elsif digit3=0 and digit2=0 then

Put(four(digit4)); Put(" "); Put(one(digit1));

elsif digit3 = 0 and digit2 = 1 and digit1 /= 0 then

Put(four(digit4)); Put(" "); Put(one(10+digit1));

elsif digit3 /= 0 and digit2 = 1 and digit1 /= 0 then

Put(four(digit4)); Put(" "); Put(three(digit3)); Put(" "); Put(one(10+digit1));

elsif digit3=0 then

Put(four(digit4)); Put(" "); Put(two(digit2)); Put(" "); Put(one(digit1));

elsif digit2=0 then

Put(four(digit4)); Put(" "); Put(three(digit3)); Put(" "); Put(one(digit1));

elsif digit1=0 then

Put(four(digit4)); Put(" "); Put(three(digit3)); Put(" "); Put(two(digit2));

else

Put(four(digit4)); Put(" "); Put(three(digit3)); Put(" "); Put(two(digit2)); Put(" "); Put(one(digit1));

end if;

else

Put_Line("Number should be betweeen 1 - 9999");

end if;

end toenglish;

main.adb

with Ada.Text_IO; use Ada.Text_IO;

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

with toenglish;

procedure main is

A : Integer;

S : String(1 .. 10) := (others => ' ');

begin

while True loop

Put ("Enter a number between 1-9999 : ");

Get (A);

toenglish(A);

Put_Line(" ");

end loop;

end main;

Note : Save both files on same location, first compile toenglish.adb and then compile and run main.adb. I didn't include code for exit loop when "halt" is entered, loop automatically exits when any string input is given.