with Ada.Text_IO; use Ada.Text_IO;
procedure Hello is
begin
Put_Line ('Hello, world!');
end Hello;
with Ada.Text_IO; use Ada.Text_IO;
procedure Hello is
begin
Put_Line ('Hello, world!');
end Hello;
with Ada.Text_IO; use Ada.Text_IO;
procedure Swap is
A, B, Temp : Integer;
begin
A := 5;
B := 10;
Temp := A;
A := B;
B := Temp;
Put_Line (Integer'Image(A));
Put_Line (Integer'Image(B));
end Swap;
with Ada.Text_IO; use Ada.Text_IO;
procedure Array_Sum is
type Array_Type is array (1 .. 5) of Integer;
Array_Var : Array_Type := (1, 2, 3, 4, 5);
Sum : Integer := 0;
begin
for I in Array_Var'Range loop
Sum := Sum + Array_Var(I);
end loop;
Put_Line (Integer'Image(Sum));
end Array_Sum;
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Real_Time; use Ada.Real_Time;
with Ada.Task_Identification;
procedure Thread is
task T is
entry Start;
end T;
task body T is
begin
delay 1.0;
Put_Line ('Hello from task T');
end T;
begin
T.Start;
delay 2.0;
Put_Line ('Hello from main thread');
end Thread;
Back-end App Developer
Front-end Web Developer
Full Stack Developer (Java)
Full Stack Developer (.Net)
Full Stack Developer (MEAN)
Full Stack Developer (MERN)
DevOps Engineer
Database Engineer (AzureSQL)
Database Engineer (Oracle)
Database Engineer (General)
Solution Architect (.NET)
Solution Architect (Java)
Solution Architect (Ruby)
Solution Architect (Python)
AI Engineer (Python)
Sr. AI Engineer (Python)
AI Strategist (Python)
Business Intelligence Engineer
Systems Analyst
Mainframe Developer (COBOL)
Mainframe Developer (General)