TUGAS PROKOM TENTANG SIGMA

Program Menentukan_Banyak_dan_Jumlah_Bilangan_dari_Bilangan_Pecahan;

Uses crt;

Var
jumlah:real;
x,n:integer;


Begin
Clrscr;

Writeln (' SELAMAT DATANG ');
Writeln (' DI PROGRAM MENENTUKAN BANYAK & JUMLAH BILANGAN DARI BILANGAN PECAHAN');
Writeln ('...........DIBUAT OLEH YUNIAR DIAN NURINAWATI 070790............');
Writeln;

n:=20;
jumlah:=0;

for x:=1 to n-1 do
begin
write ('1/',x*x,' + ');
jumlah:=jumlah+1/(x*x);
end;

write ('1/',n*n);
jumlah:=jumlah+1/(n*n);
writeln;

writeln;
writeln ('Banyaknya:',n);
writeln ('Jumlah:',jumlah:2:2);

readln;

End.

TAMPILAN DALAM BENTUK OUTPUT