Program Pascal Mengurut Nilai (Dimensi 1 Array)
Program Mengurut Nilai Sesuai postingan sebelumnya, program kali ini hampir sama dengan program sebelumnya. Program ini hanya mengurutkan nilai dari nilai terkecil ke terbesar dan sebaliknya. Namun, program ini hanya mengurutkan nilai pada satu baris saja. Pengurutan nilai dilakukan dari Inputan nilai pertaman hingga inputan nilai terakhir. Langsung saja ke programnya : program Nilai_urutan; uses crt; var Nilai:array [1..15] of integer; a, b, c: integer; begin clrscr; for a:=1 to 15 do begin write ('Masukkan Nilai : '); readln (Nilai[a]); end; for b:= 1 to 15 do for a:= 1 to 15-b do if Nilai [a] > Nilai[a+1] then begin C:=Nilai [a]; Nilai[a] := Nilai[a+1]; Nilai[a+1] := C; end; writeln; for a:=1 to 15 do write (Nilai[a],' '); writeln; for a:=15 downto 1 do write (