Halaman

Sabtu, 11 Mei 2013

PASCAL - PERULANGAN

LAPORAN PRAKTIKUM
DINNI I.F
32112203

Pascal
perulangan

Langkah pertama buka aplikasi turbo pascal, kita akan disuguhkan dengan tampilan seperti ini;



Membuat kodingan program seperti ini;



LOGIKA :
·         Uses crt berfungsi untuk menghidupkan atau mengaktifkan perintah yang ada
·         Var artinya singkatan dari variable
·         I,j, a disini variable bertipe integer
·         Begin untuk memulai menjalankan program
·         Clrscr berfungsi untuk membersihkan layar
·         Ketik write dan masukkan angka agar outputnya terbaca masukkan angka, lalu ketik readln untuk memindahkan kursor
·         Begin untuk menjalankan program
·         For I := 1 to a do artinya dimulai dari 1 sampai seterusnya untuk melakukan proses looping
·         For j := 1 to i do artinya dimulai dari 1 sampai seterusnya untuk melakukan proses looping
·         Writeln * untuk  mengeluarkan output seperti * sesuai angka yang di masukan
·         Readln untuk memindahkan kursor kebawah
·         End; akhir pada looping
·         End untuk mengakhiri program

Setelah dibuat programnya lalu di jalankan. Masukan angkanya dan akan keluar output seperti ini;




***



PASCAL - RECORD



LAPORAN AKHIR
DINNI I.F
32112203
UNIVERSITAS GUNADARMA 

PASCAL
PROGRAM RECORD
Langkah pertama yaitu buka aplikasi turbo pascal, maka kita akan disuguhkan layar seperti ini ;



Lalu klik Option>>Environment>>Preferences

Maka akan tertampil seperti ini, lalu pilih 43/50 lines untuk baris lebih panjang>>Ok




Maka akan tertampil seperti ini ;
 Layar yang lebih panjang untuk membuat kodingan yang lebih banyak






Membuat kodingan program seperti ini ;



