Program Pascal menghitung kuadrat

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

Cita Cita

STATISTIKA salah satu ilmu yang dibutuhkan oleh semua bidang kehidupan. Bahkan sampai ilmu kedokteran pun tetap membutuhkan ilmu statistik. Semua yang ada di dunis ini tidak ada yang pasti, pasti ada peluang untuk sukses atau gagl dalam suatu permasalahan. Statistik bisa membantu memperkecil kegagalan denagn ilmu statistika inferensianya. Mempelajari tentang apa-apa saja yang menyebabkan eror dan cara mengatasi agar eror bisa diperkecil.
tidak hanya perhitungan, Statistika juga ada mata kuliah tentang komputasi yaitu PIK(Pengantar Ilmu Komputer). dimana materi awal ynang diberikan tentang Turbo Pascal for Windows.
TPW!!