HELLUP! Programmeren in Pascal prob

[Zandweter]

Heren deskundigen,

Wij zijn bezig met een opdracht voor school in jaja TurboPascal!! Ik weet het .... ouwe meuk!!
Nou moet onderstaand programma namen uit een bestand halen en dan op alfabetische volgorde terugschrijven in een ander bestand. Let wel, de lijst die wordt opgebouwd mag niet alfabetisch worden opgebouwd!! De sorteer actie moet dus appart worden uitgevoerd.
Jullie snappen het al.... ons gepruts leidde niet tot het gewenste resultaat en we staren ons nu blind op de code. Ziet iemand waar het fout gaat!!
Inleze van bestand gaat prima, sorteren en wegschrijven dus niet!

de code staat later in deze que....<veranderd 8jan 14:45>:

(*Alvast Bedankt voor de moeite*)

[Verwijderd]

Ik wil niet vervelend zijn, maar ik ga het niet proberen te lezen voor je er [ code] tags omheen hebt gezet en het geheel wat uitgelijnd zodat het te lezen is

edit:
En zoals Nielz zegt, pascal is geen ouwe meuk

edit:
En zoals dusty zegt, zelfs een heel mooie taal

[Nielsz]

En wat is er zo bagger aan Pascal?

[dusty]

Op maandag 07 januari 2002 17:50 schreef Nielsz het volgende:
En wat is er zo bagger aan Pascal?

Niet veel, is mijn inziens een hele mooie taal

[jbcyber]

Mijn leraar begint altijd met een aantal standaard zinne

gebruik duidelijke variabele.
En heb je een PSD gemaakt??
Een duidelijke opmaak helpt ook heeeeelll erg veel bij het doorlezen van zo'n proggie en effe denken aan inspringen

Ik heb na het doorspitten toenetvan het boek PAscal en PSD's eigenlijk geen zin om alles door te nemen want tentamens zijn al erg genoeg .

Maar ja toch effe kijken

Welke soort van sorteren gebruik je ??
Waarom vraag je hoe vaak je wil sorteren je moet gewoon het hele bestand sorteren.

[Nielsz]

Op maandag 07 januari 2002 17:51 schreef dusty het volgende:

[..]

Niet veel, is mijn inziens een hele mooie taal

Juist. Niets mis met pascal dus.

[dusty]

Op maandag 07 januari 2002 17:53 schreef Nielsz het volgende:
[..]
Juist. Niets mis met pascal dus.

Niets is een groot woord

[Nielsz]

Op maandag 07 januari 2002 17:57 schreef dusty het volgende:

[..]

Niets is een groot woord

MIS ook.
er zit een klein verschil tussen mis en iets minder raak

[dusty]

Op maandag 07 januari 2002 17:58 schreef Nielsz het volgende:
[..]
MIS ook.
[..]

Management Informatie Systeem ? Wat heeft dat er nou weer mee te maken ?

[jbcyber]

Op maandag 07 januari 2002 17:59 schreef dusty het volgende:

[..]

Management Informatie Systeem ? Wat heeft dat er nou weer mee te maken ?

Jongens gaan we nu ook nog inleiding informatica erbij halen

[Nielsz]

Op maandag 07 januari 2002 17:59 schreef dusty het volgende:

[..]

Management Informatie Systeem ? Wat heeft dat er nou weer mee te maken ?

Kan best in pascal gebakken worden

[dusty]

Op maandag 07 januari 2002 18:00 schreef jbcyber het volgende:
[..]
Jongens gaan we nu ook nog inleiding informatica erbij halen

Hey wees blij dat we niet beginnen over ASP.

[note]( Access Service Provider, natuurlijk)[/note]

[Triple]

Ok, jullie hebben gelijk. Hier dan nogmaals de code, maar nu netjes met inspringen endergelijke.

Het melden van hoe vaak de sort nog wordt herhaald is voor ons om te zien of de repeat goed werkt. En dat doet ie wel.
We gebruiken bubble sort voor de duidelijkheid.

code:

program plantsort (*<<UPDATED 14:45>>*);

uses crt;

type str42   = string [42];
     str55   = string [55];
     pplant  = ^tplant;
     tplant  = record
        nednaam : str42;
        wetnaam : str55;
        prev : pplant;
        next : pplant
     end;

var  nednaam    : str42;
     wetnaam    : str55;
     aantal  : byte;
     head      : pplant;
     phulp, ptemp : pplant;
     bestand    : text;

procedure bouw_lijst;

var tail : pplant;

