ONLINE COMPILERS
LIBRARY
MANUAL PAGES & DOCS
CONTACT
Latest Users' Questions
User Submitted Source Code!
Description:
Latihan6
Language: PASCAL
Code:
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.
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: