LAPORAN AKHIR PRAKTIKUM (Labsi)

LAPORAN AKHIR PRAKTIKUM

NAMA                                    : Febri Yuliana Pramono

NPM                                       : 12117284

KELAS                                   : 1KA31

MATERI PRAKTIKUM       : Pascal

TANGGAL PRAKTIKUM   : 14 Mei 2018

ASISTEN BARIS                  :

KETUA                                  : Risma

                                                                       

                                                                                                            PARAF ASISTEN

                                                                                                    (...........................................)

LABORATORIUM SISTEM INFORMASI

UNIVERSITAS GUNADARMA

2017/2018

Berikut gambar code:

PENJELASAN :

Program labsi;

Uses crt;

            jika statement ini di tulis, programmer bisa menggunakan perintah clrscr;

var atau variabel

Var pil:integer;

       Nama,x,n,kelas,ket,kete:string;

            Pendeklarasian variable Nama,x,n,kelas,ket,kete tipe string

       Nilai,i,a,b,t,hasil.sisa:integer;

            Pendeklarasian variable Nilai,i,a,b,t,hasil.sisa tipe integer

       K:char;

            Pendeklarasian variable k tipe char

Begin

            Awal program yang akan dijalankan

Clrscr;

            Untuk membersihkan layar

Writeln(‘MENU’);

            Untuk menulis ‘MENU’ dan membuat baris baru

Writeln(‘1. LULUS/GAGAL’);

            Untuk menulis ‘1. LULUS/GAGAL’ dan membuat baris baru

Writeln(‘2. PIRAMIDA BINTANG’);

            Untuk menulis ‘2. PIRAMIDA BINTANG’ dan membuat baris baru

Writeln(‘3. HITUNG GANJIL/GENAP’);

            Unruk menulis ‘3. HITUNG GANJIL/GENAP’ dan membuat baris baru

Writeln(‘4. EXIT’);

            Untuk menulis ‘4. EXIT’ dan membuat baris baru

Write(‘Masukan Pilihan Anda(1-4): ‘);readln (pil);

            Untuk menulis ‘Masukan Pilihan Anda(1-4)’ dan variable

CASE 1

Membuat penyataan LULUS/GAGAL

Code:

If pil=1 then begin

            Untuk menampilkan pilihan yang dimasukan (1) dan memulai code case 1

Clrscr

            Untuk membersihkan layar

Writeln;

Membuat garis baru

Write(‘Nama   : ‘); readln(nama);

Write Untuk menulis  input an Nama dan readln untuk membaca nilai string dengan var (nama)

Write(‘Kelas    :’);readln(kelas);

            Write Untuk menulis input an kelas dan readln untuk membaca nilai string dengan var(kelas)

Write(‘Nilai     :’);readln(nilai);

            Write untuk menulis input an nilai dan readln untuk membaca nilai integer dengan var(nilai)

If (nilai>75) then ket:=’LULUS’

Else ket:=’GAGAL’;

if untuk jika nilai>75 maka nilai var ket=’LULUS’. Dan else jika selain nilai>75 maka ket:=’GAGAL’;

Writeln(‘ket     :’,ket);

            Untuk menyatakan hasil dari var ket diantaranya LULUS/GAGAL

Readln;

            untuk menampilkan variabel yang berada pada writeln di atas, jika tidak memakai readln output tidak akan keluar

Write(‘Ulang(y/n)?’);readln(x);

            Untuk input var x  y/n?

If x=’y’ then goto z;

            yang jika bernilai y maka akan kembali ke menu awal, jika tidak maka berakhir.

End;

            Akhir case 1

OUTPUT CASE 1

CASE 2

Membuat piramida bintang

Code

If pil=2 then begin

            Untuk menampilkan pilihan yang dimasukan (2) dan memulai code case 2

Writeln(‘PIRAMIDA BINTANG’);

            Untuk menulis ‘PIRAMIDA BINTANG’ dan pindah ke baris bawah

For a:=1 to 5 do Begin

For b:=1 to a do begin

Write (‘*’);

            Membuat looping dengan ouput berupa bintang

End;

Writeln;

Menulis kembali dengan spasi ke bawah

End;

Write(‘Ulang(y/n)?’);readln(x);

            Untuk input var x  y/n?

If x=’y’ then goto z;

            yang jika bernilai y maka akan kembali ke menu awal, jika tidak maka berakhir.

End;

            Akhir case 2

OUPUT CASE 2      

CASE 3

Membuat penyataan hasil tambah dua angka dengan hasil genap atau ganjil

Code:

if

if pil=3 then begin

writeln(‘HITUNG GANJIL/GENAP’);

            Menulis ‘HITUNG GANJIL/GENAP’ dan pindah ke baris bawah

writeln;

            membaca line pindah ke baris bawah

write(‘ Input Angka 1 :           ‘);readln(a);

            write untuk menulis input an ‘Input angka 1’ dan readln untuk membaca nilai dengan var a

write(‘Input Angka 2 :            ‘);readln(b);

            write untuk menulis inputan ‘Input angka 2’ dan  readln untuk membaca nilai dengan  ar b d

hasil:=a+b;

            melakukan pertamabahan dengan memasukan nilai var a dan b menghasilkan nilai var hasil

sisa:=hasil mod 2;

            melakukan perhitungan mod pada var hasil dan menghasilkan nilai untuk var sisa

if sisa=0 then kete:=’Genap’ else kete:=’ Ganjil’;

jika var sisa bernilai nol maka var kete akan berisikan ‘GENAP dan sebaliknya jika tidak akan bernilai ‘GANJIL’

writeln(‘Jumlah Angka tersebut adalah :’,kete);

            menulis ‘jumlah angka tersebut adalah’

            dengan diakhiri dengan nilai variable kete Ganjil/Genap?

readln;

untuk menampilkan variabel yang berada pada writeln di atas, jika tidak memakai readln output tidak akan keluar

end;

readln;

untuk menampilkan variabel yang berada pada writeln di atas, jika tidak memakai readln output tidak akan keluar

End;

Write(‘Ulang(y/n)?’);readln(x);

            Untuk input var x  y/n?

If x=’y’ then goto z;

            yang jika bernilai y maka akan kembali ke menu awal, jika tidak maka berakhir.

End;

OUTPUT

CASE 4

Membuat case keluar/EXIT

OUTPUT