Syntax Bilangan

MENENTUKAN LEBIH BESAR, LEBIH KECIL ATAU SAMA DENGAN PADA SEBUAH BILANGAN

program Bilangan;
uses wincrt;
var A,B:integer;

begin
Writeln ('================================');
writeln ('      LATIHAN TURBO PASCAL      ');
writeln ('   ALGORITMA DAN PEMPROGRAMAN   ');
writeln ('================================');
writeln ('            PILKOM B            ');
Writeln ('Nama Kelompok :                 ');
Write   ('1.');
writeln ('Abd.Mukmin     NIM.1205045171   ');
Write   ('2.');
writeln ('Alvi Wijaya    NIM.1205045161   ');
writeln ('================================');
writeln ('');

write('masukan nilai Pertama : ');readln(A);
write('masukan nilai Kedua : ');readln(B);
if (a<b) then
begin
write(A,' lebih kecil dari ',B);
end
else if (a=b) then
begin
write (A,' sama dengan ',B);
end
else
begin
write(A,' lebih besar dari ',B);
end;
end.

Read more...

Syntax Contoh Pilihan Ganda

MENENTUKAN BILANGAN GANJIL ATAU GENAP

program ganjilgenap;
uses wincrt;                             { pilihan ganda = if kondisi 1 then }
                                         {                     statement 1   }var                                      {                 else              }
   bil : integer;                        {                     statement 2   }
   lagi : char;

begin
     Clrscr;
     writeln ('program ganjil genap');
     writeln ('____________________');
     writeln;
     write ('masukkan sembarang bilangan:');
     readln (bil);

     writeln;
if (bil mod 2=0) then
   writeln ('bilangan_',bil,'_adalah bilangan genap')
else
    writeln ('bilangan_',bil,'_adalah bilangan ganjil');
    readln;
end.

Read more...

Syntax Contoh Pilihan Majemuk

 MENENTUKAN KETERANGAN SEBUAH NILAI

program kelompoknilai;                              { pilihan majemuk = 2 alternatif }
uses wincrt;                                       
var
   nilai : integer;
   ket   : string;
   huruf : char;

begin
     writeln ( 'Program Kelompok Nilai');
     writeln ( '______________________');
     writeln;
     writeln ('masukkan nilai (0-100)=');
     readln (nilai);
     if (nilai >= 80) then                         { if kondisi 1 then         }begin                                                       {     statement 1           }
     huruf := 'A';                                       {  else                     }
     ket   := ('Lulus');                               {  if kondisi 2 then        }
end                                                          {     statement 2           }
else                                                         {  else                     }     if (nilai >= 70) then                         {     statement berikutnya. }begin
     huruf := 'B';
     ket   := ('Lulus');
end
else
     if (nilai >= 60) then
begin
     huruf := 'C';
     ket   := ('Lulus');
end
else
     if (nilai >= 50) then
begin
     huruf := 'D';
     ket   := ('Tidak Lulus');
end
else
begin
     huruf := 'E';
     ket   := ('Tidak Lulus');
end;
    writeln;
    writeln ('nilai huruf =',huruf);
    writeln ('keterangan =',ket);
    readln;
end.

Read more...

Syntax Contoh Fungsi

MENGHITUNG PANGKAT 3 DARI SEBUAH BILANGAN

{PROGRAM UTAMA}
program contoh_fungsi;                  
uses wincrt;
var angka, jawaban:integer;  {variabel global}            

{FUNCTION}
function kubik (x:integer):integer;  {variabel lokal}    
begin
     kubik := x * x * x;
end;         


{STATEMENT PROGRAM UTAMA}
begin
     writeln ('masukkan angka');
     readln (angka);

jawaban := kubik (angka);
writeln ('hasil pangkat tiga dari:',angka, '=' ,jawaban);

end.

Read more...

Syntax Contoh Prosedur

MENGHITUNG JARAK

program contoh_prosedur;
uses wincrt;
var waktu, jarak, kecepatan:real;

procedure tampilan_judul;
begin
     writeln ('menghitung jarang tempuh berdasar pada dua variabel yaitu kecepatan dan waktu  ');
end;

procedure masukkan_data;
begin
     writeln ('masukkan kecepatan dalam km/jam:  ');
     readln (kecepatan);
     writeln ('masukkan waktu dalam jam:  ');
     readln (waktu);
end;

