Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Latihan6
Language: PASCAL
Code:
Program Aritmatika;
var
    x:real;
begin
  write('masukan nilai dari X=');Readln(x);
  Writeln('Nilai X =',x:5:2);
  Writeln('Nilai logaritma alamnya=',LN(x):9:3);
  Writeln('Nilai eksponentialnya=',EXP(x):9:3);
  Writeln('Nilai truncnya=',TRUNC(X));
  Writeln('Nilai integernYA=',INT(X):5:2);
  Writeln('Nilai X dipangkatkan=',SQR(X):9:3);
  Writeln('Nilai X diakarkan=',SQRT(x):9:3);
  Write('Nilai X dimasukan 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.
          
Comments: