Resume Pernyataan Repeat Dalam Pascal

Pernyataan repeat (repeat statements) digunakan untuk melakukan perulangan terhadap suatu pernyataan, dimana proses pemeriksaan syaratnya berada pada akhir pernyataan repeat tersebut. Pernyataan pernyataan yang ada pada repeat akan dijalankan (diulang terus) sampai kondisi yang diseleksi di until tidak terpenuhi.

Berbeda dengan pernyataan perulangan while kemarin, pada pernyataan perulangan menggunakan Repeat (Repeat Statements) ini akan melakukan sebuah bentuk perulangan yang akan dikerjakan dan diulang terus-menerus ketika kondisi bernilai SALAH sampai kondisi yang didefinisikan berniali BENAR. Bedanya anta while ... do dengan Repeat ... Until yaitu bila Pernyataan While (While Statements) akan melakukan pengujian di awal proses, sedangkan Pernyataan Repeat (Repeat Statements) akan melakukan pengujian di akhir proses.

Bentuk Umum :

REPEAT

       Statement

UNTIL (Ungkapan)

Contoh program

program menampilkan_angka_1_sampai_10;
uses crt;
var
i : integer;
begin
clrscr;
i := 0;
REPEAT
i := i+1;
write (i);
UNTIL (i=10);
readln;
end.

Dan hasilnya akan seperi ini

Anda pun bisa mendownload file (.docx) nya disini

Google Drive     atau     Mediafire

Artikel saya ini hanya sebatas pengetahuan saja yah, untuk lebih lanjutnya anda bisa mempelajari lebih dalam dan jangan banyak ngeluh.. yang terpenting setiap tugas jangan ketergantungan sama google ok. CMIIW

Resume Pernyataan Procedure Dalam Pascal

APA ITU PROCEDURE DALAM BAHASA PEMROGRAMAN PASCAL ?

Procedure/prosedur merupakan suatu program yang terpisah dalam blok sendiri yang berfungsi sebagai sub-program (modul program) yang merupakan sebuah program kecil untuk memproses sebagian dari pekerjaan program utama. Procedure berguna untuk mengumpulkan statemen-statement (Pernyataan) yang dapat dijalankan menjadi satu dalam blok dan untuk menjalankan kembali hanya dengan menuliskan nama procedure yang menampungnya, yaitu pemanggilan dilakukan pada program utama.

STRUKTUR PROCEDURE :

• JUDUL (header) --> nama prosedur dan deklarasi parameter(kalau ada) 
• DEKLARASI --> mengumumkan nama-nama dan tipe data 
• ALGORITMA --> badan prosedur (instruksi)

NOTASI ALGORITMA UNTUK PROCEDURE :

Procedure NamaProsedur(deklarasi parameter, jika ada)

{spesifikasi prosedur, berisi penjelasan tentang apa yg dilakukan oleh prosedur ini.

Kondisi awal : keadaan sebelum prosedur dilaksanakan.

Kondisi akhir : keadaan setelah prosedur dilaksanakan}

DEKLARASI

{semua nama yg dipakai di dalam prosedur dan hanya berlaku lokal di dalam prosedur ini}

ALGORITMA

{badan prosedur, berisi urutan instruksi}

PENGGUNAAN/PEMANGGILAN PROCEDURE :

• Prosedur bukan program yg beridiri sendiri 
• Prosedur tidak dapat dieksekusi secara langsung. 
• Instruksi-instruksi di dalam prosedur dapat dilaksanakan bila prosedur itu diakses. 
• Prosedur diakses dg cara memanggil namanya dari program pemanggil (misalnya dari program utama atau modul program lainnya) 
• Jika prosedur tanpa parameter, maka pemanggilannya cukup dg nama prosedurnya saja.

Selain itu procedure yang banyak dipakai untuk menampung baris-baris perintah yang sering dipakai dalam sebuah program. Untuk mendeklarasikan procedure dapat dilakukan dengan dua cara :

• Header Procedure tanpa parameter
• Header Procedure dengan menggunakan parameter

1. Header Procedure Tanpa Parameter

