57 lines
1.5 KiB
Ada
57 lines
1.5 KiB
Ada
with Ada.Text_IO;
|
|
with Ada.Integer_Text_IO;
|
|
with Ada.Float_Text_IO;
|
|
with Ada.Command_Line;
|
|
with Ada.Strings;
|
|
with Ada.Strings.Unbounded;
|
|
|
|
procedure program is
|
|
package to renames Ada.Text_IO;
|
|
package io renames Ada.Integer_Text_IO;
|
|
package fo renames Ada.Float_Text_IO;
|
|
package s renames Ada.Strings;
|
|
package su renames Ada.Strings.Unbounded;
|
|
package cl renames Ada.Command_Line;
|
|
type Degrees is new Float range -273.15 .. Float'Last;
|
|
|
|
Temperature: Degrees;
|
|
|
|
begin
|
|
declare
|
|
X: su.Unbounded_String := su.To_Unbounded_String(cl.Argument(1));
|
|
begin
|
|
Temperature := 36.6;
|
|
to.Put("Hello, World!!!. The temperature is: ");
|
|
fo.Put(Float(Temperature), EXP => 0, AFT => 2);
|
|
to.New_Line;
|
|
|
|
if Temperature >= 40.0 then
|
|
to.Put_Line("Wow!");
|
|
to.Put_Line("It's extremly hot");
|
|
elsif Temperature >= 30.0 then
|
|
to.Put_Line("It's hot");
|
|
elsif Temperature >= 20.0 then
|
|
to.Put_Line("It's warm");
|
|
elsif Temperature >= 10.0 then
|
|
to.Put_Line("It's cool");
|
|
elsif Temperature >= 0.0 then
|
|
to.Put_Line("It's cold");
|
|
else
|
|
to.Put_Line("It's freezing");
|
|
end if;
|
|
|
|
to.Put("Argument 1: ");
|
|
to.Put_Line(su.To_String(X));
|
|
|
|
X := su.To_Unbounded_String(cl.Argument(2));
|
|
|
|
to.Put("Argument 2: ");
|
|
to.Put_Line(su.To_String(X));
|
|
|
|
end;
|
|
exception
|
|
when CONSTRAINT_ERROR =>
|
|
to.Put_Line("Niepoprawne wywołanie programu");
|
|
|
|
end program;
|