Program w Pascalu - pytanie

Cadosinio OP · 01-03-2013 19:38

Mam napisać program który będzie za pomocą listy jednokierunkowej segregował podane słowa alfabetycznie i wypisywał je.
Nie mam pojęcia, gdzie tutaj jest błąd, ponieważ delphi nie wywala żadnych errorów, tylko po prostu się zamyka, jeśli ktoś mógłby pomóc, to byłbym wdzięczny. Na razie mam tylko 2 procedury, menu jest wzięte z innego programu.

Kod :

program pgrzast;

{$APPTYPE CONSOLE}

type
  _wsk = ^wpis;
  wpis = record
    slowo: string;
    dalej: _wsk;
    end;

function sprawdz(s1, s2:string):boolean;
var
  a:integer;
begin
  if ord(s1[1]) < ord(s2[1]) then result:= true
  else if ord(s1[1]) < ord(s2[1]) then result :=false
  else if ord(s1[1]) = ord(s2[1]) then
    result:=sprawdz(copy(s1,2,length(s1)),copy(s2,2,length(s2)))
end;

procedure Dodaj(var pocz: _wsk);
var
  e,tmp: _wsk;
begin
  new(e);
  writeln('Podaj slowo do wpisania:');
  readln(e^.slowo);
  if pocz = nil then
    begin
      e^.dalej:=pocz;
      pocz:=e;
    end
  else
    tmp:=pocz;
    while pocz <> nil do
      begin
        if Sprawdz(e^.slowo,pocz^.slowo) then tmp:=tmp^.dalej;
        pocz:=pocz^.dalej;
      end;
    e^.dalej:=tmp^.dalej;
    tmp^.dalej:=e;
end;//Dodaj

procedure PokazListe(Pocz: _wsk);
begin
     while Pocz<>nil do
          begin
          write(Pocz^.slowo,^i);
          Pocz:=Pocz^.dalej;
     end;
end;


//GLOWNY

var
pocz: _wsk;
slowo1,slowo2:string;
znak:char;

begin
Pocz:=nil;
repeat
      writeln('Lista jednokierunkowa');
      writeln('1 - pokaz cala Liste');
      writeln('2 - dodaj element do Listy');
      writeln('3 - zdejmij element z Listy');
      writeln('q - zakoncz program');
      readln(znak);
      case znak of
           '1': PokazListe(Pocz);
           '2': Dodaj(Pocz);

           'q': writeln('Do zobaczenia...');
           else
               write('Wybrales inny klawisz, nacisnij ENTER aby wrocic');
      end;
      readln;
until znak='q';
end.

Shaolineq · 03-03-2013 14:58

-nie potrzebujesz funkcji sprawdz, w pascalu mozna bezposrednio porownywac stringi np wyrazenie 'abcde' < 'ghijk' zwroci wartosc TRUE
- if pocz = nil then
begin
e^.dalej:=pocz;
pocz:=e;
end
to zadziala, ale jest nieodpowiednio zapisane, e^.dalej ma wskazywac na nila, a nie na pocz(w tym przypadku i tak pocz wskazuje na nila ale to chyba nie do konca swiadomie zrobiles)
-while pocz <> nil do
zmieniasz pocz, a on ma sie nie zmieniac

nie wiem czy cos jeszcze jest nie tak, nie sprawdzalem reszty

Kod :

program project1;
uses crt;
{$APPTYPE CONSOLE}

type
  _wsk = ^wpis;
  wpis = record
    slowo: string;
    dalej: _wsk;
    end;

{function sprawdz(s1, s2:string):boolean;
var
  a:integer;
begin
  if ord(s1[1]) < ord(s2[1]) then result:= true
  else if ord(s1[1]) < ord(s2[1]) then result :=false
  else if ord(s1[1]) = ord(s2[1]) then
    result:=sprawdz(copy(s1,2,length(s1)),copy(s2,2,length(s2)))
end; }

procedure Dodaj(var pocz: _wsk);
var
  e,tmp: _wsk;
begin
  new(e);
  writeln('Podaj slowo do wpisania:');
  readln(e^.slowo);
  writeln('slowo ktore wpisales to: "',e^.slowo,'"');
  if pocz = nil then
   begin
     pocz:=e;
     pocz^.dalej:=nil;
     //e^.dalej:=pocz;
     //pocz:=e;
   end
   else
   begin
    tmp:=pocz;
    if e^.slowo<tmp^.slowo then  //jesli slowo ma sie znalesc na pierwszym miejscu listy
      begin
        pocz:=e;
        pocz^.dalej:=tmp;
      end else   //jesli gdzies dalej
    while tmp^.dalej <> nil do
      begin
        if e^.slowo<tmp^.dalej^.slowo then //jesli nastepny element jest wiekszy od wstawianego
        begin
          e^.dalej:=tmp^.dalej;
          tmp^.dalej:=e;
        end else
        tmp:=tmp^.dalej;
      end;
    if e^.dalej=nil then //jesli 'e' sie nie zmienilo (nalezy wstawic element na ostatnie miejsce listy
    begin
         tmp^.dalej:=e;
    end;
   end;
end;//Dodaj

procedure PokazListe(tmp: _wsk);
begin
     if tmp=nil then writeln('nie ma listy') else
     while tmp<>nil do
          begin
          //writeln(tmp^.slowo,^i);  co to ^i ?
          Writeln(tmp^.slowo);
          tmp:=tmp^.dalej;
     end;
end;


//GLOWNY

var
pocz: _wsk;
slowo1,slowo2:string;
znak:char;

begin
Pocz:=nil;
repeat
      clrscr;
      writeln('Lista jednokierunkowa');
      writeln('1 - pokaz cala Liste');
      writeln('2 - dodaj element do Listy');
      writeln('3 - zdejmij element z Listy');
      writeln('q - zakoncz program');
      readln(znak);
      case znak of
           '1': PokazListe(Pocz);
           '2': Dodaj(Pocz);
           'q': writeln('Do zobaczenia...');
           else
               write('Wybrales inny klawisz, nacisnij ENTER aby wrocic');
      end;
      Writeln('nacisnij dowolny klawisz aby kontynuowac...');
      readkey;
until znak='q';
end.

Temat: Program w Pascalu - pytanie

Narzędzia tematu

Oceń ten temat

Program w Pascalu - pytanie

Informacje o temacie

Użytkownicy przeglądający temat

Podobne tematy

[Program] KeyFinder - Program do wczesnego wykrywania Keyloggerów!

[Program] Contibiator (Menadżer hotkeyów i ustawień)

[8.42+][Program] Kiro's Map Generator v0.0.1a

Nowy program selekcji fansite'ów

Zakładki

Zakładki

Zasady postowania