Scribd
Unggah
12 tayangan2 halaman

Implementasi Bubble Sort di Pascal

Dokumen tersebut merupakan contoh kode program Pascal untuk mengimplementasikan metode sorting data menggunakan array, record, prosedur, perulangan dan pemilihan. Program tersebut dapat menginput, mengurutkan dan menampilkan data berupa nama dan nilai menggunakan algoritma bubble sort.

Diunggah oleh

Thomas Ogenatan
Hak Cipta
© All Rights Reserved
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOCX, PDF, TXT atau baca online di Scribd
12 tayangan2 halaman

Implementasi Bubble Sort di Pascal

Dokumen tersebut merupakan contoh kode program Pascal untuk mengimplementasikan metode sorting data menggunakan array, record, prosedur, perulangan dan pemilihan. Program tersebut dapat menginput, mengurutkan dan menampilkan data berupa nama dan nilai menggunakan algoritma bubble sort.

Diunggah oleh

Thomas Ogenatan
Hak Cipta
© All Rights Reserved
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOCX, PDF, TXT atau baca online di Scribd

Nama : Thomas Ogenatan

NPM : 202255201022
Matkul : Steruktur Data

A. Pascal yang mengimplementasikan metode sorting dengan menggunakan array, record,


prosedur, perulangan, dan pemilihan. Berikut adalah contoh kode yang saya buat:

a. Code Pogram
program Sorting;
uses crt;
type
Data = record
nama: string;
nilai: integer;
end;
var
arr: array[1..10] of Data;
i, j, n: integer;
temp: Data;
procedure InputData;
begin
writeln('Masukkan jumlah data: '); readln(n);
writeln('Masukkan data berupa nama dan nilai: ');
for i := 1 to n do
begin
write('Data ke-', i, ': ');
readln(arr[i].nama, arr[i].nilai);
end;
end;
procedure OutputData;
begin
writeln('Data yang telah diurutkan: ');
for i := 1 to n do
begin
writeln('Data ke-', i, ': ', arr[i].nama, ' ', arr[i].nilai);
end;
end;
procedure BubbleSort;
begin
for i := 1 to n - 1 do
for j := i + 1 to n do
if arr[i].nilai > arr[j].nilai then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
begin
clrscr;
InputData;
BubbleSort;
OutputData;
readln;
end.
b. SS Program

Anda mungkin juga menyukai