format islemleri

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