PROGRAM DETERMINAN DAN INVERS

program determinan_invers;

uses wincrt;

var

x,y:array [1..50,1..50] of integer;

i,j,det:integer;

begin

writeln('Masukkan nilai matriks ordo 2 x 2 !');

for i:=1 to 2 do

for j:=1 to 2 do

begin

write('nilai x[',i,',',j,'] = ');readln(x[i,j]);

end;

writeln;

writeln('Bentuk matriks nya');

for i:=1 to 2 do

begin

for j:=1 to 2 do

write(x[i,j]:5);

writeln;

end;

det:=x[1,1]*x[2,2]-x[1,2]*x[2,1];

writeln;

writeln('Determinan matriks = ',det);

y[1,1]:=x[2,2];

y[1,2]:=-x[2,1];

y[2,1]:=-x[1,2];

y[2,2]:=x[1,1];

writeln;

writeln('Invers matriks nya');

for i:=1 to 2 do

begin

for j:=1 to 2 do

write(y[i,j]/det:8:2);

writeln;

end;

end.

PROGRAM MATRIKS

• Penjumlahan Matrik

          program matrik_penjumlahan;

          uses wincrt;

          var a,b,c: array[1..10,1..10] of integer;

          i,j,k1,k2,b1,b2,sum,r:integer;

         begin

         write('Masukkan baris Matrik A = ');readln(b1);

         write('Masukkan kolom Matrik A = ');readln(k1);

         write('Masukkan baris Matrik B = ');readln(b2);

         write('Masukkan kolom Matrik B = ');readln(k2);

         for i:=1 to b1 do

         for j:=1 to k1 do

         readln(a[i,j]);

         writeln;

         for i:=1 to b2 do

         for j:=1 to k2 do

         readln(b[i,j]);

         writeln;

         writeln('Matrik A');

         writeln('==================');

         for i:=1 to b1 do

         begin

         for j:=1 to k1 do

         write(a[i,j],' ');

         writeln;

         end;

         writeln;

         writeln('Matrik B');

         writeln('===================');

         for i:=1 to b2 do

        begin

        for j:=1 to k2 do

        write(b[i,j],' ');

        writeln;

        end;

        writeln;

        writeln('Matrik A*B');

        writeln('================');

        for i:=1 to b1 do

        begin

        for j:=1 to k2 do

        begin

        sum:=0;

        for r:=1 to k1 do

        sum:=sum+a[i,r]*b[r,j];

        c[i,j]:=sum;

        write(c[i,j]:2,' ');

        end;

        writeln;

        end;

        end.

• Perkalian Matriks

          program perkalian_matrix;

          uses crt;

          var

          a,b,c : array [1..50,1..50] of integer;

          i,j,k,x,y,z : integer;

          begin

          clrscr;

          writeln(‘Ukuran matrix A’);

          write(‘Baris : ‘);

          readln(x);

          write(‘Kolom : ‘);

          readln(y);

          writeln;

          writeln;

          writeln(‘Ukuran matrix B’);

          writeln(‘Baris : ‘,y);

          write(‘Kolom : ‘);

          readln(z);

          for i:=1 to x do

          for j:=1 to y do

          begin

          write(‘Elemen A[',i,',',j,'] : ‘);

          readln(a[i,j]);

          end;

          writeln;

          for i:=1 to y do

          for j:=1 to z do

          begin

          write(‘Elemen B[',i,',',j,'] : ‘);

          readln(b[i,j]);

          end;

          for i:=1 to x do

          for j:=1 to z do

          for k:=1 to y do

          c[i,j] := c[i,j] + a[i,k]*b[k,j];

          writeln;

          writeln;

          writeln(‘Hasil dari perkalian Matrix A dengan Matrix B adalah : ‘);

          Writeln;

          for i:=1 to x do

          begin

          for j:=1 to z do

          write(c[i,j],’ ‘);

          writeln;

          end;

          writeln;

          readln;

          end.

CONTOH PROGRAM PASCAL

•  Contoh 1 :

           program penghitung_umur;

           uses wincrt;

           var nama:string;

           umur,tahunlahir:integer;

           begin

           write('Nama : ');

           readln(nama);

           write('Tahun Lahir : ');

           readln(tahunlahir);

           umur:= 2011 - tahunlahir;

           write('Umur : ', umur);

           end.

• Contoh 2 :

          program penghitung_angka;

          uses wincrt;

          var b,n:integer;

          begin

          n:=0;

          repeat b:=1+3*n;

          n:=n+1;

          write (b, ' ');

          until

          n=6;

          end.

• Contoh 3 :

          program mahasiswa;

          uses wincrt;

          var

          i:integer;

          begin

          i:=1; write(i);write(' ');

          repeat

          i:=i+3;

          write(i);write(' ');

          until i=16;

          end.

