uses wincrt;
var
p,l,t,v:integer;
begin
writeln('Masukkan nilai panjang');
readln(p);
writeln('Masukkan nilai lebar');
readln(l);
writeln('Masukkan nilai tinggi');
readln(t);
v := p * l * t;
writeln(v);
readln;
end.
<html> <title>Membuat program kalkulator sederhana menggunakan textboxKamis, 22 September 2011
segi tiga
uses wincrt;
var
p,l,t,v:integer;
begin
writeln('Masukkan nilai panjang');
readln(p);
writeln('Masukkan nilai lebar');
readln(l);
writeln('Masukkan nilai tinggi');
readln(t);
v := p * l * t;
writeln(v);
readln;
end.
Langganan: Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar