Das Gute alte Fortran :)
btw. wer findet auch das dass wie eine Eule aussieht - > (*,*) ?
Code:
implicit none
complex, parameter :: i = (0.0,1.0)
complex :: z1 = 3.0 + 4*i ! interne Datentypkonversion
complex :: z2 = (-2.0,1.0)
complex, dimension(5) :: feld
integer :: n
write(*,*) 'z1:'
read(*,*)z1
write(*,*) 'z2:'
read(*,*)z2
write(*,*) 'eingelsesen wurde: '
write(*,*) ' i = ', i
write(*,*) ' z1 = ', z1
write(*,*) ' z2 = ', z2
write(*,*) 'Arithmetik mit komplexen Zahlen:'
write(*,*) ' z1 + z2 = ', z1 + z2
write(*,*) ' z1 - z2 = ', z1 - z2
write(*,*) ' z1 * z2 = ', z1 * z2
write(*,*) ' z1 / z2 = ', z1 / z2
write(*,*) 'Der Betrag einer komplexen Zahl:'
write(*,*) ' cabs(z1) = ', cabs(z1)
write(*,*) ' abs(z2) = ', abs(z2)
write(*,*) 'Der Realteil einer komplexen Zahl :'
write(*,*) ' real(z1) =', real(z1)
write(*,*) ' real(z2) =', real(z2)
write(*,*) ' real(i) =', real(i)
write(*,*) 'Der Imaginaerteil einer komplexen Zahl:'
write(*,*) ' aimag(z1) =', aimag(z1)
write(*,*) ' aimag(z2) =', aimag(z2)
write(*,*) ' aimag(i) =', aimag(i)
write(*,*) 'Das Komplex-Konjugierte einer komplexen Zahl:'
write(*,*) ' conjg(z1) =', conjg(z1)
write(*,*) ' conjg(z2) =', conjg(z2)
write(*,*) ' conjg(i) =', conjg(i)
write(*,*) 'Der Log auf Komplexe Zahlen:'
write(*,*) ' log(i) =', log(i)
write(*,*) ' log(z1) =', log(z1)
write(*,*) ' log(z2) =', log(z2)
end