procedure hitung_jarak;
begin
     jarak := kecepatan*waktu;
end;

procedure tampilan_hasil;
begin
     writeln ('jarak yang ditempuh adalah  ', jarak:5:2,'km');
end;

begin {PROGRAM UTAMA}
tampilan_judul;
masukkan_data;           {memanggil data}
hitung_jarak;
tampilan_hasil;
end.

Read more...

Syntax Luas Persegi Panjang

program luas_persegipanjang_00;
uses wincrt;

var panjangPSP, lebarPSP, luasPSP : integer;
BEGIN
     write ('masukkan panjang persegi=');
     read (panjangPSP);
     write ('masukkan lebar persegi=');
     readln (lebarPSP);

luasPSP :=panjangPSP*lebarPSP;
writeln ('luas persegi panjang=',luasPSP);
end.

Read more...

Tipe Data pada Turbo Pascal

Tipe data bahasa pascal
Pada bahasa pemrograman pascal, tipe data dibagi menjadi 2 yaitu:

-          Tipe Data sederhana : adalah tipe data dasar, karena hanya mampu menyimpan satu nilai tiap satu variabelnya.

-          Tipe Data kompleks : adalah tipe data yang mampu menyimpan lebih dari satu nilai dalam tiap satu variabelnya.

1.      Tipe data sederhana
Pada tipe data sederhana di bagi lagi menjadi beberapa macam:

a.      Integer merupakan tipe data yang hanya menampilkan berupa bilangan bulat.ada 5 tipe yang termasuk integer yaitu :

Tipe data Batas Nilai Ukuran tempat :
Byte          0 s/d +225 1 bytes  
ShortInt     -128 s/d +127 1 bytes  
Word         0 s/d + 65535 2 bytes  
Integer       -32768 s/d +32767 2 bytes  
LongInt     -2147483648 s/d +2147483647 4 bytes

Operator-operator pada tipe integer:
operator kegunaan  
+                Penjumlahan  
-                 Pengurangan  
*                Perkalian  
Div            Pembagian  
mod           Sisa pembagian

b.      Real merupakan tipe data yang hanya menampilkan berupa bilangan pecahan. Dalam Pascal paling sedikit harus ada satu digit sebelum dan sesudah titik desimal, tidak boleh ada koma dan nilainya bisa positif atau negatif.ada 5 tipe yang termasuk Real yaitu:

Tipe data Batas nilai Ukuran tempat  
Real           2.9 x  s/d 1.7 x  6 bytes  
Single        1.5 x  s/d 3.4 x  4 bytes  
Double      5.0 x  s/d 1.7 x  8 bytes  
Extended 3.4 x  s/d 1.1 x  10 bytes  
comp         -9.2 x  s/d 9.2 x  8 bytes

c.       Char merupakan tipe data menyimpan karakter yang diketikkan dari keyboard yangMendefinisikan integer tak bertanda dalam range 0 - 255.menuliskannya harus dengan memakai tanda kutip tunggal. Jenis data ini memerlukan alokasi memori sebesar 1(satu) byte untuk masing-masing data. Contoh: 'B' 'h' '+','d'

d.      Boolean merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah).

e.       Tipe subjangkauan

Subjangkauan merupakan suatu tipe yang menyatakan suatu jangkauan nilai dari suatu tipe data yang sudah ada. Jangkauan nilai ditentukan oleh nilai terkecil dan nilai terbesar. Antara nilai terkecil dan nilai terbesar dipisahkan oleh tanda subjangkauan (…).
Tidak jarang terjadi batas nilai yang mungkin untuk suatu perubah merupakan bagian atau subjangkauan dari tipe data yang telah didefinisikan, contoh nilai ujian adalah dari 0 sampai 100.type Nilai = 0..100;

f.       Tipe Terbilang
Disebut tipe terbilang karena semua nilai disebut satu persatu, contoh : Type Toko = (besar,kecil,bagus,jelek).
Perlu diperhatikan bahwa dalam tipe terbilang semua data harus diletakkan di antara kurung, urutan datanya harus diperhatikan karena akan mempengaruhi fungsi pred dan succ.

g.      Tipe Ordinal
Semua tipe sederhana disebut tipe ordinal kecuali real. Karakteristik tipe data ordinal antara lain :

