program pascal penjumlahan perpangkatan

Jika kamu Berani Mencoba jangan takut Gagal, tapi percayalah bahwa kamu Pasti Bisa!! ^__-

penjumlahan-perpangkatan

PROGRAM PENJUMLAHAN BILANGAN GANJIL

program input_output_penjumlahan_ganjil;
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.

program perpangkatan;
uses wincrt;
var i,o,p:longint;
hasil:real;
begin writeln('a pangkat b');
writeln('masukkan a=');readln(o);
writeln('masukkan b=');readln(p);
hasil:=1;
for i:=1 to abs(p) do
hasil:=o * hasil;
if (p<0) then
begin
write('hasil=');
write(1/hasil);
end
else
begin
write('hasil= ');
write(hasil);
end;
end.