Contoh Program Terapan

CONTOH PROGRAM MENGHITUNG NILAI PHI
program menghitung_phi;
uses wincrt ;
var
   hasil :real;

begin
     hasil:=22/7;
     writeln(hasil);
end.

Contoh Program Matrik

CONTOH PROGRAM BENTUK MATRIK

program matriks;
uses wincrt;
var
x:array[1..100,1..100] of integer;
p,l,i,j:integer;
begin
write('banyaknya kolom = '); read(p);
write('banyaknya baris = '); read(l);
 writeln('tulis kebawah sebanyak baris kali kolom');
for i:=1 to l do
for j:=1 to p do
readln(x[i,j]);
writeln('bentuk matriknya : ');
for i:=1 to l do
begin
for j:=1 to p do
write(x[i,j],' ');
writeln;
end;
end.

Contoh Program Statistika

CONTOH PROGRAM MEAN

program rata_rata;
uses wincrt;
var
i,n: integer;
x,sum,mean:real;
begin
write('banyaknya data = ');
readln(n);
sum:=0;
for i:=1 to n do
begin
writeln('data ke',i,'=');
readln(x);
sum:=sum+x;
end;
mean:=sum/n;
writeln('rata-rata = ',mean:9:4);
end.

Contoh Program Konversi

CONTOH PROGRAM KONVERSI BINER KE ANGKA
Program konversi_biner;
uses wincrt;
var   
     desimal,b,sisa,biner:integer;
begin
     write (' angka biner '); readln (biner);
    b:=0;
      repeat 
     sisa:= biner mod 10;
     biner:= biner div 10;
     if (b=0) then
     b:=1
     else
     b:=b*2;
    desimal:= desimal+sisa*b;
     until biner = 0;

      write ('desimal=', desimal );
    
end.

Contoh Program Faktorial

CONTOH PROGRAM FAKTORIAL PAKAI FOR TO DO

program faktorial;
uses wincrt;
var
i,n,f:integer;
begin
readln(n); f:=1;
for i:=1 to n do
    begin
    f:=f*i;
    end;
    writeln(n,' faktorial = ',f);
end.

Contoh Program Deret

CONTOH PROGRAM DERET GENAP

program deret_genap;
uses wincrt;
var
i:integer;
begin
i:=2; write(2,' ');
repeat
i:=i+2; write(i,' ');
until i=10;
end.

Contoh Program Bentuk Segitiga

CONTOH PROGRAM SEGITIGA SATU KE SEPULUH

program segitiga_satu_ke_sepuluh;
uses wincrt;
var
n,i,j:integer;
begin
n:=1;
for i:=1 to 4 do
    begin
         for j:=1 to i do
         begin
         write(n,' ');
         n:=n+1;
         end;
         writeln(' ');
         end;
end.

Contoh Program Bentuk Bintang

CONTOH PROGRAM BERBENTUK BINTANG

program bintang_segitiga;
uses wincrt;
var
a,b,c: integer;

begin
readln(a);
for b:=a downto 1 do
begin
for c:=1 to a do
write('*');
writeln;
a:=a-1;
end;
end.

Contoh Program Dasar

CONTOH PROGRAM PENJUMLAHAN

program penjumlahan_sederhana;
uses wincrt ;
var
   a,b,hasil :integer;

begin
 write('a= '); readln(a);
 write('b= '); readln(b);  
 hasil:=a+b;
 writeln('a + b = ',hasil);
end.

Materi Program Pascal BAB V

BAGIAN V

ARRAY

A. 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;

Materi Program Pascal BAB IV

BAB IV

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.

A. 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

Materi Program Pascal BAB III

BAB III

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>;

IF <syarat logika> THEN <Pernyataan-1>

ELSE <Pernyataan-2> ;

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 (;).

IF <syarat logika> THEN begin

<Pernyataan-11>;

<Pernyataan-12>;

.

.

<Pernyataan-1n>;

end

