format islemleri
integer :: a = 123, b = -456, c = 123456
write(*,"(I5)") a !ekranda 5 birimlik yere a integer'ini bas. a'yi bu 5 birimden saga dayali olarak yaz.
write(*,"(I4)") b
write(*,"(I7)") c
write(*,*) ! 1 satir bosluk
write(*,"(I5.2)") a !ekranda 5 birimlik yere a integer'ini bas. bu 5 birimlik yerden en az 2 birimine digit bas.
write(*,"(I5.4)") b
write(*,"(I10.7)") c
end program
!cikti:
! 123
!-456
! 123456
! 123
!-0456
! 00123456
ekranda 7 birimlik yer ayir. 0.12345 sayisini 2 hassasiyette yaz.
write(*,"(F7.2)") 0.12345
end program
cikti:
0.12
ekrana 100 labelindeki formata gore 12 ve 12345 sayilarini yazdir.
write(*,100) 12, 12345
100 format (I4, 2X, I5) !2X in anlami 2 sayinin arasinda 2 birimlik bosluk birak.
end program
cikti:
12 12345
special:
A - text string
D - double precision numbers, exponent notation
E - real numbers, exponent notation
F - real numbers, fixed point format
I - integer
X - horizontal skip (space)
/ - vertical skip (newline)
2 sayi arasinda 1 satir birak. new line.
write(*,7) 12, 12345
7 format (I4,/,I5)
end program
cikti:
12
12345