Populeritas Blog

Friday, March 15, 2013

Program Looping

BY Anonymous No comments

Oke, kali ini gua posting Program Looping bintang menurun, tetep belajar sob, jangan copy-paste mulu. hahaa :p

uses wincrt;

var

i,j:integer;

begin

for i:=5 downto 1 do

begin

for j:=i downto 1 do

begin

write('*');

end;

writeln;

end;

end.

Jumlah Total Data pada Pascal

BY Anonymous No comments

Oke, kali ini gua posting Program Jumlah Total Data pada Pascal, tapi ini menggunakan Looping (perulangan) tetep belajar sob, jangan copy-paste mulu. hahaa :p

uses wincrt;

var

i,n,jml,data:integer;

ratarata:real;

begin

write('banyak data:');readln(n);

for i:=1 to n do

begin

write('data ke ',i,':');read(data);

jml:=jml+data;

end;

ratarata:=jml/n;

writeln('jumlah total data=',jml);

writeln('rata-rata=',ratarata:3:2);

end.

Program Faktorial Pada Pascal

BY Anonymous No comments

Oke, kali ini gua posting Program Faktorial pada Pascal, tetep belajar sob, jangan copy-paste mulu. hahaa :p

Program Faktorial_pascal;

uses wincrt;

function Faktorial(a:integer):longint;

begin

if (A=1)then

Faktorial:=1

else

Faktorial:=a*faktorial(a-1);

end;

var jml,x,i,a,N:integer;

begin

writeln('N:');

readln(N);

for i:= 1 to N do

jml:=jml+i;

write('Berapa Faktorial : ');readln(x);

writeln(x,' faktorial ','= ',faktorial(x));

writeln('Jumlah deret: ',jml);

end.

Program Ganjil Genap pada Pascal

BY Anonymous No comments

Oke, kali ini gua posting Program Mencari Ganjil Genap, silahkan yg mau download disini.
Jangan lupa comment. Terima-kasih.

Program Menghitung Pertambahan Dan Matrik pada Pascal

BY Anonymous No comments

Oke, kali ini gua posting Program Menghitung Pertambahan Dan Matrik, silahkan yg mau download disini.
Jangan lupa comment. Terima-kasih.