MATERI PASCAL

program deret angka;
uses wincrt;
var  i,n:integer;
begin
read(n);
if n=1 then write (1);
if n>1 then
begin
  for i:=n downto 2 do
  write (2*i-1,'+');
  write (1,'=');
  write (sqr(n));
  end;
  end.

MATERI PASCAL

program  angka;
uses wincrt;
var  i,n:integer;
begin
read(n);
if n=1 then write (1);
if n>1 then
begin
  for i:=n downto 2 do
  write (2*i-1,'+');
  write (1,'=');
  write (sqr(n));
  end;
  end.

MATERI PASCAL

program segitiga_pascal;
uses wincrt;
var input,i,j:word; isi:array[0..20,0..21] of word;
begin
writeln('Masukkan berapa tingkat segitiga pascal !');
readln(input);
isi[0,1]:=1;
for i:=1 to input do
begin
for j:=1 to i+1 do
begin
isi[i,j]:=isi[i-1,j]+isi[i-1,j-1];
write(isi[i,j],' ');
end;
writeln;
end;end.

MATERI PASCAL

program bintang;
uses winCrt;
procedure gb (brs,kol:integer);
var i,j:integer;
begin
for i:=1 to brs do
begin
for j:=1 to kol do
begin
if ((i=1)or(i=brs)or(j=1)or(j=kol))then
write ('*')
else write(' ');
end;
writeln;
end;                   
end;
var x,y:integer;
begin                 
write('banyak baris= ');readln(y);
write('banyak kolom= ');readln(x);
writeln('bentuknya:');
gb(y,x);
end.

MATERI PASCAL

program penjumlahan;
uses wincrt;
var i,a,n,hasil,f:integer;
begin
writeln('masukkan angka');readln(n);
a:=n;
for i:=n downto 2 do
begin
hasil:=n*n;
write ((n-1)+a,'+');
a:=a-2;
 end;
 begin
   if n=0 then write ('')
  else if(n<=1) then write ('1')
else write(1,'=',hasil);
end;
end.

MATERI PASCAL

program deret_angka;
uses wincrt;
var f,i,j,n,a:integer;
begin
readln(n);
for i:=n downto 2 do
begin
j:=i+i-1;
write (j,'+');
end;
begin
a:= n*n;
write (1,'=',a);
end;
writeln;
end.

MATERI PASCAL

program deret angka;
uses wincrt;
var  i,n:integer;
begin
read(n);
if n=1 then write (1);
if n>1 then
begin
  for i:=n downto 2 do
  write (2*i-1,'+');
  write (1,'=');
  write (sqr(n));
  end;
  end.

MATERI PASCAL

program deret angka;
uses wincrt;
var i,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to i do
write (j);
writeln;
end;
end.

MATERI PASCAL

program dua_dimensi;
uses wincrt;
var x: array [1..10,1..10] of real;
p,l,i,j:integer;
begin
write('Panjang = ');readln(p);
write('Lebar = ');readln(l);
writeln('Masukkan isi matriks!');
for i:=1 to l do
for j:=1 to p do
read(x[i,j]);
writeln;
writeln('Bentuk matriksnya');
for i:=1 to l do
begin
for j:=1 to p do
write(x[i,j]:3:0,' ');
writeln;
end;
writeln('Bentuk matriks transpose nya');
for j:=1 to p do
begin
for i:=1 to l do
write(x[i,j]:3:0,' ');
writeln;
end;
end.