Program Penjumlahan Dan Pengurangan Matriks

program matrik_uts;
uses wincrt;
var
 a,b,c,d :array[1..10,1..10] of integer;
 x,y,kol,bar:integer;
begin
  write('jumlah kolom =');readln(kol);
  write('jumlah baris =');readln(bar);
  writeln;
  writeln('masukkan matrik  a');
        for x:=1 to bar do
  begin
        for y:=1 to kol do
  begin
    write('[',x,':',y,'] = ');readln (a[x,y]);
end;
end;
 writeln('masukkan matrik  b');
        for x:=1 to bar do
  begin
        for y:=1 to kol do
  begin
    write('[',x,':',y,'] = ');readln (b[x,y]);
end;
  end;

writeln('masukkan matrik  c');
        for x:=1 to bar do
  begin
        for y:=1 to kol do
  begin
    write('[',x,':',y,'] = ');readln (c[x,y]);
end;
  end;
      for x:=1 to bar do
  begin
        for y:=1 to kol do
        begin d[x,y]:= a[x,y]+b[x,y]-c[x,y];
/>          end;
          end;
        writeln('hasil penjumlahan');

        for x:=1 to bar do
  begin
        for y:=1 to kol do
  begin
    write (d[x,y]:4);
end;

writeln;
end;
    
end.

Tampilan 

Read More ->>

PROGRAM MATRIX

PROGRAM MATRIX;
uses
  WinCrt;
var
A,B,C:ARRAY[1..10,1..10] OF INTEGER;
X,Y,KOL,BAR:INTEGER;
BEGIN
FOR X:=1 TO 5 DO
BEGIN
FOR Y:=1 TO 5 DO
BEGIN
   C[X,Y]:=0;
   IF X+Y=6 THEN C[X,Y]:=1;
   WRITE(C[X,Y]:4);
 END;
 WRITELN;
 END;

 END.

Read More ->>

Program Perkalian Matrix (Turbo Pascal)

Program kali_matriks;
uses wincrt;
type
matriksint = array [1..20,1..20] of integer;
var
M,a,b : matriksint; p , q: integer;

procedure bacamatriks (var M:matriksint;Nbar,Nkol:integer);
var i,j: integer;
begin
 for i:=1 to Nbar do
   begin
    for j:= 1 to Nkol do
     begin
       write ('M[',i,',',j,'] = ');readln (M[i,j]);
     end;
   end;
end;

procedure tulismatriks (var M:matriksint;Nbar,Nkol:integer);
var i,j : integer;
begin
 for i:= 1 to Nbar do
 begin
   for j:= 1 to Nkol do
     begin
       write (M[i,j]:4);
     end;
   writeln;
 end;
end;

procedure kalimatriks (a,b:matriksint; Nbar,Nkol : integer);
var
hasil:matriksint;
i,j,z : integer;
begin
  for i := 1 to Nbar do
  begin
   for j := 1 to Nkol do
   begin
   hasil[i,j] := 0;
    for z := 1 to Nbar do
    hasil[i,j] := hasil[i,j]+a[i,z]*b[z,j];
    begin
    gotoxy (j*5,i*23);
    write(hasil[i,j]:4) ;
    end;
   end;
   writeln;
  end;
end;
begin
  writeln ('MATRIK A ');
  write ('masukkan jumlah baris : '); readln (p);
  write ('masukkan jumlah kolom : '); readln (q);
  bacamatriks (a,p,q);
  write ('A = ');
  writeln;
  tulismatriks (a,p,q);
  writeln;
  writeln ('MATRIKS B ');
  write ('masukkan jumlah baris : '); readln (p);
  write ('masukkan jumlah kolom : '); readln (q);
  bacamatriks (b,p,q);
  write ('B = ');
  writeln;
  tulismatriks (b,p,q);
  writeln ('hasil perkalian matriks adalah : ');
  kalimatriks (a,b,p,q);
end.

Tampilan Saat  Di running

Read More ->>

Matrix Invers

Definisi Matrix Invers

Turbo Pascal Matrix Invers


program matriks_invers;
uses wincrt;

var n,i,j,x,y,k,l,m: integer;
a:array[1..20,1..20] of real;

