Program Kubus Pascal

Buatlah program kubus pada pascal dengan memasukkan jumlah rusuk sehingga menampilkan Diagonal Ruang serta Volume Kubus sehingga tampilannya seperti diatas.

 

Jawab :

PROGRAM KUBUS;

Uses crt;

var

    r : integer;

    diagonal,vk : real;

Begin

    clrscr;

    writeln('     TUGAS KUBUS     ');

    writeln;

    writeln;

    write('masukkan rusuk = ');

    readln(r);

    diagonal:=sqrt(sqr(sqrt(sqr(r)+sqr(r)))+(sqr(r)));

    vk:=r*r*r;

    writeln;

    writeln;

    writeln('------------------------------');

    writeln('Diagonal kubus = ',diagonal:4:2);

    writeln('Volume kubus   = ',vk:4:2);

    writeln('------------------------------');

    readln;

end.

Anda sedang membaca artikel tentang Program Kubus Pascal dan Anda bisa menemukan artikel Program Kubus Pascal ini dengan url http://gratisan69.blogspot.com/2012/04/program-kubus-pascal.html. Anda boleh menyebarluaskan atau mengcopy artikel Program Kubus Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.

Artikel Terkait