Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Stack (Using Tasking)
--GNAT 4.9.3 with Ada.Text_IO; use Ada.Text_IO; procedure Hello is task type stack(len : integer) is entry push(num : integer); entry pop(num : out integer); end stack; task body stack is data : array(1..len) of integer; idx : integer; begin loop select accept push(num : integer) do idx := idx + 1; data(idx) := num; end push; or accept pop(num : out integer) do num := data(idx); idx := idx - 1; end pop; or terminate; end select; end loop; end stack; mystk : stack(100); num : integer; begin for i in 1..mystk.len loop mystk.push(i); end loop; for i in 1..mystk.len loop mystk.pop(num); Put_Line (num'img); end loop; end Hello;
run
|
edit
|
history
|
help
2
Please
log in
to post a comment.
susuma_dos_enteros.adb
plop
Iterator Interface
division_emtera_p.adb
macro-like function
Overloaded Ada
Controlled types (temporary anonymous objects)
function calling using pointers
Dynamic Dispatching
Bc130400116
Please log in to post a comment.