ini dunia saya
terima kasih anda telah mengunjungi blog saya...:D
mari belajar pascal !!!
Pascal
(atau bahasa pemrogaman)Pascal adalah bahasa pemrogaman 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.
Tipe Data
| Tipe Data | Deskripsi (range variabel) |
|---|---|
| Byte | angka dari 0 sampai 255 |
| Integer | angka dari -32768 to 32767 |
| Real | semua nilai pecahan dari 1E-38 to 1E+38 |
| Boolean | nilai TRUE atau FALSE |
| Char | semua karakter dari tabel ASCII |
| String | semua huruf, spasi, frase |
yuukk latihan pascal menggunakan turbo pascal :)
program if sederhana
program suhu;
uses wincrt;
var
n : integer;
begin
clrscr;
write('masukkan suhu: ');readln(n);
if n<=0 then writeln('beku')
else
if n>0 then writeln('cair');
if n>=90 then writeln('uap');
end.
bilangan ganjil dan genap
program bilangan_nol;
uses wincrt;
var
n:integer;
begin
clrscr;
write('masukkan bilangan : ');
readln(n);
if n = 0 then writeln('bilangan nol') else
if n mod 2 = 0 then writeln('genap');
if n mod 2 = 1 then writeln('ganjil');
end.
program sisa hasil bagi
program hasil_sisa_bagi;
uses wincrt;
var
m,n,j,k : integer;
begin
clrscr;
write('masukkan bilangan: ');readln(n);
write('masukkan bilangan: ');readln(m);
j:=n div m;
k:=n mod m;
writeln('hasil bagi: ',j);
writeln('sisa hasil bagi: ',k);
end.
program if..then dalam isi biodata
program BIODATA;
uses wincrt;
var
nama,nim,prodi,ttl,alamat:string;
jenis_kelamin:char;
begin
clrscr;
writeln('=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+');
writeln(' BIODATA ');
writeln('=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+');
write('nama :');readln(nama);
write('nim :');readln(nim);
write('prodi :');readln(prodi);
write('ttl :');readln(ttl);
write('alamat :');readln(alamat);
write('jenis_kelamin L/P:');readln(jenis_kelamin);
writeln('--------------------------------------');
clrscr;
writeln('BERIKUT BIODATA ANDA');
writeln('nama : ', nama);
writeln('nim : ', nim);
writeln('prodi : ', prodi);
writeln('ttl : ', ttl);
writeln('alamat : ', alamat);
writeln('jenis_kelamin L/P:',jenis_kelamin);
if jenis_kelamin = 'L' then
writeln('jenis_kelamin|laki-laki')
else
writeln('jenis_kelamin|perempuan');
end.
program if..else penghitungan gaji
program gaji;
uses wincrt;
var a,b,c,d:string;
e:integer;
begin
clrscr;
write('nama: ');readln(a);
write('alamat: ');readln(b);
write('jenis kelamin: ');readln(c);
write('jabatan: ');readln(d);
write('jml anak: ');readln(e);
begin
clrscr;
writeln('nama: ',a);
writeln('alamat: ',b);
if c='l' then writeln('jenis kelamin=laki laki')
else writeln('jenis kelamin:perempuan');
if d='manager' then writeln('gaji: ',1000000+100000*e+500000)
else writeln('gaji: ',1000000+50000*e+100000);
end;
end.
ARRAY..apa itu ?
Array (larik) merupakan tipe data tersetruktur dimana didalamnya terdiri dari komponen – komponen yang mempunyai tipe data yang sama. Didalam suatu array jumlah komponen banyaknya adalah tetap. Didalam suatu larik atau array setiap kompoenen ditunjukan oleh suatu index yang unik. Index dari setiap komponen array menunjukan urutan data atau identitas yang mewakili data yang ada didalamnya.
Deklarasi Array
Didalam penulisan bahasa pemograman setiap penggunaan array harus dideklarsikan terlebih dahulu. Pendeklarasian array diawali dengan nama variabel array diikuti dengan indeks array yang dituliskan didalam tanda “[]” , diikuti dengan kata cadangan of dan tipe data yang dibutuhkan.
Bentuk Umum Penulisan
Tanda_pengenal : array [..tipe index ..] of tipe data;
Contoh :
Var
A : array[1..4] of integer;
B : array[1..5] of string;
C: array[1..10] of real;
Keterangan :
A,B,C merupakan tanda pengenal/ nama variabel dari array;
1..4 : merupakan tipe indek dari array, yang menunjukan banyaknya data yang mampu disimpan.
Integer : menunjukan bahwa data yang diinput berupa bilangan bulat.
Contoh array berdimensi satu:
*menghitung rata-rata nilai siswa dengan array*
program ika;
uses wincrt;
var
x:array [1..10] of integer;
i,sum: integer;
rata:real;
begin
writeln('program array');
for i:=1 to 3 do
begin
write('masukkan nilai siswa ke',i,': ');
readln(x[i]);
end;
clrscr;
writeln('daftar nilai');
for i:=1 to 3 do
begin
sum:=sum+x[i];
end;
rata:=sum/3;
writeln;
writeln('total bilangan: ',sum:3);
writeln('rata-rata: ',rata:3:2);
end.
contoh array berdimensi dua:
*input matriks*
program matriks;
uses wincrt;
var
x:array[1..100,1..100] of integer;
i,j,baris,kolom: integer;
begin
clrscr;
writeln('***matriks***');
write('masukkan jumlah baris: ');readln(baris);
write('masukkan jumlah kolom: ');readln(kolom);
writeln;
gotoxy (1,5);write('a: ');
for i:= 1 to baris do
for j:= 1 to kolom do
begin
gotoxy(j*5,i*2+3);
read(x[i,j]);
end;
end.
procedure
Prosedur adalah subprogram yang menerima masukan tetapi tidak mempunyai keluaran secara langsung. Cara mendeklarasikan sebuah prosedur adalah sebagai berikut :
procedure A; { nama prosedur adalah A }
begin
{ statement }
end;
contoh procedure memilih operasi bilangan:
program ika;
uses wincrt;
procedure penjumlahan;
var
a,b,x,y:integer;
begin
write('masukkan angka1: ');readln(x);
write('masukkan angka2: ');readln(y);
writeln('hasil: ',x+y);
end;
procedure pengurangan;
var
a,b,x,y:integer;
begin
write('masukkan angka1: ');readln(x);
write('masukkan angka2: ');readln(y);
writeln('hasil: ',x-y);
end;
procedure perkalian;
var
a,b,x,y:integer;
begin
write('masukkan angka1: ');readln(x);
write('masukkan angka2: ');readln(y);
writeln('hasil: ',x*y);
end;
procedure pembagian;
var
a,b,x,y:integer;
begin
write('masukkan angka1: ');readln(x);
write('masukkan angka2: ');readln(y);
writeln('hasil: ',x/y:2:2);
end;
var a: integer;
begin
writeln('menu');
writeln('(1) penjumlahan');
writeln('(2) pengurangan');
writeln('(3) perkalian');
writeln('(4) pembagian');
writeln('(5) selesai');
write('pilihan: ');readln(a);
clrscr;
if a=1 then penjumlahan;
if a=2 then pengurangan;
if a=3 then perkalian;
if a=4 then pembagian;
if a=5 then writeln('yeeeee');
end.