yaitu penulisannya diawali dengan kata baku procedure dan diikuti dengan nama procedure serta diakhiri dengan tanda titik koma (;).

Bentuk Umum :

   Procedure <namaProcedure>

Contoh programnya

program tanpa_parameter;
uses crt;
var
kol,bar,has1,has2 : integer;
procedure tabel;
begin
has1 := kol+bar;
has2 := kol*bar;
writeln ('Kolom*Baris = ',has1);
writeln ('Kolom*Baris = ',has2);
end;
begin
clrscr;
gotoxy(21,2); writeln('Contoh Program Procedure Tanpa Parameter');
gotoxy(21,3); writeln('========================================');
write ('Masukkan Jumlah Kolom = '); readln(kol);
write ('Masukkan Jumlah Baris = '); readln(bar);
tabel;
readln;
end.

Hasilnya akan seperti ini :

2. Header Procedure Dengan Menggunakan Parameter

Yaitu penulisannya hampir sama dengan Procedure tanpa parameter. yaitu diawali dengan kata baku procedure, lalu diikuti dengan parameter-parameter (yang berada didalam kurung) yang masing-masing dipisahkan dengan koma beserta dengan tipenya yang dipisahkan dengan titik dua (:) serta diakhiri dengan tanda titik koma (;).

Bentuk Umum :

   Procedure <namaProcedure> (<daftarParameter>);

Contoh programnya :

program dengan_parameter;
uses crt;
var
kol,bar, has1,has2 : integer;
procedure tabel (a,b : integer);
begin
has1 := kol+bar;
has2 := kol*bar;
writeln ('Kolom + Baris = ',has1);
writeln ('Kolom * Baris = ',has2);
end;
begin
clrscr;
gotoxy(21,1); writeln('**************************************');
gotoxy(21,2); writeln('Contoh Procedure Menggunakan Procedure');
gotoxy(21,3); writeln('--------------------------------------');
gotoxy(21,4); writeln('**************************************');
write ('Masukkan Jumlah Kolom = '); readln(kol);
write ('Masukkan Jumlah Baris = '); readln(bar);
tabel(kol,bar);
readln;
end.

dan hasilnya akan seperti ini :

Anda juga bisa download file (.docx) nya disini

Google Drive     atau    Mediafire

Artikel saya ini hanya sebatas pengetahuan saja yah, untuk lebih lanjutnya anda bisa mempelajari lebih dalam dan jangan banyak ngeluh.. yang terpenting setiap tugas jangan ketergantungan sama google ok. CMIIW

Resume Pernyataan GotoXY Dalam Pascal

Statement gotoxy merupakan statement yang digunakan untuk menentukan letak suatu kursor. Pada layar monitor memiliki 80 karakter secara horozontal dan 25 karakter secara vertikal.

Statement ini bertujuan untuk mempermudah dalam melakukan perancangan terhadap layar keluaran, bukan hanya melalui dari kolom 1 saja, tetapi bisa dilakukan pada kolom tengah-tengah layar.

Dengan menggunakan Gotoxy ini cukup menuliskan perintah Write, tidak perlu Writeln. Kolom digunakan untuk menentukan kolom pada layar yang akan ditempati kursor. Baris digunakan untuk menentukan baris pada layar yang akan ditempati kursor.

Contoh programnya

program gotoxy_sanjaya;
uses crt;
var
d : integer;
begin
clrscr;
for  := 1 to 5 do
begin
gotoxy (d,d); write (6-d);
readln;
end;
end.

Dan jika anda klik enter maka hasilnya akan seperti ini

Anda juga bisa download file (.docx) nya disini

Google Drive      atau     Mediafire

Artikel saya ini hanya sebatas pengetahuan saja yah, untuk lebih lanjutnya anda bisa mempelajari lebih dalam dan jangan banyak ngeluh.. yang terpenting setiap tugas jangan ketergantungan sama google ok. CMIIW

Resume Pernyataan For Dalam Pascal

