Power untuk Pangkat

[headscout]

SELANG-SELING TANDA PLUS DAN MINUS

Code: [Select]

uses SysUtils, Math

var a, b , c , d : real;

begin
d := 1;
a := 0;
c := 0;

     for i := 1 to 5 do
     begin
     a : a + 1;
     c : c + 1;
     d := d * power ((-1) , i)
     b := c + a*d;
     end;
     writeln(b:5:0);

readln;
end.

Hehe... mohon dikoreksi kalau ada salah..... ^^

[Dhanny]

maksudnya??
tujuan programnya apa?
writeln hasil akhirnya mana?

[Dhanny]

Coba sedikit di modif jadi kaya gini,
biar lebih keliatan selang-seling tandanya

SELANG-SELING TANDA PLUS DAN MINUS

Code: [Select]

uses SysUtils, Math

var a, b , c , d : real;

begin
d := 1;
a := 0;
c := 0;

     for i := 1 to 5 do
     begin
     a : a + 1;
     c : c + 1;
     d := d * power ((-1) , i)
     b := c + a*d;
     [b]writeln('b = ', c:5:2, ' + ', a:5:2, ' * ', d:5:2);[/b] // <-- tambahin baris ini
     end;
     writeln(b:5:0);

readln;
end.


Semoga lebih jelas

[headscout]

writeln('b = ', c:5:2, ' + ', a:5:2, ' * ', d:5:2)



Hehe.... thanks, Pa ^^