• Contoh 4 :

          program pemangkatan;

          uses wincrt;

          var a,b,i:integer;n:real;

          begin

          write('A = ');readln(a);

          write('B = ');readln(b);

          n:=1;

          for i:=1 to abs(b) do

          n:=n*a;

          if (b>=0) then

          begin

          writeln('A pangkat B = ',n);

          end

          else

          begin

          writeln('A pangkat B = ',1/n);

          end

          end.

• Contoh 5 :program faktorial;
  uses wincrt;
  var a:real;
  n,i:integer;
  
  begin
  write('n = ');readln(n);
  write('n faktorial = ');
  a:=1;
  if n<0 then write('tidak terdefinisi')
  else
  if n<2 then
  write(1)
  else
  
  begin
  for i:=n downto 2 do
  begin
  write(i,' x ');
  a:=a*i;
  end;
  write(1,' = ',a:0:0);
  end;
  end.    

• Contoh 6 :program segitiga_pascal;
  uses wincrt;
  var
  n,i,j,x:integer;
  
  begin
  n:=1;
  read(x);
  writeln(x);
  for i:=1 to x do
  
  begin
  for j:= 1 to i do
  begin
  write(n,' ');
  n:=n+1;
  end;
  writeln(' ');
  end;
  end.

• Contoh 7 :program deret_fibbonacci;
  uses wincrt;
  var a,b,c,i,n: integer;
  
  begin
  write('masukkan n = ');
  readln(n);
  a:=1; b:=0;
  for i:=1 to n do
  
  begin
  c:=a+b;
  a:=b;
  b:=c;
  write(c,',');
  end;
  end.

PROGRAM KONVERSI

program konversi_biner_desimal;

uses wincrt;

var

   desimal,d,sisa,biner:integer;

begin

     write('Angka Desimal');readln(desimal);

     d:=0;

     repeat

     sisa:=desimal mod 2;

     desimal:=desimal div 2;

     if (d=0) then

     d:=1

     else

     d:= d * 10;

     biner:= biner + sisa * d;

     until desimal=0;

     write('Biner = ',biner);

end.

program konversi_desimal_biner;

uses wincrt;

var

   desimal,d,biner,sisa:longint;

begin

     write('Biner = ');readln(biner);

     d:=0;

     repeat

     sisa:=biner mod 10;

     biner:=biner div 10;

     if (d=0) then

     d:=1

     else

     d:= d*2;

     desimal:=desimal+sisa*d;

     until biner=0;

     write('Angka Desimal = ',desimal);

end.

ALGORITMA

Algoritma..???
mungkin kita masih bingung apa itu algoritma dan gimana cara pengubahannya..
Ayo, baca dengan antusias yaa..:-)

Konversi Desimal ke Biner

1. Mulai d = 1, biner 0
2. Baca desimal
3. Desimal = desimal div 2
4. Sisa = desimal mod 2
5. d baru = d x 10
6. biner baru = biner + (sisa x d)
7. Jika desimal = 0, pergi langkah 9
8. Jika desimal tidak 0, pergi ke langkah 3
9. Cetak biner
10. Selesai

Konversi Biner ke Desimal

1. Mulai
2. Baca biner
3. Biner = biner div 10
4. Sisa = biner mod 10
5. d baru = d x 2
6. Desimal baru = (sisa x d) + desimal
7. Jika biner 0, pergi ke langkah 9
8. Jika biner tidak 0, maka ulangi mulai  langkah 3
9. Cetak desimal
10. Selesai

ARRAY

Array (larik) menyatakan tipe data terstruktur yang berupa kumpulan elemen-elemen

dengan tipe data yang sama. Tipe Array dapat ditulis sebagai berikut:

Array [Indeks_1,…,Indeks_n] of Tipe_Dasar

•  Array Dimensi Satu

Array berdimensi satu merupakan array dengan ciri memiliki tipe indeks hanya satu buah.

Contoh deklarasi variabel dengan tipe array berdimensi satu:

VAR X : ARRAY[1..10] of Integer;

Untuk menyimpan suatu nilai kedalam lokasi array, dapat dilakukan dengan instruksi :

D[i]:=nilai;

atau dimana i adalah indeks array

READLN(D[i]);

Sedangkan untuk menampilkan nilai yang ada di salah satu elemen array dapat dengan

cara:

WRITELN(D[i]); dimana i adalah indeks elemen array

• Array Dimensi Dua

Array berdimensi dua merupakan array dengan ciri memiliki tipe indeks dua buah. Contoh

deklarasi variabel dengan tipe array berdimensi dua:

VAR Y : ARRAY[1..5,1..10] of Integer;

