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

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

Read more »

Posted in: STRUKTUR DATA