LOGIKA PROGRAM
*      Uses crt : untuk menghidupkan atau mengaktifkan perintah
*      Type mahasiswa variabel bertipe record
*      Untuk npm,nama,ket adalah variabel yang bertipe string
*      Untuk thnmasuk variabel yang bertipe integer
*      End; untuk mengakhiri program
*      Var adalah singkatan dari variabel
*      Mhs  : array[1..50] of mahasiswa adalah variabel yang mendeklarasikan sebuah array
*      X,y,z : integer adalah variabel yang bertipe integer
*      Begin untuk memulai program
*      Clrscr untuk membersihkan layar
*      Writeln(‘----‘) ;  hanya untuk tampilan pada outputnya saja
*      Writeln(‘ program record‘) ;  hanya untuk tampilan pada outputnya saja
*      Writeln(‘----‘) ;  hanya untuk tampilan pada outputnya saja
*      Write(‘banyaknya data mahasiswa yang akan dimasukkan’);  perintah pada output untuk menginput data atau untuk menuliskan output, dengan posisi cursor – penunjuk aktif, terletak pada akhir output yang ditampilkan pada baris yang sama.
*      Readln(x); untuk  membaca outputnya dan memindahkan kursor
*      Writeln;  digunakan untuk menampilkan tampilan perbaris, akan ganti baris untuk tampilan berikutnya.
*      For y := 1 to x do untuk melakukan proses looping dimulai dari satu
*      Begin untuk memulai proses pada looping
*      With mhs[y] do
*      Begin untuk memulai program
*      Write(‘ NPM mahasiswa : ‘); readln(NPM); write untuk memasukkan perintah pada output untuk menginput data, data disini untuk memasukkan npm. Readln juga digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris,
*      Write(‘nama mahasiswa :’); readln(nama); write untuk memasukkan perintah pada output untuk menginput data, data disini untuk memasukkan nama. Readln juga digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris,
*      Write(‘tahun mahasiswa :  ‘); readln(thnmasuk); write untuk memasukkan perintah pada output untuk menginput data, data disini untuk memasukkan tahun masuk. Readln juga digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris,
*      Writeln; untuk memindahkan kursor pada baris yang sama
*      End; untuk mengakhiri proses looping
*      End; untuk mengakhiri program
*      Clrscr untuk menghapus atau membersihkan layar
*      Writeln(‘ daftar nama mahasiswa ‘); untuk tampilan output pada layar
*      Writeln(‘-----‘); untuk tampilan output pada layar
*      Writeln(‘|no|npm|nama|tahun masuk|ket|’); untuk mencetak tampilan output dan garis lurus digunakan sebagai pemisah
*      Writeln(‘-----‘); untuk tampilan output pada layar
*      For y := 1 to x do untuk melakukan proses looping dimulai dari satu
*      Begin untuk memulai program
*      Gotoxy(1,y+5); write(‘|’); 
*      Gotoxy(3,y+5);write(‘|’);
*      With mhs[y]do With mhs [y] do dengan variabel y yaitu variabel mhs
*      Begin untuk memnulai program
*      Gotoxy(6,y+5);write(‘|’); untuk menuju koordinat 6,y+5 atau baris ke 6 dengan jarak 5 baris untuk jarak antar kolom dan  garis lurus untuk mencetak garis sebagai pemisah
*      Gotoxy(8,y+5); ); untuk menuju koordinat 8,y+5 atau baris ke 8 dengan jarak 5 baris untuk jarak antar kolom dan  garis lurus untuk mencetak garis sebagai pemisah
*      Write(npm) ;  perintah pada output untuk memasukkan npm
*      Gotoxy(18,y+5);write(‘|’); ); untuk menuju koordinat 18,y+5 atau baris ke 18 dengan jarak 5 baris untuk jarak antar kolom dan  garis lurus untuk mencetak garis sebagai pemisah
*      Write(nama); perintah pada output untuk memasukkan nama
*      Gotoxy(34,y+5);write(‘|’); ); untuk menuju koordinat 34,y+5 atau baris ke 34 dengan jarak 5 baris untuk jarak antar kolom dan  garis lurus untuk mencetak garis sebagai pemisah
*      Write(thn masuk); perintah pada output untuk memasukkan tahnu masuk
*      Gotoxy(52,y+5);write(‘|’); ); untuk menuju koordinat 52,y+5 atau baris ke 52 dengan jarak 5 baris untuk jarak antar kolom dan  garis lurus untuk mencetak garis sebagai pemisah
*      Z := 2013-thnmasuk;  z adalah hasil dari 2013 dikurang dengan tahun masuk
*      If z > 3 then ket := (‘senior’) else artinya jika z lebih besar 3 tahun maka keterangannya adalah senior jika tidak
*      Ket := (‘junior’); artinya keterangannya adalah junior
*      Write(ket); untuk memasukkan perintah keterangan
*      Gotoxy(62,y+5); write(‘|’)  Goto digunakan untuk memindahkan tata letak atau koordinat kursor baris 62 dengan jarak 5 baris antar kolom pada layar dan  tanda garis lurus digunakan sebagai garis pemisah
*      End; untuk mengakhiri proses looping
*      End; untuk mengkhiri program
*      Writeln; untuk memindahkan kursor pada baris yang sama
*      Writeln(‘-----‘); untuk tampilan output pada layar nya saja
*      Readln; untuk memindahkan kursor kebaris selanjutnya
*      End. Untuk menutup atau mengakhiri seluruh program


Setelah program dibuat, lalu dijalankan dengan Run atau Ctrl+F9
Maka akan tertampil seperti ini;


Masukkan jumlah data yang akan dimasukkan lalu [enter]


Masukkan npm [enter]
Masukkan nama [enter]
Masukkan tahun[enter]

Setelah memasukkan data yang dibutuhkan maka akan  tertampil output seperti ini;







***