Chybějící procedura – Delphi – Fórum – Programujte.com

Předem se omlouvám že tady zabírám se svým kódem tolik místa a určitě tady je víc věcí než je třeba, ale nechtěl jsem, aby snad něco víc bylo vypuštěný.Samotný program je ještě delší. Tak ještě jednou pardon, ale dělal jsem ten program už dýl a mám tam vypuštěnou proceduru pis a nemůžu za boha přijít na to, co tam mělo být. Už tenkrát mi ten program dělal problémy. Nevěděli byste, jaké náležitosti by měla mít procedura pis?? Děkuju za radu a omlouvám se za mojí neschopnost.

CONST p1=500000; delkaradku=80;

TYPE prvek=integer;

pole=array[0..p1] of prvek;



var

Form1: TForm1; B:pole; pc:integer;



implementation

PROCEDURE BUBBLESORT(var a:array of prvek;n:integer);

var i,j:integer;

x:prvek;

begin for i:=1 to n-1 do

for j:=1 to n-i do

if a[j]>a[j+1] then begin x:=a[j]; a[j]:=a[j+1]; a[j+1]:=x end

end; {bubblesort}



PROCEDURE VYTVORRAND(var a:array of prvek;n:integer);

var i:integer;

begin randomize; for i:=1 to n do a[i]:=random(2*n)+1 ;

end;



procedure pis(var a:string);

begin

writeln(a)

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

pc:=spinedit1.value;

vytvorrand(b,pc); listbox1.items.clear; listbox2.items.clear;

pis(b,pc,listbox1);

case radiogroup1.ItemIndex of

0 : bubblesort(b,pc);

end;

pis(b,pc,listbox2)

end;

Když tam přidám

procedure pis(var a: Array of prvek; n: Integer; List: TListBox);

var

  i: Integer;

begin

  for i:=0 to n do

    List.Items.Add(IntToStr(a[i]));

end;

Celé jsem to nestudoval, ale:

PROCEDURE BUBBLESORT(var a:array of prvek;n:integer);

var i,j:integer;

x:prvek;

begin 

 for i:=0 to n-1 do // tady jsi zacinal od 1, ale pole indexujes od 0

   for j:=0 to n-i do

    if a[j]>a[j+1] then begin 

        x:=a[j]; 

        a[j]:=a[j+1]; 

        a[j+1]:=x;

   end;

end; {bubblesort}