- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
--
--Ada SPEC file
--Universe
--
-- Description:
--
--
--
--
--
--
--
package Universe is
type UniversalObject is tagged record
id:integer;
end record;
type Position is record
x:integer;
y:integer;
end record;
type VisibleObject is new UniversalObject with record
mass: integer;
Name:String (0..60);
Speed: float; --скорость:)
OrbitalPosition: Position;
end record;
type Ship Is new VisibleObject with record
Size:integer;
end record;
type Asteroid is new VisibleObject WITH NULL RECORD;
procedure USELECT (Object: in UniversalObject'Class); --Новая инструкция выбора:)
end Universe;
Тут не смешно, но мне кажется, стоит оптимизировать.
И еще: Добавьте языков в список. Не все ковнокодеры - вебмастера.
Комментарии (0) RSS
Добавить комментарий