Tugas 5

program percabangan;
uses crt;
var
nim,nama,kls: string;
n : byte;
begin
   textbackground(blue);
   clrscr;
   textcolor(yellow);
   writeln('*================================*');
   writeln('|=====Input Data Nilai Ujian=====|');
   writeln('*================================*');
   writeln;
   write('NIM           = '); readln(nim);
   write('Nama          = '); readln(nama);
   write('Kelas         = '); readln(kls);
   write('Masukan Nilai = '); readln(n);
   writeln;
   if n>=90 then
     write('Nilai Anda    = A')
   else if n>=70 then
     write('Nilai Anda    = B')
   else if n>=60 then
     write('Nilai Anda    = C')
   else if n>=45 then
     write('Nilai Anda    = D')
   else
     writeln('Nilai Anda Kosong');
   readln;
   writeln;
   textcolor(white); writeln('Tugas 5,i,12012739,Misbahul Munir');
   readln;
end.

Read more »

Tugas 4

program biodata;
uses crt;
var
  a,b:string;
  c,d:integer;
begin
  textbackground(11); {background colour}
  clrscr;
  textbackground(96);
  textcolor(128);
  writeln('-----------------------------------');
  writeln('-------- BIODATA MAHASISWA --------');
  writeln('-----------------------------------');
  writeln;
  write('NIM         = '); readln(a);
  write('Nama        = '); readln(b);
  write('Tahun Lahir = '); readln(c);
  d:=2012 - c;
  writeln('Umur Anda   = ',d,' ','tahun'); readln;
  writeln;
  writeln('Tugas Ke-4,i,12012739,Misbahul Munir');
  readln;
end.

Read more »

Tugas 3

1. Luas Balok
program luas_balok;
uses crt;
var
luas,p,l,t : integer;
begin
   clrscr;
   writeln('---------------------------------------');
   writeln('-----Program Menghitung Luas Balok-----');
   writeln('---------------------------------------');
   writeln;
   write('Masukan Nilai panjang   = '); readln(p);
   write('Masukan Nilai lebar     = '); readln(l);
   write('Masukan Nilai Tinggi    = '); readln(t);
   luas:=2*(p*l)+(p*t)+(l*t);
   writeln('Luas Balok             = ',luas);
   writeln;
   write('Tugas 3, Misbahul Munir, Kelas i');
   readln;
end.

2. Luas Segitiga

program luas_segitiga;
uses crt;
var
a,t : integer;
luas : real;
begin
   clrscr;
   writeln('------------------------------------------');
   writeln('-----Program Menghitung Luas Segitiga-----');
   writeln('------------------------------------------');
   writeln;
   write('Masukan Nilai Alas      = '); readln(a);
   write('Masukan Nilai Tinggi    = '); readln(t);
   luas:=0.5*a*t;
   writeln('Luas Segitiga           = ',round(luas));
   writeln;
   write('Tugas 3, Misbahul Munir, Kelas i');
   readln;
end.

3. Luas Tabung

program luas_tabung;
uses crt;
var
p,r,t : integer;
luas: real;
begin
   clrscr;
   writeln('----------------------------------------');
   writeln('-----Program Menghitung Luas Tabung-----');
   writeln('----------------------------------------');
   writeln;
   write('Masukan Nilai phi       = '); readln(p);
   write('Masukan Nilai jari-jari = '); readln(r);
   write('Masukan Nilai Tinggi    = '); readln(t);
   luas:=2*p*r*(r+t);
   writeln('Luas Tabung             = ',luas:0:2);
   writeln;
   write('Tugas 3, Misbahul Munir, Kelas i');
   readln;
end.

Read more »

Tugas 2

TIPE data

Tipe data yang dikenal dalam bahasa pascal antara lain :

·           Tipe data sederhana / Jenis data yang standar (Dasar)

1.    Integer

2.    Real

3.    Karakter

4.    Boolean

·           Tipe data non standar (user defined)

1.  Enumerated

2.  Sub-range

·           Tipe data berstuktur

1.  Array

2.  Record

3.  dll

INTEGER

Jenis data ini merupakan nilai bilangan bulat, yang  terdiri atas integer positif, integer negatif dan nol. Pada TURBO PASCAL jenis data ini di bagi atas beberapa bagian.  (lihat tabel 1)

Tabel 1. Jenis data integer

Tipe	Ukuran memori (dalam byte)	Jangkauan nilai
BYTE	1	0..255
SHORTINT	1	-128..127
INTEGER	2	-32768..32767
WORD	2	0..65535
LONGINT	4	-2147483648..2147483647

Operator Integer terdiri atas :  + , - , * , DIV dan MOD

Var                  Jumlah : byte; Begin                Jumlah := 200;                 WriteLn(‘Nilai JUMLAH = ‘,Jumlah); End. Hasilnya bila dijalankan :           Nilai JUMLAH = 200

REAL

Penulisan untuk jenis data ini selalu menggunakan titik desimal. Nilai konstanta numerik real berkisar dari 1E-38 sampai dengan 1E+38 dengan mantissa yang signifikan sampai dengan 11 digit. E menunjukkan nilai 10 pangkat. Nilai konstanta numerik real menempati memori sebesar 6 byte.

