Hi teman-teman, akhir-akhir ini saya ingin mengulang pelajaran programming yang pernah saya dapatkan di kuliah. Tidak ada salahnya juga kan saya membagikan di blog, toh ini untuk belajar kalian. Oke langsung saja saya akan membagikan beberapa program sederhana free pascal yang saya buat.
1. Program menghitung hari
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
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 ('Terima Kasih Telah Mencoba.');
readln;
end.
3. Program mengkonversi detik
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
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
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
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
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
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 tadi beberapa contoh program sederhana free pascal. silahkan dipelajari ya, semoga bermanfaat.
