Program Menjumlahkan Pecahan

Program Pecahan;
Uses Wincrt;
Var pmb,pny : array [1..10] of integer;
i,j,n,t1,t2 : integer;
Begin
Writeln('Program Pecahan');
Writeln('===============');
Writeln;
Write('Jumlah Data Pecahan: ');Readln(n);
Writeln;
For i := 1 to n do
Begin
Write('Pembilang ke-',i,' : ');Readln(pmb[i]);
Write('Penyebut ke-',i,' : ');Readln(pny[i]);
End;
Writeln;
Writeln('Pecahan Yang Di Masukkan:');
For i := 1 to n do
Writeln(pmb[i],'/',pny[i]);
For i := 1 to n-1 do
For j := i+1 to n do
Begin
if ((pmb[i]/pny[i])>(pmb[j]/pny[j])) then

Begin
t1:=pmb[i];
t2:=pny[i];
pmb[i]:=pmb[j];
pny[i]:=pny[j];
pmb[j]:=t1;
pny[j]:=t2;
End;
End;
Writeln;
Writeln('Hasilnya: ');
For i := 1 to n do
Writeln(pmb[i],'/',pny[i]);
End.

Output:

Related Articel:

Turbo Pascal

• [Turbo Pascal] Pengurutan Bilangan
• [Turbo Pascal] Menghitung Bilangan Ganjil dan Genap
• [Turbo Pascal] Perulangan Dengan Repeat Until
• [Turbo Pascal] Perbedaan Char dan String
• [Turbo Pascal] Program Pencarian Indeks Bilangan
• [Turbo Pascal] Program dengan menggunakan menu pilihan
• [Turbo Pascal] Program Menghitung Tahun Kabisat dan Non-Kabisat
• [Turbo Pascal] Menghitung Nilai Rata-rata dengan While..Do
• [Turbo Pascal] Program Sederhana Menghitung Gaji Pegawai
• [Turbo Pascal] Contoh sederhana penggunaan FOR TO DO
• [Turbo Pascal] Contoh Sederhana Penggunaan Case Of
• [Turbo Pascal] Program Data Mahasiswa dengan Type Data Terstruktur
• [Turbo Pascal] Program Kasir
• [Turbo Pascal] Menghitung banyaknya huruf Vokal
• [Turbo Pascal] Program Segitiga Pascal
• [Turbo Pascal] Input data yang tidak sama
• [Turbo Pascal] Program KRS Mahasiswa
• [Turbo Pascal] Menghitung huruf
• [Turbo Pascal] Program membaca nilai berpasangan
• [Turbo Pascal] Contoh Prosedur dengan Parameter Variabel
• [Turbo Pascal] Mencari Pangkat Dan Faktorial
• [Turbo Pascal] Mencari Nilai Minimal Dengan Array
• [Turbo Pascal] Mencari Nilai Maksimal Dengan Array
• [Turbo Pascal] Mencari Modus Dari Bilangan
• [Turbo Pascal] Menentukan Ganjil & Genap

Posted in: Turbo Pascal