Copy Scrip Pascal berwarna Biru yang ada pada halaman ini dan Paste-kan ke dalam Notepad, kemudian Copy dari Notepad anda ke dalam Compiler Turbo Pascal dan Compile Menggunakan Alt+F9 --> OK --> Enter.
Jalankan Program dengan menekan tombol Ctrl+F9 :
Program Penjumlahan_Deret;
Uses
Wincrt;
Var
N : integer;
Function Deret(a:integer):longint;
Var
i : integer;
Jumlah:longint;
Begin
Jumlah:= 0;
for i := 1 to a do
Begin
Write(i,' ');
Jumlah:=Jumlah+i;
End;
Write('=');
Deret:=Jumlah;
End;
Begin
Write('Inputkan Nilai Deret : = ');Readln(N);
Writeln(Deret(N):0);
End.
Semoga bermanfaat.
Salam,
Yura Hyde Tetsu
Jika Merasa Arikel dan Bacaan di
Billix Multimedia v.2
Bermanfaat,
Jangan Lupa Share ke Teman-teman melalui Tombol Share di bawah posting ini
Like on
Billix Multimedia v.2 Facebook
. Follow atau Berlangganan Via Email.
Terimakasih
Yang Copas, Jangan Lupa Mencantumkan Sumbernya Yah!
0 komentar :
Post a Comment