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