"Segitiga Pascal"

program segitiga_pascal_kombinasi;
uses wincrt;
var   a,b,c,n:integer;

function fkom(n:integer; m:integer): real;
var x,y,z,i: integer;
begin
x:=1; y:=1; z:=1;
for i:=1 to n do x:=x*i;
for i:=1 to m do y:=y*i;
for i:=1 to (n-m) do z:=z*i;
fkom:=x/(y*z);
end;

Matriks

program matriks;
uses wincrt;
var a,b,c,d,i,invers,p,q,r,s:real;


begin
writeln('Mencari Invers Dan Determinan Matriks Ordo 2x2 ');
gotoxy(5,5);write('a=');read(a);
gotoxy(18,5);write('b=');read(b);
gotoxy(5,7);write('c=');read(c);
gotoxy(18,7);write('d=');read(d);
D := a*d - b*c;
writeln('Det(A) = ',D);

Contoh Program Pascal

Beberapa Contoh Program Pascal Paling Sederhana

 

Nov3

Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis
Skrip Program Pascal	Output Program
program jum_bil; uses wincrt; var i, jum,bil: integer; begin jum:=0; {inisialisasi} for i:=1 to 5 do begin write(‘Masukkan Bilangan = ‘);readln(bil); jum:=jum+bil; end; writeln(‘Jumlah Bilangan = ‘,jum); end.	Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Jumlah Bilangan = 60

Pengenalan Pascal

Sejarah Pascal

Berakar dari Bahasa Algol dan PL/1 pada tahun 60-an di benua Eropa, Pascal disusun oleh Prof.Niklaus Wirth pada tahun 70 dan dipublikasikan tahun 71, Diujicoba pada Komputer CDC 6000 Turbo Pascal bersifat Compiler dan termasuk bahasa tingkat tinggi

1. Sejarah singkat Pascal :

- pascal adalah bahasa pemograman tingkat tinggi karena pascal adalah bahasa pemograman yang terstruktur

- Nama pascal diambil dari nama seorang ahli matematika Blaise Pascal

- Pascal dirancang oleh Prof. Niklaus Wirthdari Switzerland

2. Memulai Pascal :

Klik 2x icon turbo pascal yg ada di Desktop

A. Membuat direktori :

· File-DOS Shell-Rubah direktori dengan mengetik perintah “cd\..”(Change Dir) sampai tampilan seperti “C:\>”.

· Kalau sudah,pada C:\> ketik “md nama_direktori (cth: md lely_6H).

· Kemudian enter.

· Ketik exit untuk keluar dari DOS

B. Rubah Direktori :

· File-Change Dir-Klik 2x C-cari nama direktori msg2

· Ulangi hal ini setiap kali memulai pascal shg semua latihan disimpan didalam folder msg2.

C. Memulai membuat program baru :

· File-New

· Menyimpan File:

· File-Save-Ketik nama file

· Jelaskan!Struktur Program Pascal :