Program Deret dan Program Persegi

Berikut ini saya tuliskan beberapa contoh program pascal yang saya dapat dari berbagai sumber. Disini saya juga menyertakan hasil input dan output programnya sehingga kalian akan lebih mudah dalam mempelajarinya. Silahkan di coba .. :)

• Program Deret Pascal

program pascal;
uses wincrt;
var
x,y:array[1..100] of integer;
i,j,k:byte;
begin
write ('masukkan tingkatan pascal= '); readln (k);
writeln ('1');
x[1]:=1;
x[2]:=1;
writeln (x[1],' ',x[2]);
for i:=2 to k do
begin
y[1]:=1;
write (y[1],' ');
for j:=2 to i do
begin
y[j]:=x[j-1]+x[j];
write (y[j],' ');
end;
y[i+1]:=1;
write (y[i+1],' ');
move (y,x,sizeof (x));
writeln;
end;
end.


Tuliskan dalam program pascal seperti ini :

Hasilnya setelah di run :

• Program Persegi

program persegi;

uses wincrt;

procedure

gb (p,l:integer);

var

i,j:integer;

begin

for i:=1 to p do

begin

for j:=1 to l do

begin

if ((i=1)or(i=p)or(j=1)or(j=l))then

write ('*')

else write (' ');

end;

writeln;

end;

end;

var

x,y:integer;

begin

write ('panjang yang diinginkan= '); readln (y);

write ('lebar yang diinginkan= '); readln (x);

writeln ('ini dia perseginya');

gb (x,y);

end.

Tuliskan dalam program pascal seperti ini :

Hasilnya setelah di run :