Yurttas/PL/IL/Ada-95/F/03/02/01/queue 00.adb

 1--
 2-- Copyright(C) 1998
 3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
 4--
 5-- Permission to use, copy, modify, and distribute this
 6-- software and its documentation for EDUCATIONAL purposes
 7-- and without fee is hereby granted provided that this
 8-- copyright notice appears in all copies.
 9--
10 
11-- date   : January 1, 1998.
12-- author : Salih Yurttas.
13
14-- purpose : open type solution of queues
15
16-- queue_00.adb
17
18
19with Ada.Text_IO;
20use Ada.Text_IO;
21
22with Queue_00_P;
23use Queue_00_P;
24
25procedure Queue_00 is
26
27  package Flo_IO is new Float_IO(Float);
28  use Flo_IO;
29
30  Q_A : Queue;
31
32  Q_Element : Float := 5.0;
33
34begin
35
36  Enqueue(Q_A, Q_Element);
37
38  Dequeue(Q_A, Q_Element);
39
40  Put(Q_Element);
41  New_Line;
42
43end Queue_00;