Bubble Sort

xiaoxiao2021-03-05  24

Program bubble_sort; // Bubbling Sorting const n = 10; var A: array [1..n] of integer; t, i, j: integer; flag: boolean; begin write ('Enter 10 integers:'); For i: = 1 to n do read (a [i]); readln; writeln; i: = 1; Repeat flag: = true; for j: = 1 to Ni DO if a [j]> a [j 1 ] THEN BEGIN T: = A [J]; A [J]: = a [j 1]; A [J 1]: = T; flag: = false end; i: = i 1; until flag; Write ('Output Sedense:'); for i: = 1 to N DO WRITE (A [I]: 3); Writeln; Readln; End. //************* **************************************** //

Unit unit1;

Interface

Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls;

TYPE TFORM1 = Class (TFORM) Button1: TButton; Edit1: Tedit; Edit2: Tedit; Edit3: Tedit; Edit4: Tedit; Edit5: Tedit; Edit6: Tedit; Tedit; Tedit; Tedit; Tedit; Tedit; Label1: TLABEL; Label2: TLABEL; Procedure Button1Click (Sender: TOBJECT); private {private declarations} end;

Var Form1: TFORM1;

IMPLEMentation

{$ R * .dfm}

Procedure TForm1.Button1Click (Sender: Tobject); Var Temparray: Array [0..9] of integer; i, j, temp: integer; s: string; begin temparray [0]: = start (edit1.text); TemParray [1]: = start (edit2.text); Temparray [2]: = strt (edit3.text); Temparray [3]: = start (edit4.text); Temparray [4]: ​​= start (edit5.text) Temparray [5]: = start (edit6.text); Temparray [6]: = start (edit7.text); Temparray [7]: = start (edit8.text); Temparray [8]: = start (Edit9. TEXT); TEMPARRAY [9]: = start (edit10.text); i: = 0; while i Temparray [i 1] Then Begin Temp: = Temparray [i ]; Temparray [i]: = Temparray [i 1]; Temparray [i 1]: = Temp; i: = 0; ELSE I: = i 1; end; s: = '; for J: = 0 to 9 do s: = s INTOSTR (Temparray [J]) ''; label2.caption: = s; end;

End.

转载请注明原文地址:https://www.9cbs.com/read-37716.html

New Post(0)