October 19 – 2010

Program Matematika;
{ Nama            : Rindesi Silviana
 Kelas            : III/A
 Study            : Algoritma n Pemrograman
 Matery           : Mencari Luas dan Keliling Layang-layang
 }

uses wincrt;
var  p, q, kel, luas: integer;
var nama,mulai,pilih, lanjutkan : char;

procedure akhir;
begin
 clrscr;
 writeln('                     ##################################   ');
 writeln('                     #          Terima Kasih          #   ');
 writeln('                     # Telah Menggunakan Program Kami #   ');
 writeln('                     ##################################   ');
end;
procedure iseng;
begin
 clrscr;
 writeln('                     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^   ');
 writeln('                     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   ');
end;
procedure a;
begin
 clrscr;
 lanjutkan:='y';
 repeat
 writeln('Program Mencari luas Layang-layang');
 write('Masukan Diagonal Panjangnya ;');
 readln(p);
 writeln;
 write('Masukan Diagonal yang Pendek :');
 readln(q);
 luas:=(p*q) div 2;
 writeln('Luas Layang-layang adalah :',luas);
 writeln('++++++++++++++++++++++++++++++++++++++');
 writeln('Apa anda ingin menggunakan kembali ? ');
 writeln('                      Pilih Y(ya) atau T(tidak) !?!? ');
 readln(lanjutkan);
 until lanjutkan='t';
 clrscr;
 end;
procedure b;
begin
 clrscr;
 lanjutkan:='y';
 repeat
 writeln('Program Mencari Keliling Layang-layang');
 write('Masukan Diagonal Panjangnya ;');
 readln(p);
 writeln;
 write('Masukan Diagonal yang Pendek :');
 readln(q);
 kel:= 2*(p+q);
 writeln('Keliling Layang-layang adalah :',kel);
 writeln('++++++++++++++++++++++++++++++++++++++');
 writeln('Apa anda ingin menggunakan kembali ? ');
 write('Pilih Y untuk melanjutkan dan T untuk berhenti : ');
 readln(lanjutkan);
 until lanjutkan='t';
 clrscr;
 end;
procedure pilihan;
begin
 clrscr;
 lanjutkan:='y';
 while lanjutkan='y' do
begin
 writeln('                            Pilihan Program ');
 writeln('                          Tentukan pilihan Anda : ');
 write('                        Pilih 1 : Luas, 2 : keliling : ');
 readln(Pilih);
 clrscr;
 case pilih of
 '1' : a    ;
 '2' : b ;
 else
 writeln('                           Terjadi Kesalahan !!!!!!');
 writeln('');
 writeln('            Anda Salah Memasukan Pilihan, ikuti tautan dibawah ini ; ');
 writeln('        Apabila anda ingin melanjutkan kembali program ini pilih ya (Y)');
 writeln('               Tapi apabila ingin berhenti pilih no (N)');
 end;
 writeln('                 Apa anda ingin melanjutkan program ini ? ');
 write('                              pilih Y atau T  :  ');
 readln(lanjutkan);
 end;
 akhir;
 end;
begin
 writeln('             <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ');
 writeln('             *Untuk menggunakan program silahkan isi form berikut ::* ');
 writeln('             >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ');
 writeln('');
 write('                              Anda siapa ? ');
 readln(nama);

 clrscr;
 writeln('                    =============================================');
 writeln('                    =      Apabila anda ingin melanjutkan       =');
 writeln('                    =  Silahkan pilih Y atau T untuk memulai :  =');
 writeln('                    =============================================');
 writeln('                                ket : y(ya)/t(tidak) ');
 readln(mulai);
 if (mulai='Y') or (mulai='y') then pilihan else akhir;

 end.

Sekian saja program pascal yang saya buat, Mohon maaf apabila program yang saya buat kurang sempurna
Terima kasih..

Program Pascal – Program Penghitungan Matematika

Ini adalah program pascal 1.5 yang berfungsi untuk menghitung keliling dan luas dari bangun laying-layang (bujur sangkar).
Berikut adalah isi dari program pascal:

Program Layang-layang ;
uses wincrt ;
var p, q, kel, luas: integer ;

begin
clrscr ;
writeln(‘Program Mencari Luas dan Keliling Layang-layang’) ;
write(‘Masukan Diagonal Panjangnya ;’) ;
readln(p) ;
writeln ;
write(‘Masukan Diagonal yang Pendek :’) ;
readln(q) ;
kel:= 2*(p+q) ;
luas:=(p*q) div 2 ;
writeln(‘Luas Layang-layang adalah :’,luas) ;
writeln(‘Keliling Layang-layang adalah :’,kel) ;
readln ;
clrscr ;
begin
writeln(”) ;
writeln(‘Terima Kasih Telah Menggunakan Program ini’) ;
end ;
end.

Dan ini adalah hasilnya:

Sekian dan semoga bermanfaat…….

Hello world!

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!