Pernyataan for (for statements) juga digunakan untuk melakukan proses perulangan. Hanya saja proses perulangan pada pernyataan for langsung dikendalikan oleh suatu peubah yang disebut peubah kendali (control variables) yang harus bertipe berurutan. Jadi pada pernyataan for pada dasar sudah diketahui jumlah perulangannya. Perulangan dengan pernyataan for dapat berupa perulangan positif ('to') dan perulangan negatif ('downto'). Jika pernyataan yang akan mengalami perulangan lebih dari satu pernyataan, maka harus diawali dengan begin dan diakhiri dengan end;.

Pada Perulangan dengan pernyataan for dapat berupa perulangan positif ('to') dan perulangan negatif ('downto').

Perulangan Positif

Dapat dihitung/Counter dari kecil ke besar (Penambahan positif).

Bentuk Umum : 

FOR variabel control := nilai_awal TO nilai_ahir DO pernyataan

Contoh Program :

program mengurutkan_angka_positif;
uses crt;
var
i : integer;
begin
clrscr;
FOR i := 1 TO 100 DO
begin
write (i:1)4;
end;
readln;
end.

Hasilnya akan seperti ini

Perulangan Negatif

Dapat dihitung/Counter dari besar ke kecil (Penambahannya Negatif).

Bentuk Umum : 

FOR variabel control := nilai_awal DOWNTO nilai_ahir DO pernyataan

Contoh Program :

program mengurutkan_angka_negatif;
uses crt;
var
i : integer;
begin
clrscr;
FOR i := 100 DOWNTO 1 DO
begin
write (1:4);
end;
readln;
end.

Hasilnya akan seperti ini

Anda bisa download file (.docx) nya disini

Google Drive     atau     Mediafire

Artikel saya ini hanya sebatas pengetahuan saja yah, untuk lebih lanjutnya anda bisa mempelajari lebih dalam dan jangan banyak ngeluh.. yang terpenting setiap tugas jangan ketergantungan sama google ok. CMIIW

Resume Pernyataan While Dalam Pascal

Yosh, seperti artikel saya sebelumnya artikel ini juga dari tugas kuliah saya tentang resume pernyataan while di pascal dalam mata kuliah pemrograman terstruktur.

Pernyataan while (while statements) hampir sama dengan pernyataan repeat, dengan sedikit perbedaan bahwa pernyataan while melakukan pengujian syarat pada awal proses berulang (pernyataan repeat melakukannya di akhir proses).

Pengujian awal digunakan untuk agar program dapat menyeleksi kondisi, sehingga program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari kondisi yang diseleksi tersebut. Pada pernyataan-pernyataan yang ada pada while tidak akan dijalankan jika kondisi tidak terpenuhi.

WHILE – DO

Dalam pernyataan WHILE – DO, sebuah proses akan terus diulang selama syarat yang ditentukan masih terpenuhi. Bisa dikatakan bahwa perintah WHILE – DO adalah kebalikan dari perintah 

REPEAT- UNTIL

Bentuk Umum :

WHILE <syarat yang ditentukan> DO

BEGIN

            <proses yang akan diulang>;

END;

Sama halnya dengan struktur kendali yang telah dibahas sebelumnya, pada struktur perulangan dapat terjadi kasus dimana di dalam struktur perulangan tertentu terdapat struktur perulangan yang lain dan seterusnya. Program berikut akan menerapkan struktur perulangan dengan menggunakan while.

Contoh Programnya :

program while_sanjaya;
var
i,j : integer;
M : char;
begin
clrscr;
write ('Masukkan Sembarang Karakter : ');  readln(M);
i := 1;
while i<=i do
begin
write(M);
inc(j);
end;
writeln;
inc(i);
end;
readln;
end.

Hasilnya akan seperti ini :

Anda bisa download file (.docx) nya disini

Google Drive     atau        Mediafire

Artikel saya ini hanya sebatas pengetahuan saja yah, untuk lebih lanjutnya anda bisa mempelajari lebih dalam dan jangan banyak ngeluh.. yang terpenting setiap tugas jangan ketergantungan sama google ok. CMIIW

Resume Pernyataan Case Of Dalam Pascal

