Program Pascal Mengurut Nilai (Dimensi 2 array)

Program Mengurut Nilai

       Sedikit penjelasan tentang program yang kali ini kita pelajari. Program ini akan mengurutkan nilai terbesar ke terkecil dan dari nilai terkecil ke terbesar. Namun program kali ini pengurutannya dilakukan dari baris pertama kolom pertama hingga kolom ketiga kemudian baris kedua dstnya.
Nanti deh saya bikin pengurutan nilai dimensi 1 nya biar jadi bahan pembelajaran juga. Yuk langsung saja ke listing programnya :



uses crt;
var
 Nilai : array [1..5, 1..3] of integer;
 a, b, c,d, f: integer;

begin
clrscr;
for a:= 1 to 5 do
begin
 for b:= 1 to 3 do
  begin
   write ('Masukkan Nilai ',a,',',b,' : '); readln(Nilai [a,b]);
  end;
end;

for c:= 1 to 5 do
 for d:= 1 to 3 do
  begin
   for a:= 1 to 6-c do
   begin
    for b:= 1 to 3-d do
    if Nilai[a,b] > Nilai[a,b+1] then
     begin
      f:= Nilai[a,b];
      Nilai[a,b]:= Nilai[a,b+1];
      Nilai[a,b+1]:= f;
     end;
    end;
    end;
  for a:= 1 to 5 do
  begin
   for b:= 1 to 3 do
    write (Nilai[a,b],' ');
    writeln;
  end; writeln;
   for a:= 5 downto 1 do
  begin
    for b:= 3 downto 1 do
     write (Nilai[a,b],' ');
     writeln;
  end;
readln;
end.



Comments

Post a Comment

Popular posts from this blog

Program Pascal Penjualan Tiket

Image
Program Penjualan Tiket Bioskop         Nah sesuai janji saya, kali ini saya membuat sebuah program yang berisikan sub program procedure dari awal hingga akhir program tentunya, seperti program sebelumnya. Kali ini program tentang penjualan tiket bioskop. Seperti halnya program sebelumnya, kali ini saya memakai procedure tanpa parameter, parameter input dan parameter output. oh iya dalam program ini saya juga menggunakan tipe data array yah, namun array ini sebenarnya sih bisa diganti dengan variabel biasa sih. hitung-hitunglah teman-teman belajar procedure dan array sekaligus juga. Nah dibawah ini listing programnya :  program P6; uses crt; var  Nama : string;  a,b,c : longint;  ulang : char;  j: integer;  film:array[1..4] of longint; procedure Menu;           begin           writeln ('Daftar Film Tayang');           writeln ('1.     Jumanji : Welcome to the Jungle      = Rp 50.000');           writeln ('2.     Insidious : The Last Key       
Read more

Program Pascal Data Mahasiswa

Image
Program Data Mahasiswa       Sebelum menuju ke program, saya menjelaskan sedikit tentang program ini. Program ini merupakan program yang mana user akan menginput data mahasiswa kemudian akan disimpan dan ditampilkan dalam bentuk tabel sederhana.        Untuk membuka program sebaiknya menggunakan Turbopascal , karena jika teman-teman membuka program dalam freepascal maka akan terdapat kesalahan output tabelnya. Saya juga sih kurang tau kenapa program ini gak berjalan baik dalam freepascal , maklumlah belum terlalu paham sih tentang pascal. program Input_data; uses crt; type     mhs= record     nama, alamat : string [11];     fakultas, jurusan : string[9];     nim, semester, ttl : integer;     th_msk : longint;     end; const      z = #0;   c = #180; e =#192;  g=#194; m=#196; k=#217;      b = #179; d = #191; f =#193;  h=#195; j=#197; l=#218; var    nama, alamat : string [11];    fakultas, jurusan, tempat : string [9];    nim, semester, ttl, a,i,n, pilih : int
Read more

Program Pascal Piramida Bintang

Image
Program Piramida Bintang       Program kali ini, saya membuat piramida bintang. Program ini menggunakan for to do sebagai pengulangan (looping) program. Sedikit saran, untuk program kali ini dibutukan pemahaman yang agak rumit menurut saya sendiri, karena setiap for to do dalam program akan mempengaruhi for to do program yang lain. Jadi, teman-teman harus mencermati isi setiap program kali ini. Nah berikut listingnya :   program Piramid; uses crt; var    a,b,c,d : integer; begin clrscr;         a:= 5;             for b:=1 to a do              begin               for c:= a downto b do                write (' ');                 for d := 1 to b+b-1 do                  write ('*');                  writeln;              end; readln; end.
Read more