Program Masukkan Banyak Data dengan Bahasa Pascal

program data;
type
dmhs = ^rmhs;
rmhs = record
nama,nim,jur: string;
end;
var
mhs: array [1..5] of rmhs;
n,i : integer;
begin
write ('masukkan banyak data:');
readln (n);
writeln;
for i := 1 to n do
begin
write ('masukkan nama ke- ',i,':');
readln (mhs[i].nama);
write ('masukkan nim ke- ',i,':');
readln (mhs[i].nim);
write ('masukkan jurusan ke- ',i,':');
readln (mhs[i].jur);
writeln;
end;
for i := 1 to n do
begin
writeln ('nama ke-',i,':',mhs[i].nama);
writeln ('nim ke-',i,':',mhs[i].nim);
writeln ('jurusan ke-',i,':',mhs[i].jur);
writeln;
end;
end.

Read more »

Posted in: BAHASA PASCAL

Program Positif For Negatif dengan Bahasa Pascal

program positifornegatif;
var
x:integer;
begin
writeln('menguji if then else');
write('masukan sebuah angka=  ');readln(x);
if(x>0)then
writeln('x adalah positif')
el
writeln('x adalah bilangan negatif');
end.

Read more »

Posted in: BAHASA PASCAL

Program Konversi Nilai Angka Menjadi Huruf

program konversi;
var
angka:integer;
huruf:string;

begin
writeln('mengkonversi nilai angka menjadi huruf');
write('masukan nilai anda = ');readln(angka);
if (angka>=0) and (angka<=20) then
huruf:='e'
else if ((angka>20) and (angka<=40)) then
huruf:='d'
else if ((angka>40) and (angka<=60)) then
huruf:='c'
else if ((angka>60) and (angka<=80)) then
huruf:='b'
else
huruf:='a';
writeln('nilai anda adalah huruf=',huruf);
end.

Read more »

Posted in: BAHASA PASCAL

Pengenalan Bahasa Pascal

Sejarah Pascal

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

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

II.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 :

Struktur Bahasa Pascal

§ Judul

Program <judulnya>;

Uses <unitnya>;

§ Bagian Deklarasi

Label <namalabelnya>;

Const <nama=nilai constantanya>;

Type <namatype:typedatanya>;

Var <nama_variabelnya>;

Procedure <nama_prosedurnya>;

Function <nama_fungsinya>;

§ Bagian Pernyataan

Begin

<pernyataan-pernyataan>;

End.

1. Judul Program

2. Blok Program, terdiri dari :

§ Bagian Deklarasi : variabel, konstanta, label, tipe, fungsidll

§ Bagian Pernyataan : Diawali dg Begin dan diakhiri dg End./isi program

· Compile/Compiling, Proses untuk mengecek kesalahan instruksi program apakah sudah benar/belum. Caranya : Compile-compile/Alt+F9

· Run, Proses untuk mengcompile sekaligus menjalankan program. Caranya : Run-run/Ctrl+F9

· Menampilkan hasil program : ALT+F5

· Membersihkan layar/tampilan : Clrscr (Clear Screen), dengan menggunakan prosedur Uses Crt (Uses Catode Ray Tube).

· Extentation Pascal :.PAS

II.1. Perintah I/O

Memasukkan data/input : Read=Memasukkan data dlm baris yg sama. Readln=Memasukkan data per baris.

Menampilkan hasil/output : Write=Menampilkan output dlm baris yg sama. Writeln=Menampilkan output perbaris.

II.2. Variabel dan Konstanta

Variabel è data yg nilainya berubah-rubah di dalam program.

BU : Var Identifier: tipe data.

Konstanta è data yg nilainya tetap di dalam program.

BU : Const Identifier=nilai.

II.3. Reserved Word/Kata Cadangan

è merupakan kata2 yg telah didefinisikan oleh turbo pascal. Contoh : Program Begin, End, Var, Const dll

Read more »

Posted in: BAHASA PASCAL

Perulangan Membentuk Digit Biner

program bilanganbinner;
var bilangan : integer;
function decToBin(desimal : integer) : string;
var hasilBagi,sisa : integer;
bin : char;
bilBiner : string;
begin
hasilBagi := desimal div 2;
bilBiner := '';
{ syarat perulangan : selama hasil bagi lebih besar sama dengan 1 };
while (hasilBagi >= 1) do
begin
sisa := desimal mod 2;
if (sisa = 0) then bin := '0'
else if (sisa = 1) then bin := '1';
{ menggabung sisa pada setiap perulangan untuk membentuk digit biner};
bilBiner := bin + bilBiner;
desimal := hasilBagi;
hasilBagi := desimal div 2;
end;
decToBin := '1' + bilBiner;
end;
begin
readln (bilangan);
write('Bilangan binernya : ', decToBin(bilangan));
readln;
end.

