-
Notifications
You must be signed in to change notification settings - Fork 0
/
main.adb
34 lines (34 loc) · 809 Bytes
/
main.adb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Buffers;
procedure Main is
package MyBuffers is new Buffers(10, Integer);
Buff: MyBuffers.Buffer;
task type Generator(N: Integer; Start: Integer; Step: Integer) is
end Generator;
task body Generator is
J: Integer := Start;
begin
for I in 1 .. N loop
Buff.Put(J);
J := J + Step;
end loop;
end Generator;
task type Drukuj(N: Integer) is
end Drukuj;
task body Drukuj is
J : Integer;
begin
for I in 1 .. N loop
Buff.Get(J);
Put(J);
New_Line;
end loop;
end Drukuj;
T0: Drukuj(300);
T1: Generator(101, 1000, 3);
T2: Generator(101, 2000, 3);
T3: Generator(101, 3000, 3);
begin
null;
end Main;