Artikel kali ini saya tulis karena terinspirasi dari tugas kuliah saya tentang resume pernyataan case of pada atau di pascal untuk mata kuliah pemrograman terstruktur, ok langsung saja.

Struktur Case Of mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector. Statement yang mempunyai case label yang bernilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainnya tidak.

Nilai kondisi harus suatu kondisi yang nilainya berjenis ordinal (dapat diurutkan).  Nilai1, nilai2, dan seterusnya dapat berupa sebuah nilai berjenis ordinal (sesuai dengan jenis kondisi) atau beberapa nilai yang dapat dipisahkan dengan tanda titik koma.

Struktur Case Of sebenarnya memiliki fungsi yang sama dengan struktur If. Struktur Case ini dapat meringkaskan alur logika yang terjadi apabila diaplikasikan pada alur seleksi yang memiliki lebih dari 2 kondisi.

Struktur logika seleksi menggunakan struktur Case ini jauh lebih ringkas apabila diaplikasikan pada struktur seleksi yang memiliki kondisi lebih dari 2. Kompiler program akan menjalankan instruksi dari struktur Case dan memeriksa setiap kondisi yang ada, apabila belum ada kondisi yang bernilai benar maka kompiler akan terus menjalankan instruksi dibawahnya sampai ditemukan kondisi yang bernilai benar. Namun apabila hingga kondisi terakhir diperiksa dan tidak ditemukan kondisi yang bernilai benar maka kondisi default yang akan dijalankan.

Contoh Programnya :

program case_of;
uses crt;
var
a : char;
begin
repeat
a := readkey;
clrscr;
write ('Jawaban anda  : '); readln(a);
case a of
'a' , 'A' : write ('Selamat anda benar');
'b' , 'B' : write ('Maaf, jawaban anda salah');
else
write ('Jawaban anda tidak tersedia, mohon ulangi lagi');
end;
until a=#13;
end.

Dan hasilnya akan seperti ini :

1. Jika anda mengetik/menginputkan huruf a atau A maka akan muncul jawaban seperti ini

2. Jika anda mengetik/meginputkan huruf b atau B maka akan muncul jawaban seperti ini

3. Dan jika anda mengetik/menginputkan huruf c atau C maka akan muncul jawaban seperti ini

Anda bisa download file (.docx) nya disini

Google Drive     atau     Mediafire

Ok, mungkin itu saja dari saya, oh ya artikel saya ini hanya sebatas pengetahuan saja yah, untuk lebih lanjutnya anda bisa mempelajari lebih dalam dan jangan banyak ngeluh.. yang terpenting setiap tugas jangan ketergantungan sama google ok. CMIIW

Resume Pernyataan IF Dalam Pascal

Lama tak posting yahh, hehe kali ini saya akan membagikan salah satu dari tugas kuliah saya mata kuliah pemrograman terstruktur tentang resume pernyataan if.

Percabangan ini digunakan untuk menyeleksi suatu kondisi, jika kondisi yang diseleksi terpenuhi maka pernyataan yaang mengikuti Then akan diproses. Tetapi, apabila kondisi tidak terpenuhi maka tidak ada yang diproses.

Contoh Programnya

program if_sanjaya404;
uses crt;
var
wait : string = ('ya');
restart : string;
begin
clrscr;
write ('Apakah anda yakin ingin restart? '); readln (restart);
if restart = wait then
begin
writeln ('Waiting...');
end;
readkey;
end.

Hasil/Output nya nanti akan seperti ini :

Anda bisa download file (.docx) nya disini

Google Drive    atau    Mediafire

Artikel saya ini hanya sebatas pengetahuan saja yah, untuk lebih lanjutnya anda bisa mempelajari lebih dalam dan jangan banyak ngeluh.. yang terpenting setiap tugas jangan ketergantungan sama google ok. CMIIW

Program Menghitung Nilai Mahasiswa Dalam Bahasa Pascal

Sebenarnya Program Menghitung Nilai Mahasiswa adalah tugas mata kuliah Pemrograman semester 1 saya, namun disini saya akan membagikan sedikit ilmu tentang membuat program menggunakan bahasa pascal dan menggunakan software Free Pascal Compiler, kalian bisa download gratis disini Free Pascal Compiler 3.0.0 i386