begin
{gotoxy (10,1);}
writeln ('nama : misbahul munir');
writeln;
writeln ('nim  : 111221067     ');
writeln;
writeln ('Program Pencarian Invers Matriks');
writeln;
writeln ('Masukkan ordo matrik (n x n).');
write ('n : ');
readln (n);
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
write ('A(',i,',',j,') : ');
readln (a[i,j]);
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (' ',a[i,j]:0:0);
writeln;
end;

{MATTRIK SISI KANAN}

for j:=n+1 to n+n do
begin
i:=j-n;
a[i,j]:=1;
end;
for j:=n+1 to n+n do
begin
for i:=1 to n do
if i<>j-n then a[i,j]:=0;
end;

{PROSES PENGINVERSAN}
for i:=1 to n do
begin
for j:=1 to n+n do
begin
if i<>j then a[i,j]:=a[i,j]/a[i,i];
end;
for j:=1 to n+n do
begin
if i=j then a[i,j]:=1;
end;

{PENJUMLAHAN KESATU BARIS ELEMENT}
for l:=1 to n do
begin
if i<>l then
begin
for j:=i+1 to n+n do
begin
a[l,j]:=a[l,j]-(a[i,j]*a[l,i]);
end;
end;
end;

{PEMBUATAN NOL DISEKITAR MATRIKS KIRI}
for k:=1 to n do
begin
if i<>k then
begin
a[k,i]:=0;
end;
end;
end;

{PENCETAKAN}
readln;
writeln('Maka invers dari matrik adalah :');
for i:=1 to n do
begin
for j:=n+1 to n+n do
write (' ',a[i,j]:0:2);
writeln;
end;

readln;
end.

Get paid to share your links!

Read More ->>

PROGRAM KOMBINASI FAKTORIAL

program kombinasi_faktorial;
uses wincrt;
var
fn,fk,fn_k,Kombinasi:real;
i,n,k:integer;
begin
write('Masukkan bilangan n =');readln(n);
write('Masukkan bilangan k =');readln(k);
fn:=1;
fk:=1;
fn_k:=1;
for i:= 2 to n do{Menghitung n faktorial}
fn:=fn*i;
for i := 2 to k do{Menghitung k faktorial}
fk:=fk*i;
for i:= 2 to (n-k) do{ menghitung n-k faktorial}
fn_k:=fn_k*i;
kombinasi:=fn/(fk*fn_k);
writeln(n,' Kombinasi ',k, ' = ',Kombinasi:0:0);

write('');writeln;
write('');writeln;
write('  MATERI KOMBINASI FAKTORIAL  ');writeln;
write('   NAMA   :  MISBAHUL MUNIR   '); writeln;
write('     NO NIM :  111221067     '); writeln;
write('www.munirmaestro.blogpsot.com');writeln;
end.

Get paid to share your links!

Tampilan Running 

Read More ->>

Pascal For Windows xp,7 dan 8

Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal

Get paid to share your links!

umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.
Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS.

== Sejarah ==

Turbo Pascal pada awalnya adalah kompiler Blue Label Pascal yang dibuat untuk sistem operasi komputer mikro berbasis kaset, NasSys, milik Nascom tahun 1981 oleh [[Anders Hejlsberg]]. Kompiler tersebut ditulis ulang untuk CP/M dan dinamai Compas Pascal, dan kemudian dinamai Turbo Pascal untuk sistem operasi MS-DOS dan CP/M. Versi Turbo Pascal untuk komputer Apple Macintosh sebenarnya pernah ditembangkan tahun 1986, namun pengembangannya dihentikan sekitar tahun 1992. Versi-versi lain pernah tersedia pula untuk mesin-mesin CP/M seperti DEC Rainbow dalam beberapa penembangan.

=== Versi Dos ===

