Program Luas dan Keliling Lingkaran dalam Bahasa Pascal

Berikut sintaq untuk membuat program menghitung luas dan keliling lingkaran dalam bahasa pascal. :)


program Prosedure_luas_keliling_lingkaran;

uses wincrt;

var
   bil :integer;

   procedure luaslingkaran;

          var
            r : real;
            ll :real;
          const
               phi=3.14;

          begin
          
            
             write('jari-jari = ');
             readln(r);

             ll := phi*sqr(r);
             writeln('luas lingkaran = ',ll:8:2);

             write('tekan enter');
             readln
          end;

   procedure luassegitiga;
          var
             a,t : real;
             ls : real;
          begin
          
             
               write('alas = ');readln(a);
               write('tinggi = ');readln(t);

               ls := 0.5*a*t;
               writeln('luas segitiga = ',ls:8:2);

               write('tekan enter');
               readln
          end;

   procedure luaspersegipanjang;
          var
             p,l : real;
             lpp : real;
          begin
          
               write('panjang = ');readln(p);
               write('lebar = ');readln(l);

               lpp := p*l;
               writeln('luas persegi panjang = ',lpp:8:2);

               write('tekan enter');
               readln
          end;
   procedure deret;
             var
                i : integer;
             begin
                  i := 900;
                  while i<-900 do
                  i := i-200;
                  writeln('deret = ',i);
             end;

begin
     clrscr;
     writeln('menghitung luas lingkaran');
     luaslingkaran;

     writeln('menghitung luas segitiga');
     luassegitiga;

     writeln('menghitung luas persegi panjang');
     luaspersegipanjang;

     writeln('menampilkan deret');
     deret;

end.

semoga bermanfaat ^_^