0
Menghitung Nilai Cos dengan Program Pascal
Posted by jujur
on
10:48 AM
Tugas Metode Numerik
Menghitung Nilai Cos dengan Program Pascal
“Metode Deret Mac Laurin”
Disusun Oleh:
KELAS : METNUM-5
FAQIH PRATAMA L-10112680
IFAN FAJAR F-10112691
CANDRA P SIMATUPANG-10112675
JUJUR SOALOON-10112672
Program Studi Teknik Informatika
Fakultas Teknik dan Ilmu Komputer
UNIKOM
2014
TUGAS METNUM :
“Menghitung Nilai cos dengan nilai x nya adalah 0,2 dalam program pascal , menggunakan mac laurin “
- Listing Program
program cos_maclaurin;
uses crt;
var
k,i,m:longint;
u1:char;
function f(z:integer):real;
begin
k:=1;
for i:=1 to z do
k:=k*i;
f:=k;
end;
procedure cos;
var
n : integer ;
x, cos :real ;
begin
repeat
write('Menghitung Nilai Cos : '); readln(x);
if x<> 0 then
begin
cos:= 0;
for m:= 1 to n do
if m mod 2=0 then
cos:= cos+(-1)* exp((2*(m-1))*ln(x))/f(2*(m-1))
else
cos:= cos+exp((2*(m-1))*ln(x))/f(2*(m-1));
end;
if x=0 then
cos:= 1;
writeln('hasil dari cos ',x,' : ',cos:7:2);
writeln;
write('ingin menghitung lagi (Y/T)? '); readln(u1);
clrscr;
u1:=upcase(u1);
until (u1<>'Y');
write('Terimakasih');
end;
begin
cos;
readln();
end.
|
- Layar Tampilan
