Program Do Procedury Sortowania

0

Witam musze dopisać program do procedury ale zawsze wyskakuje mi błąd przy kompilacji dlatego prosze o napisanie programu który ją wywoła. Zadanie : Danych jest n miast i ich liczb ludności. Posortować te miasta nie malejąco względem liczby ludności (sortowanie bąbelkowe)
kod procedury jest tylko jak go wywołać??

Type
miasto=record;
nazwa:string;
ludnosc:integer;
end;

tab=arrray[1..50]of miasta;

Procedure Sort (var z:tab  n:integer);
var 
k,b:integer;
rob:miasta;

begin
for k:=1 to n-1 do
for b:=1 to n-k do
if z[b].ludnosc>z[b+1].ludnosc then

begin
rob:=z[b];
z[b]:=z[b+1];
z[b+1]=rob;
end;
end;
0

Witam musze dopisać program do procedury ale zawsze wyskakuje mi błąd przy kompilacji dlatego prosze o napisanie programu który ją wywoła.

A mógłbyś to napisać jeszcze raz, tylko spokojnie?

miasto=record;
tab=arrray[1..50]of miasta;
Procedure Sort (var z:tab  n:integer);

To nie ma prawa się skompilować...

Poza tym, jakie błędy?

0

kod procedury jest tylko jak go wywołać??

hmmm..

Procedure Sort (var z:tab  n:integer);

pierwszy parametr to tablica do sortowania, potem brakuje średnika, a drugi parametr to zapewne ilość elementów w tablicy, więc:

Sort(tablicaMiast, ileMiast);

ilość miast trzeba podać, bo tablica tab ma na sztywno 50 elementów, a nie chcemy sortować pustych pozycji na końcu tablicy w przypadku gdy miast jest mniej niż 50.

0

tak
miasto= record
tu nie ma srednika
Procedure SOrt (var z : tab ; n:integer);

tu srednik

ale głównie to nie o te błędy mi chodzi, przepisywałem to z tablicy i nie zdążyłem przepisać programu głównego (a procedure zdążyłem :) , pisałem ją uważnie i kod na pewno tak wyglądał) dlatego prosiłbym o napisanie do tej procedury program żebym mógł go przeanalizować.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0