[PASCAL] Sortowanie w pliku .dat

[Kaburagi 0]

Witam, zrobiłem sobie program na bazę danych (jest mi potrzebny), ale nie wychodzi mi sortowanie (po nazwiskach) w owym pliku.

Użyłem metody bąbelkowej, bo jest prosta i chyba zrozumiała dla każdego, ale przy kompilacji, program krzyczy "type missmatch" w procedurze "sort".

 

Problem w tym, że na widać jak na tacy, że obydwie zmienne są stringami, stąd moje niezrozumienie całej tej sytuacji.

 

Czy moglibyście wskazać błąd i pomóc w jego rozwiązaniu?

 

Oto kod mojego programu:

 

program
      baza_danych;
uses
   crt,dos;
type
   osoba=record
   nazwisko,t:string[20];
   wiek:integer;
   end;
var
  plik: file of osoba;
  os:osoba;
  test:boolean;
  l:integer;

function menu:char;
var
  z:char;
  test:boolean;
begin
    repeat
    clrscr;
    writeln('[W] Zapisywanie elementow do pliku');
    writeln('[E] Wyswietlanie na ekranie');
    writeln('[s] Sortowanie');
    writeln('[D] Kasowanie');
    writeln('[K] Koniec');
    z:=upcase(readkey);
    if (z='W') or (z='K') or (z='E') or (z='D') then test:=true
                             else test:=false;
    until test;
menu:=z;
end;

procedure zapisz;
var
  wiek1:string[10];
  poz:integer;
  znak:char;
begin
    if fsearch('dane.dat','')='' then rewrite(plik)
                                 else
                                 begin
                                 reset(plik);
                                 seek(plik,filesize(plik));
                                 end;
    repeat
    with os do
         begin
              writeln('osoba ',filepos(plik));
              write('podaj nazwisko: '); readln(nazwisko);

              repeat
                    write('podaj wiek: '); readln(wiek1);
                    val(wiek1,wiek,poz);
                    if (wiek<=0) or (wiek>=200) or (poz<>0) then
                    begin
                         gotoxy(1,wherey-1);
                         delline;
                    end;
              until (wiek>0) and (wiek<200) and (poz=0);
         end;
             write(plik,os);
             l:=l+1;
             write('Esc konczy zapisywanie inny klawisz kontynuuje');
             znak:=readkey;
             gotoxy(1,wherey); delline;
             until znak=#27;
             close(plik);
end; {---------------------------------------koniec zapisz}

procedure wypisz;
begin
    clrscr;
    if fsearch('dane.dat','')='' then begin
                                           writeln('file not  found');
                                           delay(5000);
                                           exit;
                                           end;
writeln('----------zawartosc pliku DANE.DAT----------');
reset(plik);
while not eof(plik) do
begin
read(plik, os);
with os do
writeln(nazwisko:22,wiek:5);
if (filepos(plik)+1) mod 23 =0 then begin
                                     write('nacisnij neter');
                                     readln;
                                     clrscr;
                                     end;
end;  {-------------------------------------koniec wypisz}
writeln('nacisnij dowolny klawisz');
readkey;
close(plik);
end;

procedure sort;
var
  i,j:integer;
begin
    clrscr;
    reset(plik);
    read(plik,os);
    for i:=1 to l-1 do
        if os.nazwisko[i]>os.nazwisko[i+1] then
	with os do
           begin
                t:=nazwisko[i];
                nazwisko[i]:=nazwisko[i+1];
                nazwisko[i+1]:=t;
           end;
        writeln('Sortowanie zakonczone');
        readln;
end;


begin
    clrscr;
    assign(plik,'dane.dat');
    test:=false;
    repeat
          case menu of
               'W':zapisz;
               'E':wypisz;
               'S':sort;
               'D':erase(plik);
               'K':test:=true;
          end;
    until test;
end.

[januzi 24]

w której linii?

[Kaburagi 0]

w której linii?

procedure sort;
var
  i,j:integer;
begin
    clrscr;
    reset(plik);
    read(plik,os);
    for i:=1 to l-1 do
        if os.nazwisko[i]>os.nazwisko[i+1] then
	with os do
           begin
                t:=nazwisko[i];
                nazwisko[i]:=nazwisko[i+1];
                nazwisko[i+1]:=t; {-----------------------------------------------------w tej linii}
           end;
        writeln('Sortowanie zakonczone');
        readln;
