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.

Matriks identitas modifikasi (PASCAL)

program Matrik_identitas_modifikasi;
uses crt;
var

  i,j,k,l : integer;
  pil :char;

begin
 repeat
 begin
 clrscr;
 writeln('Program Matriks_Identitas_Modifikasi');
 writeln('====================================');
 write('Masukan ordo matrik  = ' ); readln(i);
     k := i;
       if (k>0)and (k<=1000) then
       begin
            for j:=1 to i do
            begin
             for l:=1 to i do
             begin
             if (j=l) then
             write(j)
             else
             write('0');
             end;
             writeln();
            end;
       end
       else
       writeln('inputan ',i,' tidak di perbolehkan');
       writeln;
     end;
   writeln;
   write (' Apakah anda ingin mengisi kembali ?(Y/T) = ');readln(pil);
   until pil = 't';

end.

Tampilan :

Program Deret Fibonacci [Pascal] Validasi y/n?

program Jumlah_deret_fibonacci;
uses crt;

Var
n,m,i,a,b,c,hasil : integer;
pilihan           : char;
begin
 repeat
 clrscr;

 writeln ('Program Hitung Jumlah Deret Fibonaccy');
 writeln ('=====================================');
 write ('Masukkan Banyaknya Deret : '); readln(n);

 m := n ;

   if (m >= 1000) and (m<1) then
   begin
   writeln (' Jumlah Deret Yang Anda Masukkan Salah ! ');
   writeln (' 0 < Deret <= 1000 ');
   write ('Masukkan Banyaknya Deret : '); readln(n);
   end
   else
   hasil := 1;
   a:= 0;
   b:=1;
   write ( a,' ', b,' ');

          For i := 1 to n-1 do
          begin
          c:=a+b;
          hasil := hasil + c;
          write( c, ' ');
          a:=b;
          b:=c;
          end;


 writeln ('= ',hasil);
 writeln (' ===================== ');
 writeln (' INGIN MENGULANG ?(Y/T)');read(pilihan);

 until pilihan = 't';
end.

tampilannya :

Program fibonacci ( PASCAL) Repeat Until

program DeretFibonacci;
uses crt;
var
i,n,f,f1,f2 : longint;
pil:char;

begin
repeat
clrscr;
write(' MASUKKAN SUKU KE-N : ');readln(n);
f1 := 1;
f2 := 1;

if (n = 1) then
begin
writeln(' SUKU KE-1 ADALAH = 1');
end
else
begin
writeln(' SUKU KE-1 ADALAH = 1');
writeln(' SUKU KE-2 ADALAH = 1');
end;

for i:=3 to n do
begin
f:=f1+f2;
writeln(' SUKU KE-',i,' ADALAH = ',f);
f2:=f1;
f1:=f;
end;

write (' INGIN MENGULANG ?(Y/T)');readln(pil);
until pil = 't';
end.

Tampilan :

THANKS to AGUSTINUS RAHMAT SIJABAT

http://www.facebook.com/agustinusclairvoyant

=============================END=====================================