Scribd
Unggah
6 tayangan5 halaman

Program Pengolahan Data Bilangan

Dokumen ini berisi serangkaian program yang ditujukan untuk melakukan operasi dasar pada sekumpulan bilangan, termasuk mencari jumlah, rata-rata, nilai minimum dan maksimum, serta mengurutkan data baik secara ascending maupun descending. Setiap program dimulai dengan membaca jumlah data, diikuti dengan pengolahan data dan pencetakan hasil. Selain itu, terdapat juga program untuk mencetak matriks berdasarkan ukuran yang ditentukan.

Diunggah oleh

ruangkubus.cube
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 DOC, PDF, TXT atau baca online di Scribd
6 tayangan5 halaman

Program Pengolahan Data Bilangan

Dokumen ini berisi serangkaian program yang ditujukan untuk melakukan operasi dasar pada sekumpulan bilangan, termasuk mencari jumlah, rata-rata, nilai minimum dan maksimum, serta mengurutkan data baik secara ascending maupun descending. Setiap program dimulai dengan membaca jumlah data, diikuti dengan pengolahan data dan pencetakan hasil. Selain itu, terdapat juga program untuk mencetak matriks berdasarkan ukuran yang ditentukan.

Diunggah oleh

ruangkubus.cube
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 DOC, PDF, TXT atau baca online di Scribd

Buatlah program-program berikut ini, dan jalankan.

Perhatikan hasil yang tampil di


layar, maka Anda akan mengerti logika dari program-program tersebut.

MENCARI JUMLAH DARI N BUAH BILANGAN :

Cls
Data 5
Data 5,4,3,6,2
Read N
For i = 1 TO N
Read X
? "Data ke";i;” adalah ";X
Jumlah=Jumlah+X
Next i
Print Using "Jumlah data = ###";Jumlah
END

MENCARI NILAI RATA-RATA DARI N BUAH BILANGAN :

Cls
Data 5
Data 5,4,3,6,2
Read N
For i = 1 TO N
Read X
? using "Data ke # adalah #";i;X
Jumlah=Jumlah+X
Next i
RataRata=Jumlah/N
Print "Harga rata-rata = ";RataRata
END
MENCARI NILAI MINIMUM DAN MAKSIMUM DARI N BILANGAN

Cls
Data 5
Data 5,4,3,6,2
Read N
For i = 1 TO N
Read X(i)
? using "Data ke # adalah #";i;X(i)
Next i

Maks=X(1):Min=X(1)
For i = 1 to N
If X(i)<Min Then Min=X(i)
If X(i)>Maks Then Maks=X(i)
Next i

Print using "Data Terkecil adalah ##";Min


Print using "Data Terbesar adalah ##";Maks
END
MENGURUTKAN DATA DARI DATA TERKECIL SAMPAI DATA TERBESAR (ASCENDING)

Cls
Data 5
Data 5,4,3,6,2

'Pembacaan dan pencetakan data


? "Data sebelum diurutkan :"
Read N
For i = 1 TO N
Read X(i)
? using "Data ke # adalah #";i;X(i)
Next i

'awal proses pengurutan data


For i = 1 to N-1
For j = i+1 to N
If X(i) > X(j) then
Dummy=X(i)
X(i)=X(j)
X(j)=Dummy
End If
Next j
Next i
'akhir proses pengurutan data

'pencetakan data hasil pengurutan


?
? "Data setelah diurutkan :"
For i = 1 TO N
? using "Data ke # adalah #";i;X(i)
Next i
END

MENGURUTKAN DATA DARI DATA TERBESAR SAMPAI DATA TERKECIL


(DESCENDING)
Cls
Data 5
Data 5,4,3,6,2

'Pembacaan dan pencetakan data


? "Data sebelum diurutkan :"
Read N
For i = 1 TO N
Read X(i)
? using "Data ke # adalah #";i;X(i)
Next i

'awal proses pengurutan data


For i = 1 to N-1
For j = i+1 to N
If X(i) < X(j) then
Dummy=X(i)
X(i)=X(j)
X(j)=Dummy
End If
Next j
Next I
'akhir proses pengurutan data

'pencetakan data hasil pengurutan


?
? "Data setelah diurutkan :"
For i = 1 TO N
? using "Data ke # adalah #";i;X(i)
Next I
END
MENCETAK MATRIKS :

Cls
Data 3,4
Data 5,4,8,3,2,6,4,7,3,9,5,7

'Membaca ukuran matriks (M x N)


Read M
Read N

'Membaca Data Matriks


For i=1 to M
For j=1 to N
Read X(i,j)
Next j
Next i

'Mencetak Matriks
For i=1 to M
For j=1 to N
Print X(i,j);
Next j
Print
Next i

END

Anda mungkin juga menyukai