Menggunakan Rumus Phytagoras dengan Pascal

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 ??? .... ^_^

source : my sister

http://rifqi-z.blogspot.com/2010/12/program-phytagoras-dg-pascal.html