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
End.