Laporan Akhir Pascal 2

LAPORAN AKHIR

NAMA                                   : FIRMAN RAMDHANI

NPM                                       : 12115722

KELAS                                   : 1KA25

BARIS                                    : 2

MATERI                                : PASCAL

TANGGAL                            : 24 MARET 2016     

Paraf

(                    )

LABORATORIUM SISTEM INFORMASI

UNIVERSITAS GUNADARMA

2016

LOGIKA :

uses crt;

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

var atau variabel

a, hasil : integer;

pendeklarasian variabel a, hasil dengan tipe data integer.

begin

awal program yang akan dijalankan

clrscr;

hapus layar

write(‘===GANJIL GENAP===’);

writeln;

write(‘masukan angka : ‘); readln(a);

write berguna untuk output yang di tampilkan pada layar dan readln berguna untuk menyimpan data (Input) pada suatu variabel dan membuat garis baru, karena diakhiri dengan tulisan ‘ln’

hasil := a mod 2;

digunakan untuk menghitung sisa hasil bagi 2.

writeln;

digunakan untuk membuat garis baru

if hasil = 0 then

digunakan untuk mengecek sisa hasil bagi jika 0 maka genap.

Writeln(a,’ adalah bilangan genap ‘) else

Writeln(a,’ adalah bilangan ganjil ‘);

menampilkan kalimat/nilai a dengan di dalam tanda kutip (‘) dan variabel

readln;

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

end.

Untuk mengakhiri program

Jika sudah selesai maka tekan CTRL + F9

Maka akan muncul layar hitam

Lalu masukan nilai > enter

Maka output dari hasilnya akan keluar dengan menyebutkan bilangan ganjil atau genap sesuai nilai yang dimaksudkan.

LOGIKA :

uses crt;

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

var atau variabel

uts,uas,hasil : real;

pendeklarasian variabel uts,uas,hasil dengan tipe data real.

begin

awal program yang akan dijalankan

clrscr;

hapus layar

write(‘masukan nilai uts : ‘); readln(uts);

write(‘masukan nilai uas : ‘); readln(uas);

write berguna untuk output yang di tampilkan pada layar dan readln berguna untuk menyimpan data (Input) pada suatu variabel dan membuat garis baru, karena diakhiri dengan tulisan ‘ln’

hasil := (uts*0.7) + (uas*0.3);

koding ini digunakan untuk mengalikan data/angka yang ada divariable uts dengan 0.7 dan mengalikan data atau angka yang ada divariable uas dengan 0.3. dan dimasukkan kedalam variable hasil.

Writelln(‘nilai total : ‘), hasil:2:2);

Koding ini berfungsi untuk menampilkan hasil dari penghitungan yang telah dimasukan kedalam variable hasil. Dan juga koding “hasil:2:2” digunakan untuk memunculkan data yang ada didalam variable hasil dan juga guna 2 setelah hasil untuk spasi dan 2 yang satunya lagi berguna untuk memberikan 2 angka dibelakang koma(,).

If (hasil>=80) and (hasil<=100) then

Writeln(‘Anda lulus dengan grade A ’)

Koding ini bertujuan untuk menentukan grade lulus dan koding ini menunjukan bahwa jika hasil lebih atau sama dengan 80 dan hasil lebih dari 100 maka akan lulus dengan grade A.

Else if (hasil>=60) and (hasil<=79) then

Koding ini bertujuan untuk menentukan grade lulus dan koding ini menunjukan bahwa jika hasil lebih atau sama dengan 60 dan hasil kurang dari atau sama dengan 79 maka akan lulus dengan grade B.

Jika tidak maka grade C.

readln;

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

end.

Untuk mengakhiri program.

Maka saat memulai program atau ctrl+f9 akan muncul layar hitam.

Lalu masukan Nilai uts dan uas.

Dan tekan enter

Maka Outputnya akan keluar beserta Grade yg sesuai dengan nilai.

Tweet

Ditulis oleh Calvin Keyla Ramdhan pada tanggal Selasa, 12 April 2016