Kompiler Turbo Pascal didasari pada kompiler Bule Laber Pascal secara resmi dihasilkan untuk NasSys cassette-based operating system dari [[Nascom]] mikrokomputer pada 1981 oleh [[Anders Hejlsberg]]. Borland melisensikan inti kompiler "PolyPascal" milik Hejlsberg ('''Poly Data''' adalah nama dari perusahaan Hejlsberg di Denmark), dan menambahkan tampilan muka dan editor. Anders Hejlsberg bergabung dengan perusahaan sebagai karyawan dan arsitek untuk seluruh versi dari kompiler Turbo Pascal dan satu dari tiga versi dari Borland [[Embarcadero Delphi|Delphi]].<ref> name="tp10".((cite web | url=http://edn.embarcadero.com/article/20693 | title=Antique Software: Turbo Pascal v1.0 | first=David | last=Intersimone | date=2000-02-01 | publisher=Embarcadero Technologies))</ref>
Kompiler pertama sekali dirilis sebagai Compas Pascal untuk [[CP/M]], dan kemudian dirilis pada 20 November 1983 sebagai Turbo Pascal untuk CP/M, CP/M-86 {contoh komputer [[Apple II]] yang dipasangkan dengan [[Z-80 SoftCard]]) dan mesin DOS. Pada debut pertama a di pasar Amerika, Turbo Pascal dijual 49.99 [[United States dollar|USD]]. Kompiler Pascal yang terintegerasikan memiliki kualitas yang sangat bagus dibandingkan dengan produksi Pascal yang lain pada saat itu dan juga sangat diterima dikalangan umum.

Nama [[Turbo]] diambil karena berhubungan dengan kecepatan kompuladi dari produksi exekute. Siklus edit/compile/run lebih cepat dibandingkan implementasi dari Pascal yang lain karena semuanya berhubungan dengan membangun program yang disimpan di [[RAM]], dan karena ini merupakan kompiler sekali yang ditulis pada bahasa [[Assembly]]. Kompilasi terjadi dengan sangat cepat dibandingkan dengan bahasa yang lain (bahkan kompiler Borland untuk [[bahasa C]]), dan waktu programmer juga menjadi hemat sejak program dapat dikompile dan dijalankan dari IDE. Kecepatan file execute [[COM]] adalah terobosan untuk developer yang hanya memiliki satu pengalaman dalam mikrokomputer program seperti BASIC.

[[Bill Gates]] melihat kesuksesan dari Turbo Pascal pada kehidupan pribadi dan tidak dapat mengerti kenapa produk [[Microsoft]] sangat lambat. Dia melampiaskan kemarahannya pada [[Greg Whitten]] [direktur programming di Microsoft Languages] dan berteriak padanya selama satu jam. Dia tidak dapat mengerti kenapa Kahn dapat mengalahkan kompetitor kuat seperti Microsoft.<ref>{{cite book |last1=Wallace | publisher=[[John Wiley & Sons]] | isbn=0471568864 | page=277 | chapter=Growing Pains }}</ref>

IDE masih sangat canggih sampai sekarang, ketika sumber daya komputer pada PC IBM sangat terbatas (desain IBM memiliki keterbatasan yang besar sehingga performanya tidak dapat melawan produk enterprise yang menguntungkan IBM). IDE sangat simple dan intuitif, dan menu sistem yang sangat terorganisir dengan baik. Versi terbaru dari penggunaan editor; Wordstar key functions, menjadi standar pada saat ini. Versi selanjutnya dari IDE, didesain untuk PC dengan mengecilkan ruang pada disk dan memory, yang dapat menampilkan definisi dari kata kunci dari bahasa dengan menempatkan kursor pada kata kunci dan menekan F1. Definisi juga menampilkan kode contoh. Ini memberikan pelajaran kepada programmer yang belum handal dengan menggunakan IDE, tanpa membutuhkan pertolongan dari buku.

=== Versi 1 hingga versi 3 ===
[[Berkas:Turbo pascal 30 cover.jpg|thumb|Halaman depan buku panduan Turbo Pascal 3.0]]
Borland membeli lisensi atas kompiler PolyPascal yang ditulis oleh Anders Hejlsberg (Poly Data adalah nama perusahaan yang didirikannya di [[Denmark]]), dan menambahkan antar muka pengguna serta editor. Anders kemudian bergabung sebagai karyawan dan menjadi arsitek atas semua versi kompiler Turbo Pascal dan tiga versi pertama [[Borland Delphi]].<ref>{{cite web|url=http://community.borland.com/article/0,1410,20693,00.html|title=Antique Software: Turbo Pascal v1.0}}</ref>

Versi pertama dari Turbo Pascal, yang kemudian disebut sebagai versi 1, memiliki unjuk kerja yang sangat cepat dibandingkan kompiler pascal untuk komputer mikro lainnya. Kompiler tersebut tersedia untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, dan penggunaannya sangat luas pada masa itu. Versi Turbo Pascal untuk CP/M saat itu bisa digunakan pada komputer Apple II yang sangat populer jika digunakan dengan sebuah Z-80 SoftCard, produk perangkat keras pertama yang ditembangkan microsoft di tahun 1980.
Pada saat itu CP/M menggunakan format berkas ''executable'' yang sederhana dengan menggunakan ekstensi .COM; sistem operasi MS-DOS bisa menggunakan baik .COM (tidak kompatibel dengan format yang terdapat pada CP/M) maupun format .EXE. Turbo Pascal pada saat itu hanya mendukung kode biner berformat .COM, pada masa itu hal tersebut tidak menjadi suatu bentuk keterbatasan. Perangkat lunak Turbo Pascal itu sendiri merupakan sebuah berkas berekstensi .COM dan berukuran sekitar 28 kilobita, termasuk editor, kompiler, dan ''linker'', dan rutin-rutin pustaka. Efisiensii proses edit/kompilasi/jalankan lebih cepat dibandingkan dengan implementasi paskal pada kompiler lainnya disebabkan semua elemen yang terkait dalam pengembangan program diletakkan pada [[memori|memori komputer]] (RAM), dan karena kompilernya sendiri merupakan kompiler berjenis ''single-pass compiler'' yang ditulis dengan bahasa [[assembler]]. Unjuk kerja proses kompilasi sangat cepat dibandingkan dengan produk lain (bahkan dibandingkan dengan kompiler [[C (bahasa pemrograman)|C]] milik Borland sendiri).

Ketika pertama kali versi Turbo Pascal muncul pada tanggal 20 November 1983, jenis IDE yang digunakannya masih terbilang baru. Pada debutnya terhadap pasar perangkat lunak di [[Amerika Serikat|Amerika]], perangkat lunak tersebut dibandrol dengan harga USD$49.99. Kualitas kompiler pascal terintegrasi terdapat dalam Turbo Pascal sangat baik dibandingkan kompetitor lain dan atas fitur-fitur tersebut ditawarkan dengan harga yang terjangkau.

Versi 2 dan 3 merupakan pengembangan lebih lanjut dari versi sebelumnya, mampu berkerja dalam memori, dan menghasilkan berkas biner berekstensi .COM/.CMD. Dukungan atas sistem operasi CP/M dan CP/M-86 dihentikan setelah versi 3.

=== Bahasa Assembly ===

Saat seluruh versi dari Turbo Pascal dapat memasukkan [[kode mesin]], versi selanjutnya memberikan kemampuan untuk berintegrasi dengan mudah pada [[bahasa Assembly]] tanpa pascal.
Dukungan untuk 8086 [[mode memory]] disediakan dengan inline assembly, pilihan kompiler, dan ekstensi bahasa seperti kata kunci yang "pasti".

=== Versi-versi lanjutan ===

Versi 4, ditembangkan tahun 1987, merupakan perangkat lunak yang ditulis ulang untuk keseluruhan sistem. Kompiler menghasilkan berkas biner berekstensi .EXE pada MS-DOS, dan tidak lagi .COM. Sistem operasi CP/M dan C/M-86 tidak lagi didukung pada versi kompiler ini. Versi ini pula memperkenalkan sebuah antar muka berlayar penuh dengan yang dilengkapi dengan menu tarik; versi-versi awal memilik layar menu berbasis teks; dan editor berlayar-penuh. [[Microsoft Windows]] belum ada saat versi ini ditembangkan, dan bahkan pemanfaatan [[tetikus]]-pun masih jarang.

Versi 5.x diperkenalkan dengan layar biru yang kemudian menjadi ciri khas yang sangat familiar, yang kemudian menjadi merek dagang perusahaan perangkat kompiler MS-DOS sampai era DOS berakhir di pertengahan tahun 1990-an.

Versi terakhir yang pernah ditembangkan adalah versi 7. Borland Pascal 7 terdiri atas sebuah IDE, dan kompiler untuk MS-DOS, DOS terekstensi, dan program Windows 3.x. Turbo Pascal 7 di sisi lain hanya bisa membuat program MS-DOS standar. Perangkat lunak tersebut dilengkapi pula dengan pustaka grafis yang mengabstraksi pemrograman dalam menggunakan beberapa driver grafis eksternal, namun unjuk kerja pustaka ini tidak memuaskan.

== Bahasa Perakit ==

 Meski semua versi Turbo Pascal mendukung ''inline machine code'' kode mesin yang disertakan dalam baris kode sumber bahasa pascal, versi-versi berikutnya mendukung integrasi [[bahasa rakitan|bahasa perakit (Assembly)]] dengan Pascal secara mudah. Hal ini memungkinkan pemrogram untuk meningkatkan unjuk kerja eksekusi program lebih lanjut, selain itu, memungkinkan pemrogram untuk mengakses perangkat keras secara langsung.

Dukungan atas model memori atas prosesor 8086 tersedia melalui ''inline assembly'', opsi kompiler, dan eksensi bahasa seperti menggunakan kata kuci "absolute".

 == Suksesi ==

        
Pada tahun 1995 Borland menghentikan pengembangan Turbo Pascal dan menggantinya dengan [[CodeGear Delphi|Delphi]], berbasis Object Pascal (bahasa [[Pascal (bahasa pemrograman)|Pascal]] yang telah dilengkapi dengan fitur [[pemrograman berorientasi obyek]]). Perangkat lunak tersebut membawa banyak konsep baru kepada pengguna Turbo Pascal seperti konsep pemrograman berbasis RAD (singkatan dari ''rapid application development''). Meski demikan, versi 32 bit Delphi masih mendukung cukup banyak aspek-aspek yang ada pada Turbo Pascal.

Beberapa produk lain yang kompatibel dengan Turbo Pascal juga bermunculan seperti Free Pascal dan Virtual Pascal.

== Pendidikan ==

Borland Pascal masih digunakan sebagai materi yang dipelajari sebagai mata pelajaran atau mata kuliah di beberapa sekolah, dan universitas di [[Jerman]], dan [[Amerika Serikat|Amerika]]. Di Beligia, Romania, Serbia, Moldova dan Bulgaria Pascal digunakan bahkan di sekolah menengah tingkat pertama. Namun di Afrika selatan, Pascal tidak lagi digunakan, melainkan menggunakan Delphi dan Java.

Beberapa kalangan guru lebih memilih Borland Pascal 7, atau Turbo Pascal 5.5 disebabkan karena lebih sederhana dibandingkan IDE modern yang ada saat ini (seperti Visual Studio, atau Borland JBuilder), dengan demikian meraka dapat memfokuskan pengajaran lebih banyak pada sisi bahasa, dan bukan pada bagaimana cara mengoperasikan IDE tersebut. Selain dari itu, perangkat lunak tersebut tersedia secara gratis dan bisa diunduh dari situs resminya.

== Contoh kode ==

             
* Bahasa Pascal tidak bersifat ''case sensitive''.
* Secara historis, komentar dalam bahasa pascal diidentifikasikan sebagai <code>{ seperti ini }</code>, atau <code>(* seperti ini *)</code>, dan bisa terdiri atas beberapa baris. Versi lanjutan Borland Pascal juga mendukung model komentar seperti yang terdapat pada C++. <code>// seperti ini </code>, yang berlaku pada satu baris.
* Sintaksis <code>case</code> yang lebih fleksibel daripada Pascal standar.
* Himpunan hanya bisa memiliki hingga 2⁸ (256) anggota.
* Standar, string dengan panjang yang tetap didukung, namun terdapat pula tipe data <code>String</code> yang lebih fleksibel.
 

 

 

 

 

Berikut ini adalah contoh klasik program [[Hello world|Halo dunia]] dengan Turbo Pascal:
<source lang="Pascal">
begin
  WriteLn('Halo dunia');
end.
</source>

Dan berikut ini contoh program yang meminta masukan nama dan menuliskannya kembali di layar sebanyak seratus kali:
<source lang="Pascal">
program TulisNama;

var
  ANama: String; { Deklarasi variabel Name sebagai string }
  AUlang: integer; { variabel yang digunakan untuk perulangan }
begin
  Write('Masukkan nama anda: ');
  Readln(ANama); { Readln akan membaca masukan yang dientrikan oleh pengguna }
  for AUlang := 1 to 100 do
    WriteLn('Halo ', ANama)
end.

Read More ->>