Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TForm1.Button5Click(Sender: TObject);
- var k,r,n:integer; s:string;
- tmp:book;
- Sort: Boolean;
- begin
- Memo1.Lines.Add('Отсортированный массив: ');
- Sort:=True;
- n:=0;
- while Sort do
- begin
- Sort:=False;
- for r:=1 to high(B)-1-n do
- if B[r].author>B[r+1].author then
- begin
- Sort:=True;
- tmp:=B[r]; B[r]:=B[r+1]; B[r+1]:=tmp;
- end;
- n:=n+1;
- end;
- for k:=1 to i-1 do
- begin
- s:=inttostr(k)+'.' + B[k].author+' '+B[k].name+' '+B[k].number+' '+B[k].publisher+' '+B[k].Num_pages+' '+B[k].price;
- Memo1.Lines.Add(s);
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement