Haloo guys..
kali ini gue mau share tentang program zodiak yang di buat pake program pascal nih..
btw program pascal itu ada 2 aplikasi nya
yang pertama yang versi windows alias turbo pascal
sedangkan yang kedua itu versi dos nya..
sekilas ga ada perbedaan sih sama aja cuman beda di tampilan nya doang.
kalo gue sih pake yang dos nya..
buat pemakaian sih sesuai selera kalian aja lebih seneng pake versi dos atau turbo pascal
nah langsung aja deh ini syntak nya program zodiak menggunakan pascal
--------------------------------------------------------------------------------------------------------------------------
program zodiakdanramalan;
uses crt;
var
no, tgl, bln, thn : integer;
ramalan, nama : string;
begin
clrscr;
writeln(' Welcome to My Blog');
writeln(' Zodiak dan Ramalan');
writeln('-------------------------------------------');
writeln('');
writeln(' Nama : Fariz Achmad Fauzi');
writeln(' NIM : 153213046');
writeln(' Jurusan : Managenen Informatika');
writeln(' Semester: 1(Ganjil)');
writeln('-------------------------------------------');
writeln('');
write('Nama : '); readln(nama);
write('Bulan Lahir (angka) : '); readln(bln);
begin
if(bln=1) then
begin
writeln('January');
write('Tanggal Lahir : '); readln(tgl);
if (tgl<=20) then
writeln( 'Zodiak anda Capricorn');
if(tgl>=21)then
writeln('Zodiak anda Aquarius');
writeln('');
write('Ingin tahu ramalan Capricorn/Aquarius? ketik(c= capricorn, a= aquarius) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='c') then
begin
writeln(' Karakter Capricorn : ');write
writeln('1. Gengsi tinggi');
writeln('2. Rajin');
writeln('3. Pendiam');
writeln('4. Materialis');
writeln('5. Teguh Pendirian');
end;
if(ramalan='a')then
begin
writeln(' Karakter Aquarius : ');
writeln('1. Jenius');
writeln('2. Objektif');
writeln('3. Tenang');
writeln('4. Cepat Mengerti');
end;
end;
end;
begin
if(bln=2) then
begin
writeln('Febduari');
write('Masukan Tanggal Lahir anda : '); readln(tgl);
if (tgl<=20) then
writeln('Zodiak anda Aquarius');
if(tgl>=21) then
writeln('Zodiak anda Pisces');
writeln('');
write('Ingin tahu ramalan Aquarius/Pisces? ketik(a= aquarius, p= pisces) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='a') then
begin
writeln(' Karakter Aquarius : ');
writeln('1. Jenius');
writeln('2. Objektif');
writeln('3. Tenang');
writeln('4. Cepat Mengerti');
end;
if(ramalan='p')then
begin
writeln(' Karakter Pisces : ');
writeln('1. Praktis');
writeln('2. Sosial tinggi');
writeln('3. Pemimpi');
writeln('4. Penasaran');
end;
end;
end;
begin
if(bln=3) then
begin
writeln('Maret');
write('Masukan Tanggal Lahir anda : '); readln(tgl);
if(tgl<=20) then
writeln('Zodiak anda Pisces');
if(tgl>=21) then
writeln('Zodiak anda Aries');
writeln('');
write('Ingin tahu ramalan Pisces/Aries? ketik(p= pisces ar= aries) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='p') then
begin
writelnwriteln(' Karakter Pisces : ');
writeln('1. Praktis');
writeln('2. Sosial tinggi');
writeln('3. Pemimpi');
writeln('4. Penasaran');
end;
if(ramalan='ar')then
begin
writeln(' Karakter Aries : ');
writeln('1. Lincah');
writeln('2. Emosi Labil');
writeln('3. Energik');
writeln('4. Agresif');
end;
end;
end;
begin
if(bln=4) then
begin
writeln('April');
write('Masukan Tanggal Lahir anda : '); readln(tgl);
if(tgl<=20) then
writeln('Zodiak anda aries');
if(tgl>=21) then
writeln('Zodiak Anda Taurus');
writeln('');
write('Ingin tahu ramalan Aries/Taurus? ketik(ar= aries t= taurus) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='ar') then
begin
writeln(' Karakter Aries : ');
writeln('1. Lincah');
writeln('2. Emosi Labil');
writeln('3. Energik');
writeln('4. Agresif');
end;
if(ramalan='t')then
begin
writeln(' Karakter Taurus : ');
writeln('1.Matearlis');
writeln('2. Keras Kepala');
writeln('3. Setia');
writeln('4. Ramah');
writeln('5. Sabar');
end;
end;
end;
begin
if(bln=5) then
begin
writeln('Mei');
write('Masukan Tanggal Lahir anda : '); readln(tgl);
if(tgl<=20) then
writeln('Zodiak anda Taurus');
if(tgl>=21) then
writeln('Zodiak anda Gemini');
writeln('');
write('Ingin tahu ramalan Taurus/Gemini? ketik(t= taurus g= gemini) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='t') then
begin
writeln(' Karakter Taurus : ');
writeln('1.Matearlis');
writeln('2. Keras Kepala');
writeln('3. Setia');
writeln('4. Ramah');
writeln('5. Sabar');
end;
if(ramalan='g')then
begin
writeln(' Karakter Gemini : ');
writeln('1. Pandai');
writeln('2. Lincah');
writeln('3. Labil');
writeln('4. Gugup');
writeln('5. Jiwa Sosial');
end;
end;
end;
begin
if(bln=6) then
begin
writeln('Juni');
write('Masukan Tanggal Lahir anda : ');readln(tgl);
if(tgl<=20) then
writeln('Zodiak anda Gemini');
if(tgl>=21) then
writeln('Zodiak anda Cancer');
writeln('');
write('Ingin tahu ramalan Gemini/Cancer? ketik(g= gemini, can= cancer) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='g') then
begin
writeln(' Karakter Gemini : ');
writeln('1. Pandai');
writeln('2. Lincah');
writeln('3. Labil');
writeln('4. Gugup');
writeln('5. Jiwa Sosial');
end;
if(ramalan='can')then
begin
writeln(' Karakter Cancer : ');
writeln('1. Setia');
writeln('2. Perhatian');
writeln('3. Labil');
writeln('4. Sentimen');
writeln('5. Ingatan Kuat');
end;
end;
end;
begin
if(bln=7) then
begin
Writeln('Juli');
write('Masukan Tanggal Lahir anda : ');readln(tgl);
if(tgl<=20) then
writeln('Zodiak anda Cancer');
if (tgl>=21)then
writeln('Zodiak anda Leo');
write('Ingin tahu ramalan Cancer/Leo? ketik(can= cancer, l= leo) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='can') then
begin
writeln(' Karakter Cancer : ');
writeln('1. Setia');
writeln('2. Perhatian');
writeln('3. Labil');
writeln('4. Sentimen');
writeln('5. Ingatan Kuat');
end;
if(ramalan='l')then
begin
writeln(' Karakter Leo : ');
writeln('1. Setia ');
writeln('2. Sulit memaafkan');
writeln('3. Labil');
writeln('4. Sentimen');
writeln('5. Ingatan Kuat');
end;
end;
end;
begin
if(bln=8) then
begin
writeln('Agustus');
write('Masukan Tanggal Lahir anda : ');readln(tgl);
if(tgl<=20) then
writeln('Zodiak anda Leo');
if(tgl>=21)then
writeln('Zodiak anda Virgo');
write('Ingin tahu ramalan Leo/Virgo ketik(l= leo, v= virgo) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='l') then
begin
writeln(' Karakter Leo : ');
writeln('1. Setia ');
writeln('2. Sulit memaafkan');
writeln('3. Labil');
writeln('4. Sentimen');
writeln('5. Ingatan Kuat');
end;
if(ramalan='v')then
begin
writeln(' Karakter Virgo : ');
writeln('1. Analis ');
writeln('2. Praktis');
writeln('3. Rajin');
writeln('4. Logis');
writeln('5. Sederhana');
end;
end;
end;
begin
if(bln=9) then
begin
writeln('September');
write('Masukan Tanggal Lahir anda : ');readln(tgl);
if(tgl<=20) then
writeln('Zodiak anda Virgo');
if(tgl>=21)then
writeln('Zodiak anda Libra');
write('Ingin tahu ramalan Virgo/Libra ketik(v= virgo lib= libra) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='v') then
begin
writeln(' Karakter Virgo : ');
writeln('1. Analis ');
writeln('2. Praktis');
writeln('3. Rajin');
writeln('4. Logis');
writeln('5. Sederhana');
end;
if(ramalan='lib')then
begin
writeln(' Karakter Libra : ');
writeln('1. Naluriah ');
writeln('2. Labil');
writeln('3. Adil');
writeln('4. Muka dua');
writeln('5. Mempesona');
end;
end;
end;
begin
if(bln=10) then
begin
writeln('Oktober');
write('Masukan Tanggal Lahir anda : ');readln(tgl);
if(tgl<=20) then
writeln('Zodiak anda Libra');
if(tgl>=21)then
writeln('Zodiak anda Scorpio');
write('Ingin tahu ramalan Libra/Scorpio? ketik(lib= libra, s= scorpio) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='lib') then
begin
writeln(' Karakter Libra : ');
writeln('1. Naluriah ');
writeln('2. Labil');
writeln('3. Adil');
writeln('4. Muka dua');
writeln('5. Mempesona');
end;
if(ramalan='s')then
begin
writeln(' Karakter Scorpio : ');
writeln('1. Gigih ');
writeln('2. Cerdik');
writeln('3. Pendendam');
writeln('4. Tekun');
writeln('5. Pendiam');
end;
end;
end;
begin
if(bln=11) then
begin
writeln('November');
write('Masukan Tanggal Lahir anda : ');readln(tgl);
if(tgl<=20) then
writeln('Zodiak anda Scorpio');
if(tgl>=21)then
writeln('Zodiak anda Sagitarius');
write('Ingin tahu ramalan Scorpio/Sagitarius? ketik(s= scorpio, sag= sagitarius) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='s') then
begin
writeln(' Karakter Scorpio : ');
writeln('1. Gigih ');
writeln('2. Cerdik');
writeln('3. Pendendam');
writeln('4. Tekun');
writeln('5. Pendiam');
end;
if(ramalan='sag')then
begin
writeln(' Karakter Sagitarius : ');
writeln('1. Diplomasi');
writeln('2. Pandangan Luas');
writeln('3. Pandai');
writeln('4. Jiwa Petualang');
writeln('5. Menyukai Kebebasan');
end;
end;
end;
begin
if(bln=12) then
begin
writeln('Desember');
write('Masukan Tanggal Lahir anda : ');readln(tgl);
if(tgl<=20) then
writeln('Zodiak anda Sagitarius');
if(tgl>=21)then
writeln('Zodiak anda Capricorn');
write('Ingin tahu ramalan Sagitarius/Capricorn? ketik(sag= sagitarius, c= capricorn) : ');readln(ramalan);
writeln('-----------------------------------------');
writeln('');
begin
if(ramalan='sag') then
begin
writeln(' Karakter Sagitarius : ');
writeln('1. Diplomasi');
writeln('2. Pandangan Luas');
writeln('3. Pandai');
writeln('4. Jiwa Petualang');
writeln('5. Menyukai Kebebasan');
end;
if(ramalan='c')then
begin
writeln(' Karakter Capricorn : ');
writeln('1. Gengsi tinggi');
writeln('2. Rajin');
writeln('3. Pendiam');
writeln('4. Materialis');
writeln('5. Teguh Pendirian');
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
writeln('');
writeln('Zodiak dan Ramalan ini hanya sekedar hiburan dan ilmu semata');
writeln('jadi jangan di percayai, Percaya hanya kepada Allah Swt.');
readkey;
end.
Tidak ada komentar:
Posting Komentar