31 lines
967 B
Ada
31 lines
967 B
Ada
with ComplexCalculator;
|
|
with Ada.Text_IO;
|
|
|
|
procedure Main is
|
|
FirstInput : String(1..10);
|
|
SecondInput : String(1..10);
|
|
Last_Position : Natural; -- Variable to hold the last position
|
|
|
|
begin
|
|
-- Your program logic goes here
|
|
Ada.Text_IO.Put("Specify first imaginary number: ");
|
|
|
|
-- Read the user's input for the first number and store it in FirstInput.
|
|
Ada.Text_IO.Get_Line(FirstInput, Last => Last_Position);
|
|
|
|
Ada.Text_IO.Skip_Line;
|
|
-- Display the user's input for the first number.
|
|
Ada.Text_IO.Put_Line("You entered: " & FirstInput);
|
|
|
|
Ada.Text_IO.Put("Specify second imaginary number: ");
|
|
|
|
-- Read the user's input for the second number and store it in SecondInput.
|
|
Ada.Text_IO.Get_Line(SecondInput, Last => Last_Position);
|
|
|
|
-- Display the user's input for the second number.
|
|
Ada.Text_IO.Put_Line("You entered: " & SecondInput);
|
|
|
|
-- Example: Display a message
|
|
Ada.Text_IO.Put_Line("Hello, Ada!");
|
|
end Main;
|