0

Menghitung Nilai Cos dengan Program Pascal

Posted by Jujur Sitanggang 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

0 Comments

Copyright Jujur Soaloon Sitangang Lipan All rights reserved. Theme by Sitanggang. | Bloggerized by Soalparna.