end;

[januzi 24]

wyrzuć ograniczenie ze stringa i spróbuj jeszcze raz

[Kaburagi 0]

Nie pomaga...

Pierwsza moja myśl to może błąd gdzieś wyżej w kodzie, ale jak usuwam to jedną linijkę to reszta się kompiluje i działa... Nie śmiga tylko sortowanie... To zrozumiałe, bo bez tej jednej linijki cała procedura sortująca nie ma sensu.

 

Ale z linijką źle, bez też nie dobrze.

[Kaczor 0]

                t:=nazwisko[i];
                nazwisko[i]:=nazwisko[i+1];
                nazwisko[i+1]:=t; {-----------------------------------------------------w tej linii}

 

A nie jest przypadkiem tak że nazwisko[i+1] jest char-em (no przynajmniej w C by tak było) a chcesz do niego przypisać t - czyli string 20 elementowy?

[Kaburagi 0]

Kaczor nie.

Zmienan t w tym momencie jest pusta. Chodzi o to by przechowała wartosć tylko i wyłącznie zawartość zmiennej os.nazwisko, później os.nazwisko zamienia się pozycjami z os.nazisko[i+1] i zmienna tymczasowa staje się kolejnym nazwiskiem, tak by trwał proces ciągły, do zakończenia się elementów.

[Kaczor 0]

Kaczor nie.

Zmienan t w tym momencie jest pusta. Chodzi o to by przechowała wartosć tylko i wyłącznie zawartość zmiennej os.nazwisko, później os.nazwisko zamienia się pozycjami z os.nazisko[i+1] i zmienna tymczasowa staje się kolejnym nazwiskiem, tak by trwał proces ciągły, do zakończenia się elementów.

Ale nie kłóci się to z tym:

nazwisko,t:string[20];

?

Jeśli nie to już się nie wtrącam - na pascalu się praktycznie nie znam.

[Kaburagi 0]

Nie, nie powinno.

Na początku zmienna t, była poza recordami czyli było coś takiego:

 

nazwisko:string[20]
.
.
.
.
.
var
   t:string

[januzi 24]

rzecz w tym, że osoba to tak naprawdę zestaw osób (a nie tak jak powinno być pojedynczy element)

 

 

dodaj writeln( t ) ; i na razie nie dawaj linijki z podstawieniem; co się pokazuje na ekranie ?

[Kaburagi 0]

Nie pokazuje się nic.

Ale ja nie podstawiam całej osoby, ale jeden indeks.. a to już powienien być jeden element nie sądzisz?

 

 

gdy mamy tablicę

 

type
   os=array[1..10] of string;

 

to każdy jeden indeks (w tym przypadku od 1 do 10) to odrębne słowo, a nie zestaw słów.

[januzi 24]

osoba {

imie, nazwisko, wiek, itd ;

}

 

osoby: array( 20 ) of osoba ;

 

a potem, żeby nie było ograniczeń w ilości:

osoba {

imie, nazwisko, wiek, itd ;

poprzednia, następna: ^osoba ;

}

 

osoby: ^osoba ;

[Kaburagi 0]

Wybacz, nie rozumiem Twojego kodu.

 

Chodzi o to by rekordy przepisać do tablicy?

[januzi 24]

myśl pseudokodem, łatwiej będzie zmieniać potem na właściwy język

 

tak, osoba to osoba, osoby to tablica osób

[Kaburagi 0]

Niestety w takim przypadku tablica gryzie się z recordami...

[januzi 24]

nie

 

http://www.hkbu.edu.hk/~bba_ism/ISM2110/pas053.htm

[Kaburagi 0]

Otóż moim zdaniem też poiwnno chodzić tak, jak podane jest na tej stronie...

Ale gdy tak robię to mam invalid qualifier.

[Kaburagi 0]

Nie wiem, może napisałbyś tą procedurę sortowania opartą o resztę mojego programu..

Bo albo ja coś robię źle (i raczej to jest to), lub pascal dostał wariacji...

[Kaburagi 0]

Ok, rozkminiłem ;D

Dzięki za pomoc Januzi

Oby więcej było takich głów jak Twoja