Untuk menyimpan suatu nilai kedalam lokasi array, dapat dilakukan dengan instruksi :

D[i,j]:=nilai;

atau dimana i,j adalah indeks array

READLN(D[i,j]);

Sedangkan untuk menampilkan nilai yang ada di salah satu elemen array dapat dengan

cara:

WRITELN(D[i,j]); dimana i,j adalah indeks elemen array

PERNYATAAN PERULANGAN

Pernyataan perulangan adalah pernyataan yang akan menjalankan pernyataan yang

mengikutinya secara berulang sampai syarat tertertentu terpenuhi. Ada 3 buah pernyataan

perulangan, yaitu FOR, WHILE dan REPEAT.

Statement FOR

Statement FOR adalah suatu perintah yang berfungsi untuk melakukan proses

pengulangan, dimana jumlah pengulangannya sudah diketahui. Bentuk dari statement

FOR adalah:

FOR {Variabel} := {Nilai Awal} TO {Nilai Akhir} DO

BEGIN

{Statement 1}

{Statement 2}

....

{Statement n}

END;

FOR {Variabel} := {Nilai Awal} DOWNTO {Nilai Akhir}

DO

BEGIN

{Statement 1}

{Statement 2}

....

{Statement n}

END;

Jika Nilai Awal < Nilai Akhir gunakan statement FOR TO DO. Sedangkan jika Nilai

Awal > Nilai Akhir gunakan statement FOR DOWNTO DO.

Statement WHILE
Statement WHILE adalah suatu perintah yang berfungsi untuk melakukan proses
pengulangan, dimana pengulangan akan terus dilakukan jika kondisi tertentu dipenuhi.
Jika banyaknya pengulangan diketahui tapi kenaikan atau penurunan pengulangan
tidak sebesar satu, statement IF tidak cocok untuk digunakan. Sebagai alternatif dapat
digunakan statement WHILE atau REPEAT. Sedangkan jika banyaknya pengulangan
tidak diketahui maka statement IF tidak dapat digunakan, sehingga harus digunakan
statement WHILE atau REPEAT. Bentuk dari statement WHILE adalah:
WHILE {Kondisi} DO
BEGIN
{Statement 1}
{Statement 2}
....
{Statement n}
END;

Statement REPEAT

Statement REPEAT adalah suatu perintah yang berfungsi untuk melakukan proses

pengulangan, dimana pengulangan akan berhenti jika kondisi yang tertulis di akhir

pengulangan dipenuhi. Sintak dari statement REPEAT adalah:

REPEAT

{Statement 1}

{Statement 2}

....

{Statement n}

UNTIL {Kondisi};

PERNYATAAN BERSYARAT

Pernyataan bersyarat adalah pernyataan yang akan menjalankan pernyataan yang

mengikutinya sesuai dengan syarat tertertentu. Ada 2 buah pernyataan bersyarat, yaitu IF

dan CASE.

A. Pernyataan IF

Bentuk pernyataan IF:

IF <syarat logika> THEN <Pernyataan>;

Jika syarat logika bernilai Benar maka yang akan dijalankan adalah pernyataan yang

mengikuti THEN, dan sebaliknya jika syarat logika bernilai Salah maka yang akan

dijalankan adalah pernyataan yang mengikuti ELSE. Jika pernyataan yang mengikuti

THEN atau ELSE lebih dari satu maka harus diawali oleh Begin dan diakhiri oleh End.

Statement End sebelum ELSE tidak boleh ada tanda titik koma (;).

B. Pernyataan IF Bersarang (nested)

Jika ada dua pernyataan IF atau lebih, dimana pernyataan IF yang satu berada di dalam

pernyataan IF yang lain, maka pernyataan tersebut disebut Bersarang (nested).

Contoh bentuk pernyataan IF Bersarang:

IF <syarat logika-1> THEN <Pernyataan-1>

ELSE IF <syarat logika-2> THEN <Pernyataan-2>

ELSE IF <syarat logika-3> THEN <Pernyataan-3>

ElSE <Pernyataan-4>;

PERNYATAAN INPUT dan OUTPUT

Dalam bahasa Pascal pernyataan input adalah pernyataan yang digunakan untuk

memasukkan data. Pernyataan input yang ada di Pascal adalah READ dan READLN.

Sedangkan pernyataan output adalah pernyataan yang digunakan untuk menampilkan hasil.

Ada dua pernyataan output yaitu WRITE dan WRITELN.

Pernyataan WRITE dan WRITELN

Bentuk pernyataan WRITE dan WRITELN:

WRITE (<argumen >);

Atau

WRITELN (<argumen>);

Jika pernyataan WRITELN yang digunakan, setelah menampilkan hasil maka kursor ganti

