PROGRAM JAJAR GENJANG

program jajargenjang;
uses crt; {kalau dev pascal menggunakan wincrt};
var i,j,k,l,n : integer;
begin
     write('input nilai n= ');
     readln(n);
     for i:=1 to n do
     begin
          for j:=i to n do
          begin
               write(' ');
          end;
          for k:=1 to n do
          begin
          write(' *');
          end;
          writeln;
     end;
     readkey;
end.

Read More

program mencari faktorial

program faktorial;
uses crt;
var
a,b : integer;
c : int64;
begin
clrscr;
writeln('Program Faktorial by efelin');
writeln;
write('Masukkan angka = ');
readln(a);
c:=1;
if a=0 then
write(c)
else
begin
for b:=a downto 1 do
c:=b*c;
write('Hasil faktorial = ',c);
end;
readln;
end.

Read More

program jajargenjang

program mencetak_jajargenjang;
uses wincrt;
var i,j,k,l,n : integer;
begin
     write('input nilai n= ');
     readln(n);
     for i:=1 to n do
     begin
          for j:=i to n do
          begin
               write(' ');
          end;
          for k:=1 to n do
          begin
          write(' *');
          end;
          writeln;
     end;
     readkey;
end.

Read More

PROGRAM BILANGAN GANJIL DAN BILANGAN BULAT

program untuk menampilkan apakah x bilangan ganjil atau bilangan genap, dengan syarat bilangan x diinput melalui keyboard

program bilganjil;
uses wincrt;
var x:integer;
begin
     write('input sebuah bilangan: ');
     readln(x);
     if x mod 2=0 then
        writeln('x adalah bilangan genap')
        else
             write('x adalah bilangan ganjil');
     readkey;
end.


contoh tampilan hail di layar

Read More