nah ini tugas sih sebenernya, tugasnya untuk menghitung deret bilangan berpangkat 3 di pascal, kal ini sih aku juga make TPW 1.5, untuk temen yang punya tugas yang sama mungkin ini bisa jadi referensi. dan mohon koreksi jika ada kesalahan...
ini codenya :
Program Bilangan_Pangkat_3;
uses wincrt;
var
S, Suku, N : Integer;
Begin
writeLn;
writeLn ('++++++++++++++++++++++++++++++++++++++++');
WriteLn ('Menampilkan Deret Bilangan Pangkat 3');
WriteLn ('++++++++++++++++++++++++++++++++++++++++');
writeLn;
S := 1;
Suku := 1;
N := 10;
While Suku <= N Do
Begin
Write (S);
write (' ');
Suku := Suku + 1;
S := Suku*Suku*Suku;
End;
WRITELN;WRITELN;
writeLn ('++++++++++++++++++++++++++++++++++++++++');
End.
ok. semoga bermanfaat ya...