Hallo bro, kali ini dokter matematika mau ngeshare gimana caranya buat program sederhana menggunakan software Turbo Pascal for Windows. Di program ini akan menentukan semua unsur dari nilai yang akan dimasukan dalam program. Contohnya saja nilai ketika memasukan nilai 4, seperti gambar dibawah ini.
Nah enkripsi yang dibutuhkan adalah sebagai berikut:
Program Aritmatik;
Uses wincrt;
Var x : Real;
Begin
Clrscr;
Write('Masukkan nilai dari X = ');
Readln (x);
If x <0 Then x:=Abs (x);
Writeln('Nilai X = ',x:5:2);
Writeln ('Nilai eksponentialnya = ',EXP(x):9:3);
Writeln ('Nilai logaritma alamnya = ',LN(x):9:3);
Writeln ('Nilai integernya = ',INT(x):5:2);
Writeln ('Nilai fraksionalnya = ',FRAC(x):5:2);
Writeln ('Nilai X dipangkatkan = ',SQR(x):9:3);
Writeln ('Nilai X diakarkan = ',SQRT(x):9:3);
Write('Nilai X jika dimasukkan dalam ');
Writeln('fungsi Sin,Cos,Tangen: ');
Writeln('- Sinus = ',Sin(x):9:3);
Writeln('- Cosinus = ',Cos(x):9:3);
Writeln('- Tangen = ',ArcTan(x):9:3);
End.
Selamat mencoba, salam hangat dari dokter matematika. :)
