CORETAN KU

Asalamu'alaikum sobat,bagaimana kabarnya?.Mungkin sobat sudah kenal dan mahir dengan pascal,tapi kali ini saya akan berbagi karena tidak ada salahnya buat berbagi.betul tidak?

Program Pascal Menghitung luas Kubus,berikut input programnya:

Program menghitung_luas_kubus;

Uses WinCrt;

    Var

    sisi:real;

    luas_kubus:real;

Begin

     Writeln('masukkan nilai sisi=');

     Readln(sisi);

     luas_kubus:=6*sisi*sisi;

     Writeln('luas_kubus=',luas_kubus:4:2);

End.  

Dan  ini adalah input dari program pascal menghitung volume kubus:

Program menghitung_volume_kubus;

Uses WinCrt;

    Var

    sisi:real;

    volume_kubus:real;

Begin

     Writeln('masukkan nilai sisi=');

     Readln(sisi);

     volume_kubus:=sisi*sisi*sisi;

     Writeln('volume_kubus=',volume_kubus:4:2);

End.         

Terimakasih atas kunjungannya,kapan-kapan mampir lagi ya sobat. Baca juga program pascal menghitung luas lingkaran.Semoga bermanfaat.