Turbo Pascal(Contoh program ramalan)

program RAMALAN;

uses wincrt;
var
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z:string;
lagi:char;
karakter:char;
letak1:string;
letak2:string;
letak3:string;
letak4:string;
begin
a:=’Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya’;
b:=’Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda’;
c:=’Eeehm,kmu paling bisa membuat hati orang jd senang’;
d:=’Terlalu banyak fikiran kotor diotakmu’;
e:=’Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu’;
f:=’Jangan terlalu royal kepada teman atau saudara sob’;
g:=’Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain’;
h:=’Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia’;
i:=’Masa depan,da didepan mata.tentukan pilihanmu’;
j:=’Kalo A ya A,B ya B,jangan plin plan jadi orang’;
k:=’Jujur,satu kata yang sangat cocok buat anda’;
l:=’Jangan suka boong,dosa tw???’;
m:=’Tirulah ilmu padi,jangan sombong jd orang’;
n:=’Janji itu bwt ditepati,bukan diingkari sob’;
o:=’Banyak rezeki,ditabung…boros banget c jd orang???’;
p:=’Orang lain dsekitarmu jg punya perasaan,jgn egois’;
q:=’Gaya boleh,tpi jo over…’;
r:=’Setia banget c jd orang??pertahanin y?’;
s:=’Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah’;
t:=’Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu’;
u:=’Jangan ragu,cm kmu yg sllu dihatinya’;
v:=’Fisik OKE,kpribadiannya dijaga y’;
w:=’G bleh minder,msih bnyak yg bsa kmu lakuin’;
x:=’Jaga diri,bnyak banget yg sayang sma kmu’;
y:=’Jo over klo gi mnja’;
z:=’kmu bsa lbih baik klo kmu mw brubah’;
lagi:=’y';
while lagi=’y’ do
begin
clrscr;
gotoxy(13,3);writeln(‘$  SELAMAT DATANG DI CATATAN KEPRIBADIAN KAMU  $’);readln(letak1);
gotoxy(4,4);writeln(‘(Semoga beruntung dengan nama panggilan yang melekat dalam dirimu)’);readln(letak2);
gotoxy(12,5);writeln(‘(Ini cuma permainan,boleh percaya, boleh tidak)’);readln(letak3);
gotoxy(6,6);writeln(‘INGAT,,Selalu gunakan huruf kecil!(Bukan huruf balok/kapital)’);
gotoxy(13,7);writeln(‘(Tekan ENTER,lalu ikuti petunjuk selanjutnya)’);readln(letak4);
begin
clrscr;
writeln(‘MASUKKAN HURUF PERTAMA YANG ADA DALAM NAMA PANGGILANMU’);readln(karakter);
writeln(‘HASIL PEMBACAAN DARI HURUF YANG KAMU MASUKKAN ADALAH….=’);
if karakter=’a’ then writeln(a);
if karakter=’b’ then writeln(b);
if karakter=’c’ then writeln(c);
if karakter=’d’ then writeln(d);
if karakter=’e’ then writeln(e);
if karakter=’f’ then writeln(f);
if karakter=’g’ then writeln(g);
if karakter=’h’ then writeln(h);
if karakter=’i’ then writeln(i);
if karakter=’j’ then writeln(j);
if karakter=’k’ then writeln(k);
if karakter=’l’ then writeln(l);
if karakter=’m’ then writeln(m);
if karakter=’n’ then writeln(n);
if karakter=’o’ then writeln(o);
if karakter=’p’ then writeln(p);
if karakter=’q’ then writeln(q);
if karakter=’r’ then writeln(r);
if karakter=’s’ then writeln(s);
if karakter=’t’ then writeln(t);
if karakter=’u’ then writeln(u);
if karakter=’v’ then writeln(v);
if karakter=’w’ then writeln(w);
if karakter=’x’ then writeln(x);
if karakter=’y’ then writeln(y);
if karakter=’z’ then writeln(z);
writeln;
writeln(‘SELANJUTNYA YANG KEDUA….!’);readln(karakter);
writeln(‘HASIL PEMBACAAN DARI HURUF KEDUA YANG KAMU MASUKKAN ADALAH….=’);
if karakter=’a’ then writeln(a);
if karakter=’b’ then writeln(b);
if karakter=’c’ then writeln(c);
if karakter=’d’ then writeln(d);
if karakter=’e’ then writeln(e);
if karakter=’f’ then writeln(f);
if karakter=’g’ then writeln(g);
if karakter=’h’ then writeln(h);
if karakter=’i’ then writeln(i);
if karakter=’j’ then writeln(j);
if karakter=’k’ then writeln(k);
if karakter=’l’ then writeln(l);
if karakter=’m’ then writeln(m);
if karakter=’n’ then writeln(n);
if karakter=’o’ then writeln(o);
if karakter=’p’ then writeln(p);
if karakter=’q’ then writeln(q);
if karakter=’r’ then writeln(r);
if karakter=’s’ then writeln(s);
if karakter=’t’ then writeln(t);
if karakter=’u’ then writeln(u);
if karakter=’v’ then writeln(v);
if karakter=’w’ then writeln(w);
if karakter=’x’ then writeln(x);
if karakter=’y’ then writeln(y);
if karakter=’z’ then writeln(z);
writeln;
writeln(‘MASUKKAN YANG KETIGA SOB….!’);readln(karakter);
writeln(‘HASIL PEMBACAAN DARI HURUF KETIGA DI ATAS ADALAH….=’);
if karakter=’a’ then writeln(a);
if karakter=’b’ then writeln(b);
if karakter=’c’ then writeln(c);
if karakter=’d’ then writeln(d);
if karakter=’e’ then writeln(e);
if karakter=’f’ then writeln(f);
if karakter=’g’ then writeln(g);
if karakter=’h’ then writeln(h);
if karakter=’i’ then writeln(i);
if karakter=’j’ then writeln(j);
if karakter=’k’ then writeln(k);
if karakter=’l’ then writeln(l);
if karakter=’m’ then writeln(m);
if karakter=’n’ then writeln(n);
if karakter=’o’ then writeln(o);
if karakter=’p’ then writeln(p);
if karakter=’q’ then writeln(q);
if karakter=’r’ then writeln(r);
if karakter=’s’ then writeln(s);
if karakter=’t’ then writeln(t);
if karakter=’u’ then writeln(u);
if karakter=’v’ then writeln(v);
if karakter=’w’ then writeln(w);
if karakter=’x’ then writeln(x);
if karakter=’y’ then writeln(y);
if karakter=’z’ then writeln(z);
writeln;
writeln(‘MASUKKAN YANG KEEMPAT,KALO PENGEN TW LEBIH JAUH LAGI….’);readln(karakter);
writeln(‘HASIL PEMBACAAN DARI HURUF KEEMPAT YANG SUDAH KAMU MASUKKAN DI ATAS ADALAH….=’);
if karakter=’a’ then writeln(a);
if karakter=’b’ then writeln(b);
if karakter=’c’ then writeln(c);
if karakter=’d’ then writeln(d);
if karakter=’e’ then writeln(e);
if karakter=’f’ then writeln(f);
if karakter=’g’ then writeln(g);
if karakter=’h’ then writeln(h);
if karakter=’i’ then writeln(i);
if karakter=’j’ then writeln(j);
if karakter=’k’ then writeln(k);
if karakter=’l’ then writeln(l);
if karakter=’m’ then writeln(m);
if karakter=’n’ then writeln(n);
if karakter=’o’ then writeln(o);
if karakter=’p’ then writeln(p);
if karakter=’q’ then writeln(q);
if karakter=’r’ then writeln(r);
if karakter=’s’ then writeln(s);
if karakter=’t’ then writeln(t);
if karakter=’u’ then writeln(u);
if karakter=’v’ then writeln(v);
if karakter=’w’ then writeln(w);
if karakter=’x’ then writeln(x);
if karakter=’y’ then writeln(y);
if karakter=’z’ then writeln(z);
writeln;
writeln(‘NICH YANG TERAKHIR,MASUKKAN SATU HURUF LAGI’);readln(karakter);
writeln(‘HASIL PEMBACAAN DARI HURUF TERAKHIR YANG KAMU MASUKKAN ADALAH….=’);
if karakter=’a’ then writeln(a);
if karakter=’b’ then writeln(b);
if karakter=’c’ then writeln(c);
if karakter=’d’ then writeln(d);
if karakter=’e’ then writeln(e);
if karakter=’f’ then writeln(f);
if karakter=’g’ then writeln(g);
if karakter=’h’ then writeln(h);
if karakter=’i’ then writeln(i);
if karakter=’j’ then writeln(j);
if karakter=’k’ then writeln(k);
if karakter=’l’ then writeln(l);
if karakter=’m’ then writeln(m);
if karakter=’n’ then writeln(n);
if karakter=’o’ then writeln(o);
if karakter=’p’ then writeln(p);
if karakter=’q’ then writeln(q);
if karakter=’r’ then writeln(r);
if karakter=’s’ then writeln(s);
if karakter=’t’ then writeln(t);
if karakter=’u’ then writeln(u);
if karakter=’v’ then writeln(v);
if karakter=’w’ then writeln(w);
if karakter=’x’ then writeln(x);
if karakter=’y’ then writeln(y);
if karakter=’z’ then writeln(z);
writeln;
writeln(‘APAKAH KMU PNGEN MENGULANG DGN NMA LAIN?PCAR KMU MUNGKIN,ATW TMEN KMU?(y/n)’);readln(lagi);
if lagi=’n’ then
clrscr;
gotoxy(5,3);writeln(‘TERIMA KASIH TELAH MENCOBA,SILAHKAN DATANG LAGI DILAIN KESEMPATAN ‘);
end;
end;
end.