alpro dan pascal

Algoritma

Algoritma Hitung_Volume_Tabung

{Program penghitung Volume tabung dengan memasukkan ukuran

jari-jari alas dan tinggi tabung, lalu mencetak hasil Volume

tabung ke piranti keluaran}

DEKLARASI

{Memulai Deklarasi program yang akan dibuat}

r,t : integer

v : real

y : char

pi = 3.14

DESKRIPSI

{Memulai Deskripsi program yang akan dibuat}

repeat

clrscr

write ('Penghitung Volume Tabung')

write ('  Versi Dirga Roslukito ')

write ('------------------------')

write

write

write ('Tuliskan jari-jari tabung = ')

read (r)

write ('Tuliskan tinggi tabung = ')

read (t)

v ← pi*r*r*t

write

write ('-----------------------')

write

write ('Volumenya adalah ',v:0:2)

write

write ('Mulai penghitungan lagi? (Y/N) ')

read (y)

until upcase(y) <> 'Y'

program Hitung_Volume_Tabung; {Program penghitung Volume tabung dengan memasukkan ukuran jari-jari alas dan tinggi tabung, lalu mencetak hasil Volume tabung ke piranti keluaran} uses wincrt; {Memulai Deklarasi program yang akan dibuat} var r,t:integer; v:real; y:char; const pi=3.14; begin {Memulai Deskripsi program yang akan dibuat} repeat clrscr; writeln ('Penghitung Volume Tabung'); writeln ('  Versi Dirga Roslukito '); writeln ('------------------------'); writeln; writeln; write ('Tuliskan jari-jari tabung = '); readln (r); write ('Tuliskan tinggi tabung = '); readln (t); v:=pi*r*r*t; writeln; writeln ('-----------------------'); writeln; writeln ('Volumenya adalah ',v:0:2); writeln; write ('Mulai penghitungan lagi? (Y/N) '); readln (y); until upcase(y) <> 'Y'; end.

Add to Cart