program daya_listrik;
uses wincrt;
function V (I,R :real) :real;
begin
V:= I*R;
end;
var P, I, R : real;
begin
write (‘I =’) ;
readln (I);
write(‘R=’);
readln (R) ;
p:= V(I,R) * I;
write (‘daya listrik =’ ,P:3:1,’watt’);
end.
Sabtu, 30 Juni 2012
Bahasa Pascal Menghitung Daya Listrik
program daya_listrik;
uses wincrt;
function V (I,R :real) :real;
begin
V:= I*R;
end;
var P, I, R : real;
begin
write (‘I =’) ;
readln (I);
write(‘R=’);
readln (R) ;
p:= V(I,R) * I;
write (‘daya listrik =’ ,P:3:1,’watt’);
end.
Langganan:
Posting Komentar (Atom)
thanks… I’ve been bookmarking mega888 ios download them for a while now and just decided to create a post to provide them to others…
BalasHapusHello, U write some extraordinarily malaysia online casino slot game attractive blogs. I always check back here frequently to see if you have updated
BalasHapusGreat blog, keeping me from working. All the Best
I guess there's always 918kiss download apk an easier way.
BalasHapusWow, what a blog! I mean, you just have so much guts to go ahead and tell it like it is. Youre what blogging needs an open minded superhero who isnt afraid to tell it like it is. This is definitely something people need to be up on. Good luck in the future, man
BalasHapusthanks… I’ve been bookmarking them for a while now and just decided to love your create a post to provide them to others…
BalasHapusThanks for always being the source that explains things instead of just putting an unjustified answer out there. I loved this post
BalasHapus.
REMOVE VENETIAN BLINDS 2021
BalasHapusThanks for sharing your thoughts with us.. they are really interesting.. I would like to read more from you.