Lektion den 22/9: Array

procedure Xyz is

type Row..Type is
array(1..3) of Integer;

type Arr_Type is
array (1..10) of Row_Type;

A,B: Arr_Type;
begin
A(1)(1):= 0; -- första raden i kolumnen
A(2)(1):= 0;

----------------------------------------------

type Tic_Tac_Toe_Type is
array (1..3,1..3) of character;
      -- X Y
      -- Koordinatsystem --> X
                         |
                         | Y

T1, T2 = Tic_Tac_Toe_Type;

begin
T1(2,2):= 'O';
T1(1,3):= 'X';

----------------------------------------------

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Hp is
procedure Get(Item : out Integer)is

begin

end Get;

X: Integer;

begin
Get(X);

exception
when Data_Error =>
Put("Fel");

end
end loop;
end HP;

----------------------------------------------
(sko-försäljning)

type Person_Type is
record
size: Float;
Mailadress: String(1..20);
Gender: Character;
end record;

P1, P2 : Person_Type;

begin
Get(P1);
P1.Size:= 440;
P1.Mailadress(1):= 'K';





(Poster: Poster
Fält: Poster
Poster: Fält)