Begin
  head := nil;
  assign (bestand, 'flora.dat');
  reset (bestand);
  while not eof (bestand)
  do begin
    readln (bestand, wetnaam, nednaam);
    (*while (nednaam [length (nednaam)] = ' ') do
    delete (nednaam, length (nednaam), 1);
    Ik weet niet wat dit deel van de code doet*)
    if (head = nil)
    then begin
     new (head);
     head^.prev := nil;
     tail := head;

    end else begin
     phulp:= tail;
     new (tail^.next);
     tail := tail^.next;
     tail^.prev := phulp;
    end;

   tail^.nednaam := nednaam;
   tail^.wetnaam := wetnaam;
   tail^.next := nil;
   writeln(nednaam,' ',wetnaam);
  end;
  close (bestand)
end;

Procedure bubblesort;
Begin
  phulp := head;
  phulp := phulp^.next;
  new(ptemp);
   repeat
    ptemp := phulp^.prev;
    if phulp^.nednaam > ptemp^.nednaam then
    begin
    phulp := phulp^.next;
    end;
    if phulp^.nednaam < ptemp^.nednaam then begin
    phulp^.prev^.prev := phulp^.prev;
    phulp^.prev^.next := phulp^.next;
    phulp^.prev := ptemp^.prev;
    phulp^.next := ptemp^.next;
(*  phulp^.prev^.nednaam := phulp^.nednaam;
    phulp^.prev^.wetnaam := phulp^.wetnaam;
    phulp^.nednaam := ptemp^.nednaam;
    phulp^.wetnaam := ptemp^.wetnaam;*)
    phulp := phulp^.next;
    end;
   until phulp^.next = nil;
   dispose(ptemp);
end;

procedure write_file;

begin
  assign (bestand, 'sorted.dat');
  rewrite (bestand);
  if (head <> nil) then phulp := head;
    while (phulp^.next <> nil) do begin
    writeln (bestand, phulp^.nednaam, phulp^.wetnaam);
    phulp := phulp^.next
    end;
    close (bestand);
end;


procedure ruimop;

var hulp, pweg : pplant;

begin
  hulp := head;
  if (hulp <> nil)
  then begin
    repeat
    pweg := hulp;
    hulp := hulp^.next;
    dispose (pweg)
    until (hulp = nil);
    head := nil
  end
end;


  (*HOOFDPROGRAMMA*)

begin
  clrscr;
  bouw_lijst;
  Write('Vul het aantal bubblesorts in: ');Readln(aantal);
  writeln (phulp^.nednaam);
  Repeat
    Bubblesort;
    aantal:= aantal - 1;
    writeln('Bubblesort wordt nog ',aantal,' keer uitgevoerd');
  Until aantal = 0;
  write_file;
  ruimop;
end.

[Zandweter]

Dank je Triple voor je verduidelijking...
Over mijn uitlatingen: Pascal is een prima prog.taal alleen vind ik het persoonlijk gewoon nog jammer dat wij deze procedures zo ver moeten uitwerken terwijl het om de denkwijze gaat, ze zijn tenslotte standaard tools binnen elke "modernere" programmeertaal
(ik doel hiermee op de singly-linked list de binary tree etc.)
Een MIS is pas echt leuk programmeren!!! toch?
toch bedankt voor de reacties.... ziet iemand toch nog ergens een probleem?

[TD-er]

als simpele test lijkt het me handig om een file met cijfers in te lezen (0 .. 9 dus) (test het ook met omgekeerde volgorde (!!))
zou je ook wat output van je programma kunnen geven?
Wat ik me op zich namelijk afvraag (heb heel kort naar de source gekeken) is waar head op geinitialiseerd is (pointer naar eerste item lijkt me meest logisch)

Ik kijk nog wel ff verder naar de source.

Verder vraag ik me af of je simpel weg kunt kijken of het eerder of later in het alfabet zit, door de ">" operator of is dat iets turbo pascal-erigs en hoe zit dat met A, B, a, b. wat is dan de alfabetische volgorde?

[Verwijderd]

als alternatief

zoeken met www.google.com op quicksort of straightsort algoritmes

kom je vast wel uit

enneuh pascal is een heel fijn gestructureerd taaltje

als je netjes wil programmeren is(was) pascal ideaal om het te leren

het is toch te idioot voor woorden dat een string en een integer opgeteld kan worden, ons aller vb doet er nie moeilijk over

[Triple]

Ja, het sorteer algoritme staat er al in, dat hoeven we dus niet op te zoeken. Nu gaat het er vooral om of er ergens een programmeer / denkfout in de code zit. Zou iemand daar een hint over kunnen geven?