Read more »

Posted in: BAHASA PASCAL

Definisi Array dan Pointer

Array adalah sekelompok data sejenis yang disimpan ke dalam variabel dengan nama yang sama, dengan memberi indeks pada variabel untuk membedakan antara yang satu dengan yang lain.

• Larik adalah struktur data statik yang menyimpan sekumpulan elemen yang bertipesama.

• Setiap elemen diakses langsung melalui indeksnya.

• Indeks larik harus tipe data yang menyatakan keterurutan misalnya integer atau karakter.

1. Deklarasi Variable Array

BU : tipe nama_variabel[indeks];

Contoh : float bil[10];

Deklarasi variabel array dengan nama bil yang akan menampung 10 data yang bertipe float. Indeks 10 menunjukkan variabel bil terdiri dari 10 elemen, dimana setiap elemen akan menampung sebuah data. Indeks array dimulai dari nol(0) , sedang nomor elemen biasanya dimulai dari satu(1). Nomor elemen dapat dibuat sama dengan nomor indeks untuk mempermudah pembuatan program yaitu dengan memberi indeks satu lebih banyak dari jumlah data yang dibutuhkan, sehingga menjadi : float bil[11]

Cara Pendefinisian Array

a. Sebagai Peubah

Contoh :

L : array[1..50] of integer

NamaMhs : array[‘a’..’j’] of string

b. Sebagai tipe baru

Contoh :

type LarikInt : array[1..100] of integer

P : LarikInt

c. Mendefinisikan ukuran maksimum elemen larik sebagai konstanta

Contoh :

Const Nmaks = 100

type Larikint : array[1..Nmaks] of integer

P : LarikInt

Cara menterjemahkan ke bahasa C :

#define Nmaks 100

typedef int Larikint[Nmaks+1];

Larikint P;

2. Jenis Array

a. Array Dimensi Satu

Array Satu dimensi tidak lain adalah kumpulan elemen-elemen identik yang tersusun dalam satu baris. Elemen-elemen tersebut memiliki tipe data yang sama, tetapi isi dari elemen tersebut boleh berbeda.

Bentuk umum:

NamaArray[n] = {elemen0, elemen1, elemen2,…..,n};

n = jumlah elemen

Contoh Program:

Output:

b. Array Dimensi Dua

Array dua dimensi sering digambarkan sebagai sebuah matriks, merupakan perluasan dari array satu dimensi. Jika array satu dimensi hanya terdiri dari sebuah baris dan beberapa kolom elemen, maka array dua dimensi terdiri dari beberapa baris dan beberapa kolom elemen yang bertipe sama sehingga dapat digambarkan sebagai berikut:

Bentuk umum:

NamaArray [m][n];

Atau

NamaArray [m][n] = { {a,b,..z},{1,2,…,n-1} };

Contoh:

double matrix[4][4];

bool papan[2][2] = { {true,false},{true,false} };

Pendeklarasian array dua dimensi hampir sama dengan pendeklarasian array satu dimensi, kecuali bahwa array dua dimensi terdapat dua jumlah elemen yang terdapat di dalam kurung siku dan keduanya boleh tidak sama. Elemen array dua dimensi diakses dengan menuliskan kedua indeks elemennya dalam kurung siku.

Contoh program:

Output:

C. Pointer

Pointer merupakan tipe data berukuran 32 bit yang berisi satu nilai yang berpadanan dengan alamat memori tertentu. Sebagai contoh, sebuah variabel P bertipe pointer bernilai 0x0041FF2A, berarti P menunjuk pada alamat memori 0041FF2A. Pointer dideklarasikan seperti variabel biasa dengan menambahkan tanda * (asterik) yang mengawali nama variabel.

Bentuk Umum:

namaVariabel;

Contoh:

float * px;

Statement di atas mendeklarasikan variabel px yang merupakan pointer. Penyebutan tipe data float berarti bahwa alamat memori yang ditunjuk oleh px dimaksudkan untuk berisi data bertipe float.

Read more »

Posted in: STRUKTUR DATA