PROGRAM HITUNG PANGKAT (PASCAL) FUNGSI

Penampakan :

-----------------------------------------------------------------------------------------------------

program hitung_pangkat;
uses crt;
var
a, n : integer;

            function pangkat(x : integer) : real;
            var
               hasil : real;
            begin
                 hasil := exp(x*ln(a));
                 pangkat:=hasil;
            end;

{-Main Program-}

begin
clrscr;

       write('Masukkan angka : ');readln(a);
       write('Dipangkatkan berapa ? ');readln(n);
       writeln('========================');
       writeln('Jadi ',a,'^',n,' adalah ',pangkat(n):2:0);
       writeln('========================');
       writeln('LUTFIBROWN"s SIMPLE CODE');

readln;
end.

PROGRAM HITUNG DERET 1+2+4+8+16+... (PASCAL)

Tampilan:

                                                                                                                                    



Program Hitung_deret;
uses crt;

var
i : integer;
a,c,b, jumlah: real;

begin
writeln('MENGHITUNG DERET 1 + 2 + 4 + 8 + 16 + 32 + 64 + 128 + sampai 50 angka');
     a:= 0.5;
     b:= 2;
     jumlah:= 0;
     for i := 1 to 50 do
     begin
     c:= a * b;
     a:= c;
     jumlah:= jumlah + c;
     end;
     writeln('jumlah deret = ', jumlah:0:0);
readln;

end.

PROGRAM CETAK BINTANG ASCENDING (PASCAL)

LATIHAN PRA-UTS 1c.

                                                                                                                             

 

                                                                                                                            

program star_ascending;

                uses crt;

                var

n, i, j : integer;

begin

write ('masukkan angka untuk mencetak bintang : '); readln(n);

for i := 1 to n do

begin

     for j := 1 to i do

     begin

     write ('*');

     end;

     writeln ( );

end;

readln;

end.

                                                                                                                            

PROGRAM CETAK BINTANG ASCENDING DESCENDING (PASCAL)

LATIHAN_PRA-UTS 1.b

 

 

program star_ascending_descending;

uses crt;

var

n,i,j : integer;

begin

write('Masukkan angka untuk mencetak bintang : ');readln(n);

for i := n downto 1 do

begin

     for j := 1 to i do

     begin

     write ('*');

     end;

     writeln ( );

end;

for i := 1 to n do

begin

     for j := 1 to i do

     begin

     write ('*');

     end;

     writeln ( );

end;

readln;

end.

Program CETAK BINTANG DESCENDING (PASCAL)

LATIHAN _ PRA-UTS

program star_descending;

uses crt;

var

n,i,j : integer;

begin

                                write('Masukkan angka untuk mencetak bintang : '); readln(n);

                                for i := n downto 1 do

                                begin

                                         for j := 1 to i do

                                         begin

                                         write ('*');

                                         end;

                                writeln( );

                                end;

readln;

end.

Program CETAK BINTANG VARIASI (PASCAL)

program star_variasi;

uses crt;

var

n, i, j, k : integer;

begin

write ('Masukkan angka untuk mencetak bintang : '); readln(n);

for i := 1 to n do

begin

     writeln ('*');

     for j := 1 to i do

     begin

          for k := 1 to 4 do

          begin

          write('*');

          end;

          writeln;

     end;

end;

writeln('*');

readln;

end.

TAMPILANNYA SEBAGAI BERIKUT:

Program CETAK BINTANG PIRAMIDA (PASCAL)

program pola_Bintang;
uses crt;

var
n,m,i,j,k,l : integer;
PIL: CHAR;

begin
REPEAT
  writeln('Program bintang');
  writeln('==============');
  write('Masukkan nilai untuk pola bintang  = ');readln(n);
  begin
       for i := 1 to n do
       begin
            for j := n-i downto 1 do
            begin
            write(' ');
            end;
            for k:= 1 to (i-1+i) do
            begin
            write('*');

            end;
            writeln;
            end;

       end;


   writeln;
   write (' Apakah anda ingin mengisi kembali ?(Y/T) = ');readln(pil);
   writeln;

   until pil = 't';

 end.