PROGRAM TABUNG

Berikut adalah Script Pascal pembuatan Program mencari segala hal tentang tabung :

PROGRAM TABUNG;

USES

    CRT;

    VAR JARI : REAL;

    VAR TINGGI : REAL;

    VAR LUAS_A : REAL;

    VAR LUAS_S : REAL;

    VAR LUAS_P : REAL;

    VAR VOLUME : REAL;

BEGIN

     WRITELN ('MARI HITUNG TABUNG');

     WRITE ('Masukan Jari-jarinya :');

     READLN (JARI);

     WRITE ('Masukan Tingginya:');

     READLN (TINGGI);

     LUAS_A:= 2*3.14*JARI*JARI;

     LUAS_S:= 2*3.14*JARI*TINGGI;

     LUAS_P:= 2*(3.14*JARI*JARI)+(2*3.14*JARI*TINGGI);

     VOLUME:= 3.14*JARI*JARI*TINGGI;

     WRITELN ('LUAS ALAS =', LUAS_A:8:2);

     WRITELN ('LUAS SELIMUT=', LUAS_S:8:2);

     WRITELN ('LUAS PERMUKAAN=', LUAS_P:8:2);

     WRITELN ('VOLUME=', VOLUME:8:2);

     READLN

END.