Langsung ke konten utama

Fungsi cosinus

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Ex: TEdit;
    En: TEdit;
    ehasil: TEdit;
    hasil: TButton;
    Derajat: TLabel;
    Sudut: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    keluar: TButton;
    Label5: TLabel;
    procedure hasilClick(Sender: TObject);
    procedure keluarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.hasilClick(Sender: TObject);
var
  x,y,z,a,b,c,tanda:real      ;
  i,j,n      :integer   ;
begin
  y:=1 ;
  x:=strtofloat (Ex.Text);
  n:=strtoInt(En.Text) ;
  for i :=1 to n do
  begin
    if i mod 2=1 then tanda:=-1 else tanda:=1 ;
    a:=1 ;
    b:=1 ;
    for j := 1 to (2*i) do
      begin
        c:=pi/180*x ;
        a:=a*c ;
        b:=b*j ;
      end;
        z:=a/b ;
        y:=y+(tanda*z) ;
  end;
    ehasil.Text:=floattostr(y) ;
end;

procedure TForm1.keluarClick(Sender: TObject);
begin
close;
end;

end.

hasil nya seperti berikut
Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

fajar sidiq

Assalamualaikum Wr. Wb Temen-temen, inilah setitik cerita pengalaman saya.. semoga bisa menjadi inspirasi :: J J Tampang bukan menjadi suatu alasan untuk kita untuk mendapatkan banyak teman, bisa kita memiliki tampang yang keren, ganteng, serta memiliki kekayaan yang wah tapi banyak orang yang tidak menyukai gaya dan sikap kita. Tapi seorang yang biasa saya dan bahkan bisa dibilang mempunyai tampang yang pas pasan dan tidak mempunyai kekayaan tapi dengan kepiawaiannya dalam bersosialisasi dan menghidupkan suasana serta mempunyai kepribadian yang baik justru mudah untuk mendapatkan teman. Nama saya Fajar Sidiq , saya dilahirkan oleh kedua orang yang sangat super pada pagi hari tanggal 4 Januari 1992 di kabupaten Cirebon dengan kehidupan yang sederhana. Sewaktu saya kecil saya dibilang seorang anak yang lucu oleh orang-orang yang berada disekeliling saya, seiring berjalannya waktu saya tumbuh menjadi anak yang bisa dibilang lincah karena setiap hari bersama teman-teman saya sering berp...
4 komentar
Baca selengkapnya

LASKAR PANTHERA

Memasuki dunia perkuliahan, saya berencana masuk ke dalam suatu organisasi pecinta alam tingkat universitas yang ada di UPI. Namun semenjak saya tahu di jurusan saya yaitu jurusan pendidikan FISIKA UPI ada sebuah wadah bagi warganya yang senang berpetualang, saya pun tertarik dan ikut mendaftar pada sebuah organisasi tingkat jurusan yang bernama KHAUF (KOMUNITAS HIJAU FISIKA) dan disinilah awal dari segala impian saya untuk berpetualang. Bersama ke 20 temen saya yang lain, saya mendaftar dan mengikuti tahap demi tahapan dalam acara pendidikan KHAUF. Tahap pematerian kami jalani dengan anggota lengkap berjumlah 21 orang dan seiring berjalannya waktu satu persatu orang yang awalnya berjumlah 21 orang kini semakin  berkurang dan akhirnya genap menjadi 10 orang yang mengikuti PRADIKSAR kemudian kami tetap bersepuluh juga berhasil mengikuti DIKSAR dan memiliki nama angkatan yang bernama “LASKAR PANTHERA”. LASKAR diambil dari film laskar pelangi yang berarti 10 orang. Kemudian PANTHE...
1 komentar
Baca selengkapnya

curhatan seputar kampus

dalam hidup kita pasti akan merasakan masalah dan bagaimana untuk menyelesaikannya.. disinilah di dunia kampus, kita bisa belajar untuk mencoba menyelesaikan suatu permasalahan.. contohnya dalam sebuah forum terbuka, kita bisa mengutarakan pendapat kita untuk suatu persoalan yang sedang ditampilkan, dan disinilah simulasi untuk kita untuk menghadapi kehidupan setelah kita keluar dari dunia perkuliahan,, memang masa kuliah itu adalah masa dimana kita harus berjuang dan belajar dalam segala hal, baik itu hal organisasi, politik, social control, soft skill, dll tapi rugi jika kita tidak bisa mendapatkan manfaat dari itu semua.. *ngaco ah sampe sekarang yang saya masih belum memahaminya adalah bisa mengatasi orang-orang yang berpendapat ga mau ngalah dan ga bisa menganalisa suatu pendapat yang dilontarkan orang lain dan tidak bisa menganalisa suatu permasalahan yang sedang disajikan.. saya masih akan terus belajar..
2 komentar
Baca selengkapnya