From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: * X-Spam-Status: No, score=1.6 required=5.0 tests=BAYES_00,INVALID_MSGID, RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,5d7204ff396525aa,start X-Google-Attributes: gid103376,public From: Eric Sabo Subject: Please help link list! Date: 1997/12/04 Message-ID: <01bd0074$856c1020$8d484893@default>#1/1 X-Deja-AN: 295078069 Sender: Ada programming language Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU X-Priority: 3 X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3 X-MSMail-Priority: Normal Newsgroups: comp.lang.ada Date: 1997-12-04T00:00:00+00:00 List-Id: This is a multi-part message in MIME format. ------=_NextPart_000_1BB5_01BD004A.9C960820 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable What am I doing wrong with this program? with gnat.io; use gnat.io; procedure testing is type link_integer; type pointer is access link_integer; type link_integer is record number : integer; next : pointer; end record; first, last, p : pointer; temp : integer; begin =20 put("Project Number two"); p :=3D new link_integer; first :=3D p; last :=3D p; -- Entering the link list put_line("Please enter a number: "); get(temp); while temp /=3D -99 loop p.number :=3D temp; p :=3D new link_integer; last.next :=3D p; first.number :=3D temp; last :=3D p; put_line("Please enter a number: "); get(temp); first.number :=3D temp; first.next :=3D p; end loop; =20 -- printing outing the link list temp :=3D first.number; while temp /=3D last.number loop put("The number is "); put(temp); =20 temp :=3D p.number; end loop; end testing; Thanks, Eric Sabo sabo@hhs.net ------=_NextPart_000_1BB5_01BD004A.9C960820 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable
What am I doing wrong with this=20 program?
with gnat.io; = use=20 gnat.io;
procedure testing is
type link_integer;
type pointer = is access=20 link_integer;
type link_integer is
  =20 record
      number :=20 integer;
      next : = pointer;
   end=20 record; 
first, last, p : pointer;
temp :=20 integer;
begin
     =
    =20 put("Project Number two");
     p :=3D = new=20 link_integer;
     first :=3D=20 p;
     last :=3D p;
-- Entering the link=20 list
     put_line("Please enter a number:=20 ");
     = get(temp);
    =20 while temp /=3D -99 = loop
        =20 p.number :=3D temp;
         = p :=3D new=20 link_integer;
         = last.next :=3D=20 p;
         first.number :=3D = temp;
         last :=3D=20 p;
         = put_line("Please=20 enter a number: = ");
        =20 get(temp);
         = first.number :=3D=20 temp;
         first.next = :=3D=20 p;
     end loop;      =
--=20 printing outing the link list
   temp :=3D=20 first.number;
   while temp /=3D last.number=20 loop
      put("The number is=20 ");
     =20 put(temp);      =
      temp=20 :=3D p.number;
   end loop; 
end testing;
 
Thanks,
Eric Sabo
sabo@hhs.net
------=_NextPart_000_1BB5_01BD004A.9C960820--