Kode pascal untuk menghitung luas dan volume tabung

Assalamu alaikum Wr. Wb.

          Ini merupakan software yang sangat sederhana. software ini dibuat dengan menggunakan pascal dan bahasa pemrograman sederhana. walaupun sederhana, saya tetap bangga membuat ini. software ini.

Dapat di download di : klik disini

          jika anda menggunakan software free pascal, fitur ctrl+v tidak akan berfungsi. jadi, yg harus anda lakukan adalah copy kode dibawah ini seperti biasa, lalu klik edit pada pascal dan klik paste from windows.

link download free pascal: http://www.freepascal.org/

adapun kodenya sebagai berikut :

Uses Crt;
 Label
 Awal;
 Var
    r, t, v, lp : Real;
     Tanya:Char;
 Begin
 Awal:
 ClrScr;
 textcolor (blue) ;
 Writeln('vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv');
 Writeln('>Software Untuk Menghitung Volume dan Luas Permukaan Tabung<');
 Writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
 Writeln;
 readln;
 textcolor (green);
 Writeln('Silahkan memasukkan jari-jari alas dan tinggi tabung');
 readln;
 Write('jari-jari= ');
 Readln(r);
 Write('tinggi  = ');
 Readln(t);
 Writeln;
 textcolor (red);
 Writeln('Jadi....');
 readln;
 v:= 22/7*r*r*t;
 Writeln('Volume    = ',v:5:2);
 readln;
 lp:= 2*22/7*r*r+22/7*r*2*t;
 Writeln('Luas Permukaan= ',lp:5:2); Writeln;
 readln;
 textcolor (yellow);
 Write('Apa masih ada balok yang ingin anda ukur (Y/T):');
 Read(Tanya);
 If Upcase(Tanya)= 'Y'Then Goto Awal;
 End.


terima kasih sudah membaca dan semoga bermanfaat :)

Tweet