Listenanhaengen-wie? 
Author Message
 Listenanhaengen-wie?

Hallo Leute!

     Kann mir irgendjemand zeigen,wie man eine Liste an eine andere
anhaengt.
Die bergabe der  zuvor eingelesenen Listen erfolgt nach folgender Prozedur:
.
type
tRefListe = ^tListe;
tListe = record
                 info : integer;
                 next : tRefListe
             end;
.
.
procedure anhaengen (      inRefAnfang1,
                                              inRefAnfang2 : tRefListe;
                                       var  outRefAnfang : t RefListe);
{ Haengt die lineare Liste mit Anfangszeiger 'inRefAnfang2' an die
  Liste mit Anfangszeiger 'inRefAnfang1' an.
  Zurueckgegeben wird outRefAnfang, der Anfangszeiger der Ergebnisliste. }


            Tschss Gerold



Wed, 18 Jun 1902 08:00:00 GMT  
 Listenanhaengen-wie?

Quote:

> Hallo Leute!

>      Kann mir irgendjemand zeigen,wie man eine Liste an eine andere
> anhaengt.
> Die bergabe der  zuvor eingelesenen Listen erfolgt nach folgender Prozedur:
> .
> type
> tRefListe = ^tListe;
> tListe = record
>                  info : integer;
>                  next : tRefListe
>              end;
> .
> .
> procedure anhaengen (      inRefAnfang1,
>                                               inRefAnfang2 : tRefListe;
>                                        var  outRefAnfang : t RefListe);
> { Haengt die lineare Liste mit Anfangszeiger 'inRefAnfang2' an die
>   Liste mit Anfangszeiger 'inRefAnfang1' an.
>   Zurueckgegeben wird outRefAnfang, der Anfangszeiger der Ergebnisliste. }

The question was : how to append one list to the end of another ?

Actually this is pretty simple. As this sounds too much like
homework, I will just tell you the general way, without providing
any code... you should be able to figure the rest out easily :

traverse the list1 list, until you are on the last entry of that
list.

set the beginning of list2 to be the next entry of list1

return the beginning of list1

That's it.

you should also check whether list1 is empty (NIL) and then return
list2

 -Mike



Wed, 18 Jun 1902 08:00:00 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. Wie weet waar ik BP7 kan downloaden?

2. wie kan me helpen met pascal 7.0

3. WIE PROGRAMMIERT MAN SCHLEIFEN IN SQL

4. Druckerdaten auf LPT empfangen, wie ?

5. Wie: Polymorphe Objekte in Datei speichern (de)

6. Wie: Polymorphe Objekte in Datei speichern (de)

7. Wie..TTF zur Laufzeit installieren?

8. Wie..Druck-Schriftart festlegen

9. SOS-Wie solls weiter gehen?

10. Hilfe! SQL-Abfrage! Wie?

11. Install Shield. Wie geeft advies? Moeilijk?

12. Wie [X,Y,Z] Vektor um Ebenenachsen rotieren lassen ?

 

 
Powered by phpBB® Forum Software