-          Semua kemungkinan nilai dari suatu tipe ordinal merupakan himpunan berurutan dan setiap nilai berkaitan dengan ordinalitasnya yaitu nilai integral.

-          Fungsi standard ord dapat diterapkan pada sembarang tipe ordinal untuk mengetahui ordinalitasnya.

-          Fungsi standard pred dapat diterapkan untuk mengetahui predesesor.

-          Fungsi standard succ dapat diterapkan untuk mengetahui suksesor.

2.      Tipe Data Kompleks

a.       Tipe String
Data yang bertipe string adalah data yang berisi sederetan karakter yang banyaknya karakter bisa berubah-ubah sesuai kebutuhan yaitu dari 1 sampai 255 karakter.
Bentuk umum dari deklarasi tipe string adalah:
type pengenal = string <[panjang]>
Keterangan:
pengenal : nama tipe data.
panjang : bilangan bulat yang menentukan banyaknya karakter, bila parameter panjang karakter tidak ditulis maka dianggap 255 karakter.

b.      Tipe Larik
Larik (array) adalah tipe terstruktur yang mempunyai komponen dalam jumlah yang tetap dan setiap komponen mempunyai tipe data yang sama. Posisi masing-masing komponen dalam larik dinyatakan sebagai nomor indeks.
Bentuk umum dari tipe larik adalah
type pengenal = array [tipe_index] of tipe;
pengenal    : nama tipe data.
tipe_index : tipe data untuk nomor index.
tipe            : tipe data komponen.

Contoh,
type Vek = array [1..100] of integer;

c.       Tipe Rekaman
Sama halnya dengan larik, rekaman (record) adalah kumpulan data. Perbedaan antara larik dengan rekaman adalah dalam larik semua elemennya harus bertipe sama tetapi dalam rekaman setiap elemen bisa mempunyai tipe data yang berbeda satu sama lainnya.
Bentuk umum deklarasi rekaman adalah
type pengenal = record
medan1 :tipe1;
medan2 :tipe2;
.
.
.
medann :tipen;
end;

Keterangan:
pengenal : pengenal yang menunjukkan tipe data yang akan dideklarasikan.
medan1,…, medann : nama medan yang akan digunakan.
tipe1,…, tipen : sembarang tipe data yang telah dideklarasikan sebelumnya.
Contoh deklarasi rekaman,
type Tgl_Kalender = record
Tanggal :1..31;
Bulan : 1..12;
Tahun : 1900..2000;
end;

d.      Tipe Himpunan
Tipe himpunan adalah kumpulan obyek yang mempunyai tipe data yang sama dan urutan penulisannya tidak diperhatikan.Setiap onyek di dalam suatu himpunan disebut dengan anggota atau elemen himpunan
Bentuk umum deklarasi himpunan adalah
type pengenal = set of tipe_data;
atau dapat juga langsung dideklarasikan dalam bagian deklarasi perubah seperti berikut

var pengenal = set of tipe_data;
Keterangan:
pengenal : nama perubah atau pengenal yang akan dinyatakan sebagai tipe himpunan.
tipe_data : tipe data dari anggota himpunan, harus bertipe ordinal.
Contoh deklarasi himpunan adalah sebagai berikut.
type Irama = (jazz, rock, blues, country, classic);
Musik = set of Irama;
Nilai = set of 0..10;
Untai = set of char;
Huruf = set of ‘A’..’Z’;
Sakit = (pusing, mual, lemas, lesu, letih);
Penyakit = set of sakit;

e.       Tipe Berkas
Berkas (file) adalah kumpulan sejumlah komponen yang bertipe data sama yang jumlahnya tidak tentu dan biasanya tersimpan dalam suatu media penyimpan luar. Jumlah komponen dalam berkas dapat ditambah jika diperlukan.
Dalam Pascal, berkas menyediakan data yang nantinya akan digunakan oleh suatu program. Berkas dapat berupa berkas yang disimpan di dalam cakram magnetis, pita magnetis, kartu plong dan sejenisnya atau berupa piranti logika yang selama ini kita gunakan, yaitu dengan statemen input dan output, yang menunjukkan piranti masukan keluaran standar (papan ketik dan layar tampilan).
Bentuk umum dari deklarasi berkas adalah
type pengenal = file of pengenal1;

Keterangan:
pengenal : pengenal yang akan dinyatakan sebagai tipe data berkas.
pengenal1 : tipe data komponen berkas.

Read more...