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
Komentar
Posting Komentar