Posts

Program Pascal Mengurut Nilai (Dimensi 1 Array)

Image
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 (

Program Pascal Mengurut Nilai (Dimensi 2 array)

Image
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

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       

Program Pascal Transfer Pulsa

Image
Program Transfer Pulsa        Program kali ini, saya membuat sebuah program sederhana yaitu transfer pulsa. program ini bisa dijadikan simulasi untuk melakukan transfer pulsa ke sebuah nomor. No User dan Jumlah pulsa user telah di tentukan dalam program terlebih dahulu, namun No dan jumlah pulsa ini masih dapat diubah sesuai keinginan user. Postingan berikutnya saya akan membuat program yang semua sub programnya adalah procedure deh biar adil.        Dalam program ini, semua sub program merupakan function. yah hitung-hitung teman-teman sekalian belajar gimana sih, cara menggunakan function. Function pada program ini saya menggunakan berbagai macam function, dari function tanpa parameter, parameter input, parameter output dan juga function passing by reference dan value. Nah dibawah ini listing programnya : program P7; uses crt; var b,d, pulsa : longint; f,g,a : integer; MyNomor,c : string; pilih:array[1..3] of integer; function menu: string;

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.

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