ELSE begin

<Pernyataan-21>;

<Pernyataan-22>;

.

.

<Pernyataan-2m>;

end;

Materi Program Pascal BAB II

BAB II

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.

A. Pernyataan WRITE dan WRITELN

Bentuk pernyataan WRITE dan WRITELN:

WRITE (<argumen >);

Atau

WRITELN (<argumen>);

Materi Program Pascal BAB I

BAB I

PENGANTAR PASCAL

A. Program Turbo 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. Bentuk tampilan awal Turbo Pascal adalah sebagai

berikut:

Mengenal Pascal

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Kelebihan Pascal :

Kelebihan dari bahasa pemrograman Pascal adalah:

Sejarah Komputer

·        Pengertian Komputer

Komputer adalah alat yang dipakai untuk mengolah data menurut perintah yang telah dirumuskan. Secara luas, Komputer didefinisikan sebagai suatu peralatan elektronik yang terdiri dari beberapa komponen, yang dapat bekerja sama antara komponen satu dengan yang lain untuk menghasilkan suatu informasi berdasarkan program dan data yang ada. Adapun komponen komputer adalah meliputi : Layar Monitor, CPU, Keyboard, Mouse dan Printer (sbg pelengkap). Tanpa printer komputer tetap dapat melakukan tugasnya sebagai pengolah data, namun sebatas terlihat dilayar monitor belum dalam bentuk print out (kertas).

Dalam definisi seperti itu terdapat alat seperti slide rule, jenis kalkulator mekanik mulai dari abakus dan seterusnya, sampai semua komputer elektronik yang kontemporer. Istilah lebih baik yang cocok untuk arti luas seperti "komputer" adalah "yang memproses informasi" atau "sistem pengolah informasi."

Saat ini, komputer sudah semakin canggih. Tetapi, sebelumnya komputer tidak sekecil, secanggih, sekeren dan seringan sekarang. Dalam sejarah komputer, ada 5 generasi dalam sejarah komputer.

·       Generasi komputer

a)     Generasi Pertama

Pada tahun 1941, Konrad Zuse, seorang insinyur Jerman membangun sebuah komputer, Z3, untuk mendesain pesawat terbang dan peluru kendali.

Pada tahun 1943, pihak Inggris menyelesaikan komputer pemecah kode rahasia yang dinamakan Colossus untuk memecahkan kode rahasia yang digunakan Jerman. Kedua, keberadaan mesin ini dijaga kerahasiaannya hingga satu dekade setelah perang berakhir.

Howard H. Aiken (1900-1973), seorang insinyur Harvard yang bekerja dengan IBM, berhasil memproduksi kalkulator elektronik untuk US Navy. Kalkulator tersebut berukuran panjang setengah lapangan bola kaki dan memiliki rentang kabel sepanjang 500 mil. The Harvard-IBM Automatic Sequence Controlled Calculator, atau Mark I, merupakan komputer relai elektronik. Ia menggunakan sinyal elektromagnetik untuk menggerakkan komponen mekanik. Mesin tersebut beropreasi dengan lambat (ia membutuhkan 3-5 detik untuk setiap perhitungan) dan tidak fleksibel (urutan kalkulasi tidak dapat diubah). Kalkulator tersebut dapat melakukan perhitungan aritmatik dasar dan persamaan yang lebih kompleks.

Electronic Numerical Integrator and Computer (ENIAC), yang dibuat oleh kerjasama antara pemerintah Amerika Serikat dan University of Pennsylvania. Terdiri dari 18.000 tabung vakum, 70.000 resistor, dan 5 juta titik solder, komputer tersebut merupakan mesin yang sangat besar yang mengonsumsi daya sebesar 160kW. Komputer ini dirancang oleh John Presper Eckert (1919-1995) dan John W. Mauchly (1907-1980), ENIAC merupakan komputer serbaguna (general purpose computer) yang bekerja 1000 kali lebih cepat dibandingkan Mark I.