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.