Selamat Malam kawan..
Bagaimana kabar kalian hari ini, semoga baik-baik saja. Amiin.
Sudah lama saya nggak update artikel lagi, akibat sibuk dengan kegiatan belajar dan sedikit agak males juga. Hehe..
By the way, saya punya kegiatan baru akhir-akhir ini. Yap.. belajar buat program pascal. Saya belajar pascal dari buku yang saya pinjam di perpustakaan sekolah. Oh.. ya, sekarang saya sudah kelas 1 SMA, tepatnya di SMA Negeri 2 Kebumen. Salah satu sekolah favorit di Kota Kebumen (menurtu orang sih.. begitu).
Kembali ke topik. Dari buku yang saya pinjam, saya belajar sedikit tentang algoritma dan pemrograman. Ya.. walaupun belum terlalu hebat, setidaknya sudah tau dan mau belajar itu sudah bagus. Hehe.. Sebenarnya sudah dari dulu saya ingin belajar pemrograman, tapi saya nggak menemukan buku tentang program di SMP saya dulu.
Ok. Berhubung lagi belajar tentang pascal, kali ini saya mau berbagi artikel tentang program-program pascal yang saya buat. Masih sederhana sih.. belum terlalu banyak perhitungan dan kode. Tapi lumayan lah buat digunakan dalam sehari-hari ataupun belajar. Baik, ini dia programnya.
1. Program menghitung hari
program hari_bulan_tahun;
{Maulana Affan 25/10/2014 9:59}
uses crt;
var
hari, bulan, tahun, sisa1, sisa2 : integer;
begin
clrscr;
writeln (' Program Menghitung Hari');
writeln ('==================');
writeln;
write ('Tulis Jumlah Hari = ');
readln (hari);
tahun := hari div 365;
sisa1 := hari mod 365;
bulan := sisa1 div 30;
sisa2 := sisa1 mod 30;
hari := sisa2;
writeln;
writeln ('Berikut hasilnya = ', tahun, ' Tahun ');
writeln (' ', bulan, ' Bulan ');
writeln (' ', hari, ' Hari ');
writeln;
writeln ('Terima Kasih Telah Mencoba.');
readln;
end.
2. Program hari menjadi jam, menit dan detik
program hari_waktu;
{Maulana Affan 25/10/2014 10:21}
uses crt;
var
hari, jam, menit, detik : real;
begin
clrscr;
writeln ('Program Menghitung Jam, Menit dan Detik');
writeln ('=============================');
writeln;
write ('Tuliskan Jumlah Hari = ');
readln (hari);
jam := hari * 24;
menit := jam * 60;
detik := menit * 60;
writeln;
writeln ('Hasilnya adalah = ', jam:4:0, ' Jam ');
writeln (' ', menit:4:0, ' Menit ');
writeln (' ', detik:4:0, ' Detik ');
writeln;
writeln ('Bagaimana.? Keren kan.? Haha..');
writeln ('Terima Kasih Telah Mencoba.');
readln;
end.
3. Program mengkonversi detik
program konversi_waktu;
{Maulana Affan 22/10/2014 16:56}
uses crt;
var
jam, menit, detik, sisa, sisa2 : integer;
begin
clrscr;
writeln ('Program Konversi Waktu');
writeln;
writeln ('Masukkan Data');
write ('Detik = ');
readln (detik);
jam := detik div 3600;
sisa := detik mod 3600;
menit := sisa div 60;
sisa2 := sisa mod 60;
detik := sisa2;
writeln;
writeln ('Ini hasilnya = ',jam, ' Jam');
writeln (' ',menit, ' Menit');
writeln (' ',detik, ' Detik');
readln;
end.
4.Program Konversi Suhu
program konversi_suhu;
{Maulana Affan 23/10/2014 14:30}
uses crt;
var
celcius, fahrenheit, reamur, hasil : real;
begin
clrscr;
writeln ('Program Konversi Suhu');
writeln ('================');
writeln;
write ('Masukkan Suhu Celcius = ');
readln (celcius);
fahrenheit := (9/5 * celcius) + 32;
reamur := 4/5 * celcius;
writeln ('Berikut Hasilnya = ', fahrenheit:4:2, ' F');
writeln (' = ', reamur:4:2, ' R');
readln;
end.
5. Program Volume Balok
program volume_balok;
{Maulana Affan 22/10/2014 16:41}
uses crt;
var
panjang, lebar, tinggi : real;
volume : real;
begin
clrscr;
writeln ('Program Volume Balok');
writeln;
writeln ('Masukkan Data');
write ('Panjang cm = ');
readln (panjang);
write ('Lebar cm = ');
readln (lebar);
write ('Tinggi cm = ');
readln (tinggi);
volume := panjang * lebar * tinggi;
writeln;
writeln ('Hasil Volume = ', volume:4:2, ' cm^3');
readln;
end.
6. Program Penilaian
program penilaian;
{Maulana Affan 26/10/2014 09:25}
uses crt;
var
nilai : integer;
begin
clrscr;
writeln ('Program Penilaian');
writeln ('============');
writeln;
write ('Masukkan Nilai Anda = ');
readln (nilai);
if nilai > 85 then
writeln ('Kategori Nilai Anda = A')
else
if nilai > 70 then
writeln ('Kategori Nilai Anda = B')
else
if nilai > 60 then
writeln ('Kategori Nilai Anda = C')
else
if nilai > 50 then
writeln ('Kategori Nilai Anda = D')
else
writeln ('Kategori Nilai Anda = E');
readln;
end.
7. Program Menghitung Luas dan Keliling Persegi Panjang
program luas_keliling;
{program menghitung luas dan keliling}
{Maulana Affan, 20/10/2014 18:57 WIB}
uses crt;
var
panjang, lebar : integer;
luas, keliling : integer;
begin
clrscr;
writeln ('Program Menghitung Luas Keliling Persegi Panjang');
writeln;
write ('Panjang = ');
readln (panjang);
write ('Lebar = ');
readln (lebar);
luas := panjang * lebar;
keliling := 2 * (panjang * lebar);
writeln;
writeln ('Luas = ', luas);
writeln ('Keliling = ', keliling);
readln;
end.
8. Program Perubahan Bentuk Air
program perubahan_bentukair;
{Maulana Affan 26/10/2014 20:33}
uses crt;
var
suhu : integer;
begin
clrscr;
writeln ('Program Perubahan Bentuk Air');
writeln ('=====================');
writeln;
write ('Masukkan Suhu Air (Celcius) = ');
readln (suhu);
if suhu >= 100 then
writeln ('Air pada kondisi tersebut berbentuk gas.')
else
if suhu > 0 then
writeln ('Air pada kondisi tersebut berbentuk cair.')
else
writeln ('Air pada kondisi tersebut berbentuk padat.');
readln;
end.
Nah.. itu dia program yang sudah saya buat. Sebenarnya masih ada beberapa lagi, tapi takut kebanyakan jadi saya cuma memberikan beberapa saja. Oh ya.. sebelum menggunakan program itu, kamu terlebih dahulu mempunyai aplikasi pascal untuk menjalankan program tersebut.
Untuk postingan berikutnya, insyaallah saya akan memberikan aplikasi pascal yang bisa kalian download.
Cukup sekian artikel dari saya tentang program sederhana menggunakan pascal, kalau ada kekurangan dan kesalahan saya mohon maaf. Bagi yang ingin memberikan kritik dan saran kalian, silahkan tinggalkan komentar.
Terima kasih.
Bagaimana kabar kalian hari ini, semoga baik-baik saja. Amiin.
Sudah lama saya nggak update artikel lagi, akibat sibuk dengan kegiatan belajar dan sedikit agak males juga. Hehe..
Kembali ke topik. Dari buku yang saya pinjam, saya belajar sedikit tentang algoritma dan pemrograman. Ya.. walaupun belum terlalu hebat, setidaknya sudah tau dan mau belajar itu sudah bagus. Hehe.. Sebenarnya sudah dari dulu saya ingin belajar pemrograman, tapi saya nggak menemukan buku tentang program di SMP saya dulu.
Ok. Berhubung lagi belajar tentang pascal, kali ini saya mau berbagi artikel tentang program-program pascal yang saya buat. Masih sederhana sih.. belum terlalu banyak perhitungan dan kode. Tapi lumayan lah buat digunakan dalam sehari-hari ataupun belajar. Baik, ini dia programnya.
1. Program menghitung hari
program hari_bulan_tahun;
{Maulana Affan 25/10/2014 9:59}
uses crt;
var
hari, bulan, tahun, sisa1, sisa2 : integer;
begin
clrscr;
writeln (' Program Menghitung Hari');
writeln ('==================');
writeln;
write ('Tulis Jumlah Hari = ');
readln (hari);
tahun := hari div 365;
sisa1 := hari mod 365;
bulan := sisa1 div 30;
sisa2 := sisa1 mod 30;
hari := sisa2;
writeln;
writeln ('Berikut hasilnya = ', tahun, ' Tahun ');
writeln (' ', bulan, ' Bulan ');
writeln (' ', hari, ' Hari ');
writeln;
writeln ('Terima Kasih Telah Mencoba.');
readln;
end.
2. Program hari menjadi jam, menit dan detik
program hari_waktu;
{Maulana Affan 25/10/2014 10:21}
uses crt;
var
hari, jam, menit, detik : real;
begin
clrscr;
writeln ('Program Menghitung Jam, Menit dan Detik');
writeln ('=============================');
writeln;
write ('Tuliskan Jumlah Hari = ');
readln (hari);
jam := hari * 24;
menit := jam * 60;
detik := menit * 60;
writeln;
writeln ('Hasilnya adalah = ', jam:4:0, ' Jam ');
writeln (' ', menit:4:0, ' Menit ');
writeln (' ', detik:4:0, ' Detik ');
writeln;
writeln ('Bagaimana.? Keren kan.? Haha..');
writeln ('Terima Kasih Telah Mencoba.');
readln;
end.
3. Program mengkonversi detik
program konversi_waktu;
{Maulana Affan 22/10/2014 16:56}
uses crt;
var
jam, menit, detik, sisa, sisa2 : integer;
begin
clrscr;
writeln ('Program Konversi Waktu');
writeln;
writeln ('Masukkan Data');
write ('Detik = ');
readln (detik);
jam := detik div 3600;
sisa := detik mod 3600;
menit := sisa div 60;
sisa2 := sisa mod 60;
detik := sisa2;
writeln;
writeln ('Ini hasilnya = ',jam, ' Jam');
writeln (' ',menit, ' Menit');
writeln (' ',detik, ' Detik');
readln;
end.
4.Program Konversi Suhu
program konversi_suhu;
{Maulana Affan 23/10/2014 14:30}
uses crt;
var
celcius, fahrenheit, reamur, hasil : real;
begin
clrscr;
writeln ('Program Konversi Suhu');
writeln ('================');
writeln;
write ('Masukkan Suhu Celcius = ');
readln (celcius);
fahrenheit := (9/5 * celcius) + 32;
reamur := 4/5 * celcius;
writeln ('Berikut Hasilnya = ', fahrenheit:4:2, ' F');
writeln (' = ', reamur:4:2, ' R');
readln;
end.
5. Program Volume Balok
program volume_balok;
{Maulana Affan 22/10/2014 16:41}
uses crt;
var
panjang, lebar, tinggi : real;
volume : real;
begin
clrscr;
writeln ('Program Volume Balok');
writeln;
writeln ('Masukkan Data');
write ('Panjang cm = ');
readln (panjang);
write ('Lebar cm = ');
readln (lebar);
write ('Tinggi cm = ');
readln (tinggi);
volume := panjang * lebar * tinggi;
writeln;
writeln ('Hasil Volume = ', volume:4:2, ' cm^3');
readln;
end.
6. Program Penilaian
program penilaian;
{Maulana Affan 26/10/2014 09:25}
uses crt;
var
nilai : integer;
begin
clrscr;
writeln ('Program Penilaian');
writeln ('============');
writeln;
write ('Masukkan Nilai Anda = ');
readln (nilai);
if nilai > 85 then
writeln ('Kategori Nilai Anda = A')
else
if nilai > 70 then
writeln ('Kategori Nilai Anda = B')
else
if nilai > 60 then
writeln ('Kategori Nilai Anda = C')
else
if nilai > 50 then
writeln ('Kategori Nilai Anda = D')
else
writeln ('Kategori Nilai Anda = E');
readln;
end.
7. Program Menghitung Luas dan Keliling Persegi Panjang
program luas_keliling;
{program menghitung luas dan keliling}
{Maulana Affan, 20/10/2014 18:57 WIB}
uses crt;
var
panjang, lebar : integer;
luas, keliling : integer;
begin
clrscr;
writeln ('Program Menghitung Luas Keliling Persegi Panjang');
writeln;
write ('Panjang = ');
readln (panjang);
write ('Lebar = ');
readln (lebar);
luas := panjang * lebar;
keliling := 2 * (panjang * lebar);
writeln;
writeln ('Luas = ', luas);
writeln ('Keliling = ', keliling);
readln;
end.
8. Program Perubahan Bentuk Air
program perubahan_bentukair;
{Maulana Affan 26/10/2014 20:33}
uses crt;
var
suhu : integer;
begin
clrscr;
writeln ('Program Perubahan Bentuk Air');
writeln ('=====================');
writeln;
write ('Masukkan Suhu Air (Celcius) = ');
readln (suhu);
if suhu >= 100 then
writeln ('Air pada kondisi tersebut berbentuk gas.')
else
if suhu > 0 then
writeln ('Air pada kondisi tersebut berbentuk cair.')
else
writeln ('Air pada kondisi tersebut berbentuk padat.');
readln;
end.
Nah.. itu dia program yang sudah saya buat. Sebenarnya masih ada beberapa lagi, tapi takut kebanyakan jadi saya cuma memberikan beberapa saja. Oh ya.. sebelum menggunakan program itu, kamu terlebih dahulu mempunyai aplikasi pascal untuk menjalankan program tersebut.
Untuk postingan berikutnya, insyaallah saya akan memberikan aplikasi pascal yang bisa kalian download.
Cukup sekian artikel dari saya tentang program sederhana menggunakan pascal, kalau ada kekurangan dan kesalahan saya mohon maaf. Bagi yang ingin memberikan kritik dan saran kalian, silahkan tinggalkan komentar.
Terima kasih.
Post a Comment