TUGAS KELAS X.TI (RPL, TKJ, MM)

PEMILIHAN DALAM BAHASA PASCAL

Didalam membuat program tentunya ada masalah yang dapat di pecahkan secara langsung seperti menghitung sebuah persegi panjang yang hasilnya bisa kita dapatkan dari perkalian panjang * lebar.

Tentunya setiap masalah memiliki penangan yang berbeda, seperti didalam sebuah qiuz bagaimana kita bisa menentukan nilai grade A, grade B grade C dari hasil nilai angka yang kita dapatkan.

Statemen IF

Penggunaan statement If ini adalah bagaimana kita mengkondisikan sebuah expresi dimana kita menentukan sendiri mana expresi yang menghasilkan nilai true dan mana expresi yang menghasilkan nilai false. Untuk aturan penulisan statement IF ini adalah sebagai berikut :

If kondisi then
Statement1
else
statement2
end;

Statement di atas dapat kita ilustrasikan sebagai berikut : 

1. Jika suatu kondisi menghasilkan nilai true maka statement 1 akan dijalankan. 

2. Sebaliknya jika suatu kondisi menghasilkan nilai false maka statement 2 lah yang akan di jalankan. 

Berikut kita akan membuat program grade menggunakana statement If dengan bahasa pascal.

Contoh Program 1 :

program grade;

uses wincrt;

var n : integer;
begin
       write ('Masukan Nilai UAS : '); readln (n);
       if n >= 8 then
       write ('Grade A')
       else
       if (n >= 7) and (n <8) then
       write ('Grade B')
       else
       write ('C');
end.

Kode di atas jika dijalankan akan menghasilkan output sebagai berikut :

Penjelasan Kode :

Write ('Masukan Nilai Uas')
Berfungsi untuk menampilkan teks 'Masukan Nilai'

Readln (n)

Berfungsi sebagai inputan nilai Uas.

If n > = 8 then write ('Grade A')
Jika nilai inputan lebih besar dari n maka akan menampilkan Grade A

If (n > = 7) and (n < 8) then write ('Grade B')
Jika nilai inputan lebih besar sama dengan 7 dan kurang dari 8 maka akan menampilkan Grade B.

Else write ('Grade C')
Jika inputan tidak memenuhi kriteria A dan tidak memenuhi kriteria B makan akan menampilkan Grade C


Latihan Soal :
Buatlah program pascal password, dengan ketentuan :
- Jika password yang di input smkislamiyah, maka yang akan muncul Pasword Benar
- Jika password yang di input selain dari smkislamiyah maka yang akan muncul Password Salah

Read More

UTS KELAS X-TI (RPL, TKJ, MM)

UTS DASAR PEMROGRAMAN (RPL, TKJ, MM)

Silahkan kerjakan soal-soal di bawah ini :

1. Jelaskan apa yang dimaksud dengan Variabel Lokal dan Global
2. Buatlah program Pascal untuk menghitung besar gaji karyawan per hari, gunakan Variabel dan Konstanta, dengan ketentuan sbb :

- Nama Karyawan { Di input Manual }
- Jenis Kelamin { Di input Manual }
- Besar Gaji Karyawan/Bulan Rp. 3.000.000,-

------------------
Catatan :

- Jawaban UTS di kirimkan via e-mail ke : mardas_arafat@yahoo.co.id
- Selambat-lambatnya dikirimkan hari Sabtu Tgl. 19 Maret 2016
- Jawaban untuk No.2, boleh berupa File Pascal / Source Code saja...
- Bagi siswa/i yang mengirimkan UTS lebih dari waktu yang sudah di tentukan, di anggap tidak mengikuti UTS.
 

Read More

TUGAS KELAS X.TKJ-1

Contoh untuk mengilustrasikan penggunaan Pascal 7.0 pada penaganan masalah komputasi. Misalkan ingin dihitung keliling dan luas suatu lingkaran dengan diameter ditentukan oleh pengguna. Berikut adalah listing code dari Pascal :

Berikut ini menunjukan tampilan dari eksekusi program :

Menghitung Keliling dan Luas Lingkaran
------------------------------------------------------
Masukan Diameter Linkaran : 10.05
Keliling Lingkaran                : 31.56
Luas Lingkaran                      : 7.74



-----
Selasa, 19 Januari 2016

Read More

TUGAS KELAS X.TKJ-1

Statemen Input/Output

Statemen input/output dalam Pascal menggunakan prosedur standar read/readln dan write/writeln. Untuk pencetakan (output) data yang dicetak dapat berupa konstanta, variabel, atau nilai yang dikembalikan fungsi. Sedangkan jenis yang data yang dapat dicetak adalah bilangan, karakter (ASCII) dan Boolean, sintaknya :

Write(dat1,data2,dat3,…);
Writeln(dat1,data2,dat3,…);

Read/readln hanya dapat menerima data berupa satu atau lebih variabel. Jenis data yang dapat diterima meliputi bilangan bulat, bilangan pecahan, karakter dan string. Sintaknya :

Read(dat1,data2,dat3,…);
Readln(dat1,data2,dat3,…);

Perbedaan read dan redln adalah prosedur readln membaca data sampai ditekan tombol enter. Demikian juga perbedaan write dengan writeln, prosedur writeln akan menempatkan qursor ke baris baru kolom awal.

READKEY(fungsi).
Untuk pembacaan sebuah karakter dari keyboard. Tipe data yang dihasilkan adalah char.

Sintaks: READKEY;

Statemen Pengaturan Letak di Layar

CLRSCR(prosedur).
digunakan untuk membersihkan layar.

sintaks: CLRSCR;
GOTOXY(prosedur).

Untuk menempatkan posisi kursor pada layar.
Sintaks: GOTOXY(X, Y: Byte);
Keterangan : X = sumbu X (posisi horisontal)
Y = sumbu Y (posisi vertikal)

DELLINE(prosedur).
Untuk menghapus sebuah baris pada posisi kursor dan menaikkan

baris-baris dibawahnya.
Sintaks: DELLINE;
INSLINE(prosedur).

Untuk menyisipkan sebuah baris pada posisi kursor dan meng-geser kebawah tampilan-tampilan baris dibawahnya.
Sintaks: INSLINE;
DELAY(prosedur).

Untuk menghentikan sejenak proses program.

Sintaks: DELAY(MS: Word);
Keterangan : MS = ukuran waktu dalam milisecond.

Catatan : Silahkan tulis pada buku catatan kalian.

Read More

KISI-KISI ULANGAN UMUM X-TI (RPL,TKJ,MM)

KISI-KISI ULANGAN UMUM X-TI (RPL,TKJ,MM)

Berikut ini adalah kisi-kisi Ulangan Umum kelas X-TI (RPL,TKJ,MM), untuk mata diklat :
Dasar Pemrograman

Dari kisi-kisi tersebut silahkan eksplorasi kembali materinya.

- Mampu mendefinisikan tentang Algoritma
- Bisa mengoperasikan software Turbo Pascal, baik yang versi DOS maupun Desktop
- Mengenal dan paham mengenai perintah-perintah dasar dalam pemrograman Turbo Pascal
- Mampu membuat Algoritma baik menggunakan Bahasa, Kode, maupun Symbol

Read More