Coding Pascal

Program Lingkaran

uses wincrt;

var

r, luas, keliling : integer;

const phi = 3.14:real;

begin

write('masukkan jari-jari:');readln(r);

L := phi*r*r;

write('luasnya =', luas);

k := 2*phi*r;

write('kelilingnya =', keliling);

readln;

end.

                                    

PROGRAM BINTANG MENGGUNAKAN PASCAL

 program bintang_segitiga_siku;

uses wincrt;

var a, b, n : integer;

begin

      write ('Masukkan angka : '); readln (n);

for a := 1 to n do

begin

      for b := 1 to a do

      begin

            write ('*');

end;

      writeln (' ');

end;

readln;

end.

program bintang_persegi;

uses wincrt;

var n, a, b, c : integer;

begin

      clrscr;

      write ('Masukkan angka : ');readln(n);

      for a := 1 to n do

      begin

            write ('*');

      end;

      writeln;

      for b := 2 to n-1 do

      begin

            write ('*');

            for c := 1 to n-2 do

            begin

                  write (' ');

            end;

            write ('*');

            writeln;

      end;

      for a := 1 to n do

      begin

            write ('*');

      end;

      readln;

end.

program bintang_segitiga_samakaki;

uses crt;

var n, a, b : integer;

begin

      clrscr;

      write ('Masukkan angka : ');readln (n);

      for a := 1 to n do

      begin

            for b := 0 to n-a do

            begin

                  write (' ');

            end;

            for b := 1 to (2*a)-1 do

            begin

                  write ('*');

            end;

            writeln;

      end;

      readln;

end.

program UTS;

uses crt;

var n, a, b : integer;

begin

      clrscr;

      write ('Masukkan angka : '); readln (n);

      for a := 1 to n do

      begin

            for b := 1 to (2*n)-a do

            begin

                  write (' ');

            end;

            for b:= 1 to (2*a)-1 do

            begin

                  write ('*');

            end;

            writeln;

      end;

      for a := 1 to n do

      begin

            for b := 1 to n-a do

            begin

                  write (' ');

            end;

            for b := 1 to a do

            begin

                  write ('*');

            end;

            for b := 1 to (2*n)-1 do

            begin

                  write (' ');

            end;

            for b := 1 to a do

            begin

                  write ('*');

            end;

            writeln;

      end;

      for a := 1 to n-1 do

      begin

            for b := 1 to a do

            begin

                  write (' ');

            end;

            for b := 1 to n-a do

            begin

                  write ('*');

            end;

            for b := 1 to (2*n)-1 do

            begin

                  write (' ');

            end;

            for b := 1 to n-a do

            begin

                  write ('*');

            end;

            writeln;

      end;

      for a := 0 to n-1 do

      begin

            for b := 1 to n+a do

            begin

                  write (' ');

            end;

            for b := 2 to (2*n)-(a*2) do

            begin

                  write ('*');

            end;

            writeln;

      end;

      readln;

end.