Anasayfa > Kodlar > Visual Basic 6 ile karmaşık sayıllar

Visual Basic 6 ile karmaşık sayıllar


Karmaşık sayıların tanıtılması ve onunla ilgili işlemler.

Option Explicit

Private Type Kompleks 'kompleks sayı tipinin tanıtılması
re As Double 'komleks sayının reel kısmı
im As Double 'kompleks sayının karmaşık(imajiner) kısmı
End Type

'iki karmaşık sayıların toplanması

Private Function Topla_Kompleks(a As Kompleks, b As Kompleks) As Kompleks

Topla_Kompleks.re = a.re + b.re
Topla_Kompleks.im = a.im + b.im

End Function

'iki karmaşık sayıların çarpılması

Private Function Carp_Kompleks(a As Komples, b As _
Kompleks) As Kompleks

Carp_Kompleks.re = a.re * b.re - a.im * b.im
Carp_Kompleks.im = a.re * b.im + a.im * b.re

End Function

'Karmaşık bir sayının eşleniği

Private Function Eslenik(a As Kompleks) As Kompleks

Eslenik.re = a.re
Eslenik.im = -a.im

End Function

'karmaşık bir sayının modulü

Private Function Modul(a As Kompleks) As Double

Modul = Sqr(a.re ^ 2 + a.im ^ 2)

End Function
' (Elimden geldiğince) Yardım; sctlms @yahoo.com


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: