Tugas BPTT di buku hal 64

Soal No 1
Penjumlahan
-----------------------------------------------------

program jumlah;
uses crt;
var
   x:integer;
procedure jum(n:integer);
var
   e,x,hasil: integer;
   begin
    hasil:=0;
    write('Masukan bilangan : ');readln(n);
    for e:= 1 to n do
       begin
         write(e,'+');
         hasil:=hasil+e;
       end;
    writeln('=',hasil);
end;
begin
   textcolor(green);
   clrscr;
   writeln('-----------------------------------------');
   writeln('       *******Penjumlahan********');
   writeln('                   *************');
   writeln;
   jum(x);
   readln;
end.


-----------------------------------------------------
Soal No 2
Faktorial
-----------------------------------------------------
Program Faktorial_pascal;

uses crt;
function Faktorial(a:integer):longint;
begin
  if (A=1)then
    Faktorial:=1
  else
    Faktorial:=a*faktorial(a-1);
end;

var x:integer;
begin
  clrscr;
  writeln('Faktorial Sequence');
  writeln;
  write('Berapa Faktorial : ');readln(x);
  writeln(x,' faktorial ','= ',faktorial(x));
  writeln;
  readln;
end.
------------------------------------------------------------------

Soal No 3
permutasi

Sorry " Sing BIse"
wkakakakakkakakaka