Penggunaan Akar (SQRT), Pangkat (SQR), SIN, COS dan TAN

Catatan:
SQR(i)    = perintah untuk pangkat
SQRT(i)    =untuk akar
Rumus matematika:
Sec = 1/cos
Tan = 1/ cos

1. Contoh : Menggunakan Rumus Pytagoras

Hitung nilai a jika:
b = 3
c = 4
a = ?

sekarang kita coba buat program dari soal di atas.

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a,b:integer;
  c:real;
 begin
  writeln ('Rumus Phytagoras');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('masukkan a=');readln(a);
  write ('masukkan b=');readln(b);
  c:=sqrt(sqr(a)+sqr(b));
  writeln ('c=',c:10:2);
  readln;
end.

2. Penggunaan  SIN, COS, Dan TAN
Contoh buat program dengan rumus:  y:=sqr(1/cos(x))-sqr(sin(x)/cos(x));
kita cari nilai y dengan menginputkan nilai x

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  x:integer;
  y:real;
begin
  writeln ('Penggunaan SIN, COS, Dan TAN');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('masukkan x=');readln(x);
  y:=sqr(1/cos(x))-sqr(sin(x)/cos(x));
  writeln ('y=',y:10:2);
  readln;
end.

Sekian dari saya terimakasih.

baca juga materi tentang mod dan div (hasil dan sisa bagi).