Membuat aplikasi tebak hari lahir dengan menggunakan Turbo Pascal

A.Desain

Adapun disain program yang ditawarkan penyusun adalah sebagai berikut :

Dari desain program Tebak Hari Lahir  diatas terlihat sebuah menu yang di dalamnya terdapat sub-menu yaitu :

1.Tebak Hari Lahir .

Sub-menu ini berfungsi untuk mengetahui  pada hari apakah seseorang  lahir , Tampilannya

sebagai berikut :

 

B.Coding

Program di atas di buat dengan menggunakan bahasa pemrograman Turbo Pascal 1.5  

for Windows, adapun listing programnya adalah sebagai berikut :

program tebak_hari_lahir;

uses wincrt;

var

   hari:integer;

   a:integer;

   b:integer;

   c:integer;

   d:integer;

   lagi:char;

begin

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

     writeln('Met dateng di program Dena, kawan:*');

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

     writeln('pada hari apa kamu lahir? coba kita cek:)');

     lagi:= 'y';

     while (lagi='y') or (lagi='Y') do

     begin

     write('masukkan tanggal kelahiranmu?');readln(a);

     writeln('masukkan kode bulan kelahiranmu?');

     writeln('kode bulan: Jan=1, Feb= 4, Mar=4,Apr=0,Mei=2,Jun=5');

     write('jul=0, Ags=3, sep=6, okt=6,nov=4, des=6?');readln(b);

     write('masukkan 2 angka tahun lahirmu?');readln(c);

     writeln('masukkan jumlah bilangan dari tahun lahirmu?');

     write('(contoh:1+9+9+6=25)'); readln(d);

     hari:=(a+b+c+d) mod 7 - 1;

     if hari=0 then

     begin

        writeln('hei kawan,kamu lahir hari sabtu:*');

        writeln('danke schÖn yaa udah ngunjungin programku :)');

        writeln('ajak juga teman-temanmu yang lainnya :D');

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

        writeln('©ontact person: @denaaw on twitter');

        writeln('                Denaagnezious Purple Cattleya on Fb');

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

     end

     else

         if hari=1 then

         begin

            writeln('hei kawan,kamu lahir hari minggu:*');

            writeln('danke schÖn yaa udah ngunjungin programku :)');

            writeln('ajak juga teman-temanmu yang lainnya :D');

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

            writeln('©ontact person: @denaaw on twitter');

            writeln('                Denaagnezious Purple Cattleya on Fb');

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

         end

         else

             if hari=2 then

             begin

                writeln('hei kawan,kamu lahir hari senin:*');

                writeln('danke schÖn yaa udah ngunjungin programku :)');

                writeln('ajak juga teman-temanmu yang lainnya :D');

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

                writeln('©ontact person: @denaaw on twitter');

                writeln('                Denaagnezious Purple Cattleya on Fb');

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

             end

             else

                 if hari=3 then

                 begin

                    writeln('hei kawan,kamu lahir hari selasa:*');

                    writeln('danke schÖn yaa udah ngunjungin programku :)');

                    writeln('ajak juga teman-temanmu yang lainnya :D');

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

                    writeln('©ontact person: @denaaw on twitter');

                    writeln('                Denaagnezious Purple Cattleya on Fb');

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

                 end

                 else

                     if hari=4 then

                     begin

                        writeln('hei kawan,kamu lahir hari rabu:*');

                        writeln('danke schÖn yaa udah ngunjungin programku :)');

                        writeln('ajak juga teman-temanmu yang lainnya :D');

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

                        writeln('©ontact person: @denaaw on twitter');

                        writeln('                Denaagnezious Purple Cattleya on Fb');

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

                     end

                     else

                         if hari=5 then

                         begin

                            writeln('hei kawan,kamu lahir hari kamis:*');

                            writeln('danke schÖn yaa udah ngunjungin programku :)');

                            writeln('ajak juga teman-temanmu yang lainnya :D');

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

                            writeln('©ontact person: @denaaw on twitter');

                            writeln('                Denaagnezious Purple Cattleya on Fb');

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

                         end

                         else

                             if hari=6 then

                             begin

                                writeln('hei kawan,kamu lahir hari jumat:*');

                                writeln('danke schÖn yaa udah ngunjungin programku :)');

                                writeln('ajak juga teman-temanmu yang lainnya :D');

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

                                writeln('©ontact person: @denaaw on twitter');

                                writeln('                Denaagnezious Purple Cattleya on Fb');

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

                         end;

                         write('Mau coba lagi? (y/t):');readln(lagi);

                         ClrScr;

                         end;

end.