hei mr PASCAL,you're getting turbo now !

Teknologi Informasi dan Komputer,adalah sebuah pelajaran yang sebenernya dari dulu banyak diremehkan tapi sekarang menjadi menakutkan karena adanya TURBO PASCAL,yap setelah 4tahun kita hanya berkutat di word dan excel di tahun keenam alias kelas xi ini kita diajarin pemrograman pake pascal,awalnya sih enak karena mudah menyenangkan.but now is a fucking subject !hei gakalah sama fisika kalo bikin pusing!dan mapel inilah yang bikin pusing!TUHAN  TOLONG BANTU SAYA!dan disini saya mau nge share beberapa program jadi pake pascal,siapa tahu ada yang butuh(mungkin saya sendiri hehe)
href="file:///C:%5CUsers%5Ccompaq%5CAppData%5CLocal%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" rel="colorSchemeMapping">

- Menentukan Jenis Huruf (besar/kecil)

uses wincrt;
var a, b : char;

begin
repeat
clrscr;

write('Masukkan Huruf : ');readln(a);

if (a>'a') and (a<='z') then
begin
writeln('Huruf kecil');
end
else
if (a>'A') and (a<='Z') then
begin
writeln('Huruf Besar');
end
else
begin
writeln('Bukan Huruf');
end;

writeln;
write('Coba Lagi? (y/n)');readln(b);
until (b='n');

end.
- - - - - - - - - -

- Faktorial (While)

uses wincrt;
var a, b : longint;

begin
b:=1;
write('Input : ');readln(a);

while a>1 do
begin
b:=b*a;
a:=a-1;
end;

write('Hasil Faktorial = ', b);
end.
- - - - - - - - - -

- Menentukan Jenis Bilangan (Ganjil/Genap)

uses wincrt;
var a,ganjil, genap,nilai: integer;

begin
ganjil:=0;
genap:=0;

for a:=1 to 8 do
begin
write('Nilai = ');readln(nilai);
if ((nilai mod 2)=0) then
begin
genap:=genap+1;
end
else
begin
ganjil:=ganjil+1;
end;
end;
writeln;
writeln('Ganjil : ',ganjil);
writeln('Genap : ',genap);


end.
- - - - - - - - - -

- Menentukan Lama Peminjaman

uses wincrt;
var bln, bln2, hr, hr2, tp, tk, a, b, total_p, total_k, tot, bl, tot2: longint;

begin
write('Tanggal Pinjam: ');readln(tp);
write('Tanggal Kembali: ');readln(tk);

hr:=tp div 10000;
a:=tp-(hr*10000);
bln:= (a div 100)*30;
total_p:=bln+hr;

{writeln('hari pinj = ',hr);
writeln('bln pinj = ',bln);}

hr2:=tk div 10000;
b:=tk-(hr2*10000);
bln2:= (b div 100)*30;
total_k:=bln2+hr2;

{writeln('hari pinj = ',hr2);
write('bln pinj = ',bln2);}


tot := total_k-total_p;

bl:= tot div 30;
tot2:= tot mod 30;

write('Lama pinjam ',tot2,' hari ', bl, ' bulan');

end.
- - - - - - - - - -

- Konversi Hari ke Tahun-Bulan-Hari

uses wincrt;
var hari, bulan, tahun : longint;
pil : char;
begin

repeat
clrscr;

write('Masukkan jumlah hari: ');readln(hari);

tahun:= hari div 365;
bulan:= (hari mod 365) div 30;
hari:= ((hari mod 365) mod 30);

writeln;

writeln('Jumlah Tahun = ', tahun);
writeln('Jumlah Bulan = ', bulan);
writeln('Jumlah Hari = ', hari);
writeln;

write('Ulangi Lagi? (y/n) ');readln(pil);
until (pil='n');
end.