pascal (coba)

ada permintaan dari seorang teman yang menginginkan sesuatu yang bisa berjalan pada pemrograman pascal.

contoh dibawah ini masi sangat sederhana....

program coba;
uses crt;
var
i : integer;
begin
clrscr;
for i := 5 to 25 do
begin
gotoxy (i,7); writeln('saya dea');
delay(1000);
end;
readln;
end.


'saya dea' bisa diganti menjadi apa saja..


any question?

Read More

menghitung nilai IP menggunakan Pascal

Saya sedang berpikir untuk mencoba membuat program menghitung IP menggunakan bahasa pemrograman pascal. Jadi, ketika kita menginputkan hurup mutu dari semua pelajaran, maka kita langsung bisa tau berapa IP yang kita peroleh.

Sebelum memulai keprogram, sebaiknya kita berpikir teorinya dahulu.

Bagaimana cara menghitung IP? Kalian mungkin sudah pada tau yaa..
Caranya :
IP = (total jumlah nilai)/(jumlah sks)


Misalnya saya mengambil 9 sks (Fisika 3 sks, matematika 3 sks dan alpro 3 sks).
Jika kita mendapatkan nilai A sama saja dengan angka 4, B = 3, C = 2, D = 1, E = 0.
Nah, misalkan saya mendapat nilai A semua. Jadi,
- Fisika = 3 (sks) x 4 (angka yang didapat ketika memperoleh nilai A) = 12
- Matematika = 3 x 4 = 12
- Alpro = 3 x 4 = 12
Jumlah = 12 + 12 + 12 = 36

IP = (total jumlah nilai)/(jumlah sks) = 36/9=4 jadi, IP yang saya dapat itu 4. Begitu.. mengerti kan ?


Sekarang mari kita buat programnya..
Pertama-tama tentukan dahulu variabelnya.

Variabelnya :
Nama; npm; sks fisika, sks matematika, sks alpro (disingkat menjadi sfis, smtk, salp); nilai huruf fisika, matematika, alpro (disingkat menjadi hfis, hmtk, halp); angka mutu fisika, matematika, alpro ( afis, amtk, aalp); total jumlah sks (jmls); jumlah nilai (jmln) dan IP.

Note : variabel bisa disingkat menjadi apa saja. Ini hanya untuk membantu program agar tidak terlalu panjang.



Program menghitung_ip;
Uses crt;
Var
Nama : string;
Npm : integer;
Sfis, smtk, salp : integer;
Hfis, hmtk, halp : char;
Afis, amtk, aalp : integer;
Jfis, jmtk, jalp : integer;
Jmls, jmln, ip : real;
Begin
Clrscr;
Writeln (‘M E N G H I T U N G I P’);
Writeln;
Writeln;
Write (‘nama : ‘);readln(nama);
Write (‘NPM : ‘); readln(npm);
Begin
Sfis := 3;
Smtk := 3;
Salp := 3;
Jmls := sfis+smtk+salp;
End;
Begin
Writeln;
Writeln;
Writeln (‘SAAT MENGINPUTKAN NILAI, GUNAKAN HURUF KAPITAL’);
Writeln;
Write (‘masukan nilai fisika anda : ‘);readln(hfis);
If hfis = ‘A’ then afis := 4
Else if hfis = ‘B’ then afis := 3
Else if hfis = ‘C’ then afis := 2
Else if hfis = ‘D’ then afis := 1
Else afis := 0;
Jfis := sfis*afis;
End;
Begin
Write (‘masukan nilai matematika anda : ‘);readln(hmtk);
If hmtk = ‘A’ then amtk := 4
Else if hmtk = ‘B’ then amtk := 3
Else if hmtk = ‘C’ then amtk := 2
Else if hmtk = ‘D’ then amtk := 1
Else amtk := 0;
Jmtk := smtk*amtk;
End;
Begin
Write (‘masukan nilai algoritma dan pemrograman anda : ‘);readln(hfis);
If halp = ‘A’ then aalp := 4
Else if halp = ‘B’ then aalp := 3
Else if halp = ‘C’ then aalp := 2
Else if halp = ‘D’ then aalp := 1
Else aalp := 0;
Jalp := salp*aalp;
End;
Jmln := jfis+jmtk+jalp;
Ip := jmln/jmls;
Writeln (‘selamat IP anda adalah : ‘,ip:1:2);
Readln;
End.


Bagaimana ? mudah bukan?
Jika sudah selesai lalu di compile dan kemudian di run...

Saya hanya menginputkan 3 mata kuliah, anda bisa menambahkan mata kuliah lainnya.

Dalam membuat program sangat-sangat dibutuhkan logika kita. Program diatas masih sangat sederhana. Jika ada yang kurang dimengerti atau kritikan serta sarannya, silahkan comment postingan ini :) terimakasih,semoga membantu :)


jika telah selesai hasilnya kurang lebih akan seperti ini, hanya mata kuliahnya saja yang lebih banyak..

klik untuk memperbesar gambar

Read More

program pengulangan

ini adalah salah satu contoh pengulangan menggunakan pascal. silahkan mencoba :)


Program mengulang;
Uses crt;
Var
nilai, jml, bilangan, a, b : integer;
Begin
Clrscr;
Write(‘masukan banyaknya nilai yang ingin diiulang : ‘);readln(a);
Writeln;
For b := 1 to a do
Begin
Write(‘bilangan ke ‘,b,’ = ‘);readln(bilangan);
If bilangan >=10 then
begin
Nilai := nilai+1;
Jml := jml+bilangan;
End;
End;
Writeln;
Writeln(‘banyak bilangan yang >= 10 : ‘,nilai);
Writeln(‘jumlah bilangan yang >=10 : ‘,jml);
End.


variabel diatas bisa diganti menjadi apa saja. tetapi ingat, sesuaikan juga dengan proses didalamnya karna kalau tidak, program akan error.

hasilnya akan seperti ini :

kalau ada yang error atau yang ga ngerti bisa langsung tanya, bisa lewat facebook atau coment di postingan ini :)

Read More