Cara Membuat Program Sederhana Dengan Turbo Pascal 7.0

Hallo semuanya :) kali ini saya akan share artikel Membuat Program Sederhana Dengan Turbo Pascal 7.0 For DOS

ok Langsung aja,, saya akan memberikan 2 contoh program

1. Program Penghitung Detik

Program ini fungsinya cukup sederhana yaitu waktu yang telah diinputkan

ditambahkan dengan detik yang user masukkan.

            1. Jalankan program Turbo Pascal 7.0 for DOS

            2. Dan ketikkan source code berikut :

\

program tambahdetik;
var
detik,menit,jam,tambah:integer;
begin
writeln('');
(*fungsi masukkan*)
write('Masukkan Jam : ');readln(jam);
write('Masukkan Menit : ');readln(menit);
write('Masukkan Detik : ');readln(detik);
writeln('----------------------------');
write('Waktu yang dimasukkan >> ');
writeln(jam,':',menit,':',detik);
write('Akan ditambah berapa Detik?: ');readln(tambah);
(*fungsi tambah*)
detik:=detik+tambah;
if detik>59 then
begin
menit:=menit+(detik div 60);
detik:=detik mod 60;
jam:=jam+(menit div 60);
menit:=menit mod 60;
if jam>23 then
begin
jam:=(jam mod 24);
end;
end;
(*hasil penambahan*)
writeln(jam,':',menit,':',detik);
readln;
end.

OUTPUTNYA

2. Program Penambah Hari

Fungsinya menambah tanggal dengan hari yang user masukkan. Fungsi tahun kabisat
juga penulis masukkan disini.

                1. Jalankan program Turbo Pascal 7.0 for DOS
                2. Dan ketikkan source code berikut :

program tambahhari;
var
tanggal,bulan,tahun,tambah:integer;
jmlhari:array[1..12] of integer;
begin
(*jmlh diisi jmlh hari tiap bln*)
jmlhari[1]:=31;
jmlhari[2]:=28;
jmlhari[3]:=31;
jmlhari[4]:=30;
jmlhari[5]:=31;
jmlhari[6]:=30;
jmlhari[7]:=31;
jmlhari[8]:=31;
jmlhari[9]:=30;
jmlhari[10]:=31;
jmlhari[11]:=30;
jmlhari[12]:=31;
(*fungsi masukkan*)
writeln('+-----------------------------+');
writeln('| Program Tambah Hari |');
writeln('+-----------------------------+');
write('Masukkan Tanggal :');readln(tanggal);
write('Masukkan Bulan :');readln(bulan);
write('Masukkan Tahun :');readln(tahun);
writeln('-------------------------------');
writeln('Tanggal yang dimasukkan :');
writeln(tanggal,' - ',bulan,' - ',tahun);
write('Akan ditambah berapa hari :');readln(tambah);

writeln('-------------------------------');

tanggal:=tanggal+tambah;
(*fungsi tahun kabisat*)
if ((tahun mod 4=0)and(tahun mod 100<>0)) or (tahun mod 400=0) then
begin
jmlhari[2]:=29;
end;
(*looping bl tgl lbh dr jmlhari*)
while tanggal>jmlhari[bulan] do

begin

if (((tahun mod 4=0)and(tahun mod 100<>0)) or (tahun mod 400=0)) then
begin
jmlhari[2]:=29;
end
else
begin
jmlhari[2]:=28;
end;
tanggal:=tanggal-(jmlhari[bulan]);
bulan:=bulan+1;
if bulan>12 then
begin
bulan:=bulan div 12;
tahun:=tahun+1;
end;
end;
(*hasil penambahan*)
writeln('Hasilnya :');
writeln(tanggal,' - ',bulan,' - ',tahun);
readln;
end.

OUTPUTNYA