Popatrzmy na poni\u017cszy program:<\/p>\n
1 program test\r\n2 print *, 0.1e0\r\n3 print *, 0.1e0_8\r\n4 print *, 0.1e0_16\r\n5 print *, 0.1e0 - 0.1e0_8\r\n6 print *, 0.1e0 - 0.1e0_16\r\n7 print *, 0.1e0_16 - 0.1e0_8\r\n8 end program test<\/pre>\n<\/div>\nOto wynik jego dzia\u0142ania:<\/p>\n
0.100000001 \r\n 0.10000000000000001 \r\n 1.00000000000000000000000000000000005E-0001\r\n 1.4901161138336505E-009\r\n 1.49011611938476562499999999518517514E-0009\r\n -5.55111512312578269730333347948601193E-0018\r\n<\/pre>\nWnioski ka\u017cdy wyci\u0105ga sam.<\/p>\n
Sta\u0142e tekstowe<\/h2>\n
Poni\u017cej przyk\u0142ad pokazuj\u0105cy jak mo\u017cna korzysta\u0107 z innych kodowa\u0144:
\nW szczeg\u00f3lnych przypadkach mo\u017cna sta\u0142\u0105 tekstow\u0105 poprzedzi\u0107 parametrem kind-param (i znakiem podkre\u015blenia).
\nDo zapisu sta\u0142ych tekstowych u\u017cywa si\u0119 kodowania ASCII. Standard nie przewiduje(?) innych rodzaj\u00f3w kodowania, ale mo\u017ce to by\u0107 realizowane rozszerzenie, jak w przyk\u0142adzie:<\/p>\n\n1 program character_kind\r\n2 use iso_fortran_env\r\n3 implicit none\r\n4 integer, parameter :: ascii = selected_char_kind (\"ascii\")\r\n5 integer, parameter :: ucs4 = selected_char_kind ('ISO_10646')\r\n6 \r\n7 character(kind=ascii, len=26) :: alphabet\r\n8 character(kind=ucs4, len=30) :: hello_world\r\n9 \r\n10 alphabet = ascii_\"abcdefghijklmnopqrstuvwxyz\"\r\n11 hello_world = ucs4_'Hello World and Ni Hao -- ' &\r\n12 \/\/ char (int (z'4F60'), ucs4) &\r\n13 \/\/ char (int (z'597D'), ucs4)\r\n14 \r\n15 write (*,*) alphabet\r\n16 \r\n17 open (output_unit, encoding='UTF-8')\r\n18 write (*,*) trim (hello_world)\r\n19 end program character_kind<\/pre>\n<\/div>\nWynik dzia\u0142ania tego programu jest nast\u0119puj\u0105cy:<\/p>\n
abcdefghijklmnopqrstuvwxyz\r\n Hello World and Ni Hao -- \u4f60\u597d\r\n<\/pre>\nZwracam uwag\u0119 na konstrukcj\u0119 tego programu.
\nPo pierwsze wczytywany jest \u201emodu\u0142\u201d iso_fortran_env<\/tt>.
\nP\u00f3\u017aniej definiowane s\u0105 sta\u0142e sta\u0142e ca\u0142kowite integer, parameter<\/tt>, jedna o nazwie ascii<\/tt> (druga ucs4<\/tt>), kt\u00f3rym nadawana jest warto\u015b\u0107 zwracana przez funkcj\u0119 standardow\u0105 selected_char_kind<\/tt>.
\nKolejna deklaracja zmiennej typu CHARACTER<\/tt> u\u017cywa konstrukcj\u0119 wskazywania explicite typu zmiennej (kind=<\/tt>).
\nProblem zaczyna si\u0119 gdy trzeba zakodowa\u0107 \u201erozszerzone\u201d \u2014 u\u017cywana jest funkcja char<\/tt> konwertuj\u0105ca warto\u015b\u0107 ca\u0142kowit\u0105 zadan\u0105 jako sta\u0142\u0105 szesnastkowa, u\u017cywaj\u0105c kodowania ucs4<\/tt>: char (int (z'4F60'), ucs4).<\/tt>
\nKodowanie ucs4<\/a> jest wariantem Unicode, w kt\u00f3rym ka\u017cdy znak kodowany jest na 32 bitach (czterech bajtach). Standardowo edytory i strony WWW u\u017cywaj\u0105 kodowania UTF-8<\/a>, w kt\u00f3rym ka\u017cdy znak kodowany spoza zestawu ASCII kodowany jest z u\u017cyciem zmiennej liczby bajt\u00f3w (znak\u00f3w).<\/p>\n","protected":false},"excerpt":{"rendered":"Liczby zmiennoprzecinkowe Popatrzmy na poni\u017cszy program: 1 program test 2 print *, 0.1e0 3 print *, 0.1e0_8 4 print *, 0.1e0_16 5 print *, 0.1e0 – 0.1e0_8 6 print *, 0.1e0 – 0.1e0_16 7 print *, 0.1e0_16 – 0.1e0_8 8 end program test Oto wynik jego dzia\u0142ania: 0.100000001 0.10000000000000001 1.00000000000000000000000000000000005E-0001 1.4901161138336505E-009 1.49011611938476562499999999518517514E-0009 -5.55111512312578269730333347948601193E-0018 Wnioski ka\u017cdy … Czytaj dalej Ciekawostki<\/span>