uses wincrt;
var
a1,a2,s,l,k:real;
Begin
write ('masukkan angka alas:');readln (a1);
write ('masukkan angka tinggi:');readln (a2);
s:=sqrt(a1*a1+a2*a2);
l:=0.5*a1*a2 ;
k:=a1+a2+s ;
writeln('sisi miringnya:',s:2:2);
writeln('luasnya:',l:2:2);
writeln('kelilingnya:',k:2:2);
end.
membuat program menghitung segitiga dengan Turbo Pascal
Read User's Comments(0)
membuat program kecepatan dengan TPW.Turbo Pascal
uses wincrt;
var
v,s,t : real;
Begin
write ('masukkan angka jarak'); readln (s);
write ('masukkan angka waktu'); readln (t);
v:=s/t;
writeln ('kecepatan:', v:2:2);
end.
Frenship not always with us yet...
may be,,
friendship must be together?
the anwer is NO,,!!
in this world there are not anything forever
so,
our treasures, smart, champion, achievement, beautifully, or friendship, etc
"we need not show off to others"
everything in the world will go to us.
OLIMPIAD IN UM 2010
UM....universitas negeri malang ah yang jelas...
kesan yang dapat ku ambil ketika ikut olimpiade di UM sangat banyak.
mereka juga memberikan banyak fasilitas,
(kalau menurut saya sih!!!!)
bagaimana tidak...??
ketika saya sedang ikut babak penyisihan di SMA 6 SURABAYA
udah di beri notebook 2 dan gantungan kunci dan tak lupa yang terpenting adalah sertifikat.
dan alhamdulillah SMAN MOJOAGUNG LOLOS ke babak semifinal.
semifinalnya di adakan di UM nya sendiri,,
ketika masuk ke sana ya,,,
agak canggung yang jelas...
fasilitas yang diberikan banyak ketika itu,
kaos, ID card, sertifikat, dll.
tapi sayang..
di hari itu temanku Rachmi faricha,, kehilangan sepatu.
tapi untung saja ada gantinya,
lebih bagus dari yang ia puny malah..
yang paling aku sedihkan lagi adalah aku tak bisa mabsuk ke babak final..
aku telah mengecewakan banyak orang termasuk bunda dan ayah...
ma'af bagi orang2 yang telah aku kecewakan,,
Langganan:
Postingan (Atom)