Contoh :

123.45

12345.  ® salah, titik desimal tidak boleh dibelakang

12E5

12E+5

-12.34

.1234  ® salah, titik desimal tidak boleh dimuka

 Pada TURBO PASCAL, jenis data ini dibedakan ( lihat tabel 2.)

Tabel 2. Jenis data Real

Tipe	Ukuran memori (dalam byte)	Jangkauan nilai	Digit signifikan
SINGLE	4	1.5x10E-45 .. 3.4x10E38	7-8
DOUBLE	8	5.0x10E-324 .. 1.7x10E308	15-16
EXTENDED	10	1.9x10E-4951 .. 1.1x10E4932	19-20
COMP	8	-2E+63+1 .. 2E+63-1	19-20

Operator untuk jenis data ini terdiri atas : + , - , * dan /

KARAKTER

Yang dimaksud dengan jenis data ini adalah karakter tunggal atau sebuah karakter yang ditulis diantara tanda petik tunggal, seperti misalnya ‘A’, ’a’, ’!’, ’5’ dsb.

Dasarnya adalah ASCII CHARACTER SET.

Misalnya : 032 pada tabel ASCII CHARACTER SET menunjukkan karakter.

Blank.

033                        !

048                        0

076                        L

Dst

STRING

Nilai data string merupakan urut-urutan dari karakter yang terletak di antara tanda petik tunggal. Nilai data string akan menenpati memori sebesar banyaknya karakter stringnya ditambah dengan 1 byte. Bila panjang dari suatu string di dalam deklarasi variabel tidak disebutkan, maka dianggap panjangnya adalah 255 karakter.

Contoh :

Var           Kampus : string[10]; Begin           Kampus := ‘Gunadarma’; Write(Kampus); End.

BOOLEAN

Jenis data ini mempunyai nilai TRUE atau FALSE.

Operator untuk jenis data ini adalah :

1.    Logical Operator, yaitu : NOT, AND dan OR

2.    Relational Operator, yaitu : >, <, >=, <=, <> dan =

JENIS DATA NON-STANDARD (USER DEFINED)

ENUMERATED.

Jenis data ini terdiri atas barisan identifier yang terurut dimana setiap identifier tersebut dianggap sebagai suatu individual data item (elemen data yang berdiri sendiri).

Pada saat mendeklarasikan jenis data ini kita harus menuliskan semua elemen-elemennya.

Bentuk umum deklarasinya adalah :

TYPE nama = (data_item_1, data_item_2, ……., data_item_n);

Contoh :

TYPE hari = (sen,sel,rab,kam,jum,sab,ming);

TYPE warna = (red,blue,green,yellow,black,white);

Setelah jenis data ini dideklarasikan, maka selanjutnya kita dapat mendeklarasikan suatu variabel yang berjenis data sama dengan jenis data ini.

Misalnya :

                   TYPE nama_hari = (sen,sel,rab,kam,jum,sab,ming);

                   VAR libur : nama_hari;

Fungsi standar yang dapat digunakan pada jenis data ini adalah :

PRED, SUCC dan ORD

Misalnya :

PRED (sel) = sen

SUCC (sen) = sel

ORD (sen) = 0

ORD (sel) = 1

dsb

SUB-RANGE.

Jenis data ini berupa range dari suatu kumpulan data yang mempunyai urutan..

Bentuk umum deklarasinya adalah :

          TYPE nama = data_item_pertama .. data_item_terakhir;

Contoh :

TYPE   jam_kuliah = 1 .. 10; tanggal = 1 .. 31; abjad = ‘A’ .. ‘Z’; TYPE   bulan = (jan,feb,mar,apr,mei,jun,jul,agt,sep,okt,nov,des); hari = (sen,sel,rab,kam,jum,sab,ming); ata = agt .. jan; pta = feb .. jun; hari_kerja = sen .. jum;

TIPE DATA BERSTRUKTUR.

ARRAY.

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe yang sama.

Array dapat bertipe data sederhana seperti : byte, word, interger, real, boolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen-komponennya mempunyai nilai dengan tipe data tersebut.

Contoh :

Program array_input; uses crt; var bilangan : array[1..50] of integer; begin clsrcr; bilangan[1]:=3; bilangan[1]:=29; bilangan[1]:=30; bilangan[1]:=31; bilangan[1]:=23; writeln(‘nilai variabel bilangan ke 3 =’,bilangan[3]); readln; end.

RECORD.

Tipe data record merupakan tipe data terstruktur. Dalam penggunaan tipe data record dapat dikumpulkan beberapa item data yang masing-masing mempunyai tipe data berbeda-beda. Record dapat berisi beberapa field untuk subyek tertentu.

Deklarasi record

Diawali kata cadangan Record, lalu di ikuti daftar field dan di akhri kata cadangan end;

Contoh :

type data_pegawai = record kd_peg : string[5]; nama : string[15]; alamat : string[20]; gaji : longint; end; var pegawai : data_pegawai; atau langsung di deklarasikan di variabel : var pegawai : record kd_peg : string[5]; nama : string[15]; alamat : string[20]; gaji : longint; end;

Read more »