Ingat !! disini saya tidak bermaksud untuk memilih jalan pintas untuk mengerjakan tugas seseorang namun artikel disini sekedar untuk belajar.

copy syntax dibawah ini ke compiler free pascal :

program menghitung_nilai_mahasiswa;
uses crt;
var
nim, nilai, nilai_huruf, ket : string;
nilai_akhir, niilai : integer;

begin
clrscr;
writeln (‘ PROGRAM MENGHITUNG NILAI MAHASISWA ’);
writeln (‘====================================’);
writeln;
write (‘Masukkan NIM : ‘); readln (nim);
write (‘Masukkan Nama : ‘); readln (nama);
write (‘Nilai Pmerograman : ‘); readln (nilai_pemrograman);

nilai_akhir := nilai;

if (nilai_akhir >= 85) and (nilai_akhir <= 100) then
nilai_huruf := ‘A’
else
if (nilai_akhir >= 70) and (nilai_akhir <= 85) then
nilai_huruf := ‘B’
else
if (nilai_akhir >= 55) and (nilai_akhir <= 70) then
nilai_huruf := ‘C’
else
if (nilai_akhir >= 40) and (nilai_akhir <= 55) then
nilai_huruf := ‘D’
else
if (nilai_akhir >= 0) and (nilai_akhir <= 39) then
nilai_huruf := ‘E’
else
nilai_huruf := ‘F’;

case nilai_akhir of
60..100 : ket := (‘LULUS’);
else
ket := (‘TIDAK LULUS’);
end;

writeln;
writeln (‘   MAKA HASILNYA ADALAH    ‘);
writeln (‘===========================’);
writeln ;
writeln (‘NIM : ‘,nim);
writeln (‘Nama : ‘,nama);
writeln (‘Nilai Akhir : ‘, nilai_akhir);
writeln (‘Nilai Huruf : ‘,nilai_huruf);
writeln (‘Keterangan : ‘,ket);
writeln;

writeln (‘========================’);
writeln (‘  Developed by Sanjaya  ’);
writeln (‘========================’);
readln;
end.

Mengenal Bahasa Pemrograman Pascal

Bagi kalian yang ingin melanjutkan kuliah ke Jurusan Teknik Informatika maka artikel ini sangat cocok untuk kalian, karena pada TI akan mempelajari tentang bahasa pemrograman, jaringan, sistem operasi dan masih banyakk lagi. Bahasa Pascal ini akan kalian temui pada semester 1 saat masuk TI dan menjadi bahasa pemrograman pertama yang diajari sebelum C++ maupun PHP.

Menurut Wikipedia, Pascal adalah bahasa pemrograman yang pertama kali dibuat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan  mesin penghitung, Professor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Professor Niklaus Wirth membuat pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Kelebihan dari bahasa pemrograman pascal adalah :

• Tipe Data Standar, tipe-tipe data standar yang telah bersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string.
• User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.
• Strongly-typed, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.
• Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function) yang dapat dipergunakan berulang-ulang.
• Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa inggris) sehingga mudah dipelajari dan dipahami.

Bahasa PASCAL jua merupakan bahsa yang digunakan sebagai standar bahasa pemrograman bagi tim nasional Olimpiade Komputer Indonesia (toki). Selain itu, Bahasa PASCAL masih digunakan dalam IOI (International Olympiad in Informatics).

Tipe Data

Dalam bahasa Pascal terdapat beberapa jenis tipe data yang bisa digunakan untuk sebuah variabel atau konstanta pada program. Tipe Data tersebut antara lain adalah

Tipe Data	Deskripsi (range variabel)
Byte	angka dari 0 sampai 255
Integer	angka dari -32768 sampai 32767
Real	semua nilai pecahan dari 1E-38 sampai 1E+38
Boolean	nilai TRUE atau FALSE
Char	semua karakter dari tabel ASCII
String	semua huruf, spasi, frasa

Contoh program yang paling sederhana dari bahasa Pascal :

Program HelloWorld;
begin
   writeln('Hello world');

end.