baris. Sedangkan jika pernyataan WRITE yang digunakan, setelah menampilkan hasil

maka kursor tidak ganti baris. Dalam format penulisan WRITE dan WRITELN jika yang

akan ditampilkan adalah suatu kata/kalimat yang tidak disinpan dalam suatu variabel, maka

kata/kalimat tersebut harus ditulis diantara tanda petik tunggal (’)

Pernyataan READ dan READLN

Bentuk pernyataan READ READLN:

READ (<variabel-1, variabel-2,.., variabel-n>) ;

Atau

READLN (<variabel-1, variabel-2,.., variabel-n>) ;

Tiap-tiap data yang dimasukkan harus sesuai dengan tipe variabelnya. Setelah data

dimasukkan, tombol ENTER ditekan. Perbedaan antara READ dan READLN adalah pada

sifat menangani kelebihan data yang diinputkan

- READ : Jika ada kelebihan data, pernyataan ini tidak akan membuangnya. Kelebihan

data tersebut akan diberikan pada pernyataan READ atau READLN berikutnya.

- READLN : Jika ada kelebihan data, pernyataan ini akan membuangnya. Kelebihan data

tersebut tidak akan diberikan pada pernyataan READ atau READLN

berikutnya.

ALL ABOUT PASCAL

Pascal adalah salah satu bahasa pemrograman tingkat tinggi (high level language). Nama

Pascal diambil dari nama seorang ahli matematika dan filosofi terkenal abad 17 dari

Perancis, yaitu Blaise Pascal. Bahasa ini dirancang oleh Prof. Niklaus Wirth dari Technical

University di Zurich, Switzerland. Turbo Pascal adalah salah satu versi Pascal yang paling

popular dan banyak digunakan saat ini.

Struktur Bahasa Pascal

Program dalam bahasa pascal, ditulis dengan struktur sebagai berikut:

Program <Nama> (<Daftar parameter>)

_ Kepala Program

USES

<deklarasi unit>

LABEL

<deklarasi label>

CONST

<deklarasi konstanta>

TYPE

<deklarasi tipe>

VAR

<deklarasi variabel>

<deklarasi fungsi dan prosedur>

_ Bagian Deklarasi

BEGIN

<Pernyataan>

END.

_ Bagian Pernyataan

Kepala Program

Dalam Pascal, posisi kepala program adalah diawal program. Sintak dari kepala

program adalah:

Program <Nama> (<Daftar parameter>)

Penulisan Nama boleh sembarang, tapi harus dimulai dengan huruf dan bukan Reserve

Word (kata baku yang telah digunakan Pascal dan mempunyai definisi tertentu, misal

BEGIN, USES, dsb). Dapat terdiri dari kombinasi huruf, angka dan garis bawah.

Maksimal 127 karakter dan tidak ada perbedaan antara huruf besar dan huruf kecil.

Dalam memberikan Nama sebaiknya yang mempunyai arti sesuai dengan program

yang akan dibuat.

Bagian Deklarasi

Dalam Pascal, semua unit, label, konstanta, tipe, variabel, fungsi dan prosedur yang

akan digunakan harus dideklarasikan terlebih dahulu. Keenam deklrasi tersebut tidak

harus ada semua Sebuah program bisa saja hanya mengandung deklarasi variabel.

Berikut ini adalah bentuk masing-masing deklarasi.

Jenis deklarasi 

Unit

La  Label

3.    Konstanta

4.    Tipe

5.    Variabel

6.    Fungsi dan Prosedur

Bagian Pernyataan

Bagian pernyataan diawal dengan kata BEGIN serta diakhiri dengan kata END dan

tanda titik. Setiap pernyataan diakhiri dengan tanda titik kona (;). Pernyataanpernyataan

yang disusun mengikuti algoritma tertentu diletakkan pada bagian ini

Tipe Data dalam Pascal

Ada beberapa macam tipe data dalam Pascal, diantaranya adalah :

1. Integer, adalah susunan angka yang tidak mengandung koma. Disebut juga

    bilangan bulat. Nilainya terletak antara -32768 s/d 32767.

2. Byte, adalah merupakan bagian dari integer. Nilainya terletak antara 0 s/d 255.

3. Real, merupakan tipe bilangan yang mengandung pecahan. Nilainya terletak antara

    1E-38 s/d 1E+38.

4. Boolean, berhubungan dengan dua keadaan logika. Dapat bernilai True atau False.

5. Char, merupakan tipe yang hanya terdiri dari sebuah simbol karakter ASCII

6. String, merupakan tipe yang terdiri dari sejumlah karakter

SEJARAH PASCAL

Sejarah Pascal

Kayak gimana sih sejarah pascal itu? yuk,, baca artikel ini yaaa...^-^

Blaise Pascal