Fungsi SQR dan SQRT dalam pascal

Untuk mendefinisikan kwadrat dan akar kwadrat di dalam fungsi matematika dipakai perintah:

SQR  untuk kwadrat

SQRT untuk akar kwadrat

Argumen fungsi SQR dan SQRT bias variable atau konstanta dengan tipe real ataupun integer, tapi hasil harus real.

contoh program menghitung panjang sisi miring segitiga siku-siku (sqr & sqrt)

Program Sisi_Miring;

Uses wincrt;

Var

   a,b,c:real;

Begin

    clrscr;

    write('Masukkan sisi A = '); readln(a);

    write('Masukkan sisi B = '); readln(b);

    c:=sqrt((sqr(a))+(sqr(b)));

    writeln('Panjang sisi miring = ',c:2:2);

End.

Selamat mencoba!!

Posted in: Pascal