Ini permintaan ku pada kakak ku tercinta k'QQ ... hhhee
sebelumnya makasih ya ka..
Script nya mudah di pahami kq...
ga perlu pusing-pusing mikir gimana bacanya..
yang penting dasar-dasar pascal udah tahu..
dan penerapan rumus phytagoras pada pascal ini udah dibuat sedemikian rupa dan sesederhana mungkin...
o iya... ini cuma untuk menghitung sisi miring aja ^_^
ini script nya ..
Program phytagoras;
Uses crt;
Var a,b,c : Real;
Begin
clrscr;
write('Nilai alas (a) = ');
readln(a);
writeln('Nilai tinggi (b) = ');
readln(b);
c:=sqrt((a*a)+(b*b));
writeln('Nilai sisi miring = ',r:2:2);
readkey;
end.
mudah kan ??? .... ^_^
yang penting dasar-dasar pascal udah tahu..
dan penerapan rumus phytagoras pada pascal ini udah dibuat sedemikian rupa dan sesederhana mungkin...
o iya... ini cuma untuk menghitung sisi miring aja ^_^
ini script nya ..
Program phytagoras;
Uses crt;
Var a,b,c : Real;
Begin
clrscr;
write('Nilai alas (a) = ');
readln(a);
writeln('Nilai tinggi (b) = ');
readln(b);
c:=sqrt((a*a)+(b*b));
writeln('Nilai sisi miring = ',r:2:2);
readkey;
end.
mudah kan ??? .... ^_^
source : my sister
Selengkapnya...
