1 / 145

Chapter 8

Chapter 8. CHARACTER MANIPULATION. DECLARATIONS AND EXPRESSIONS. CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2). A. B. C. DECLARATIONS AND EXPRESSIONS. CHARACTER*4 A, B, C

cooper
Download Presentation

Chapter 8

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Chapter 8 CHARACTER MANIPULATION

  2. DECLARATIONS AND EXPRESSIONS CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2) A B C

  3. DECLARATIONS AND EXPRESSIONS CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2) A 1 2 3 4 B C

  4. DECLARATIONS AND EXPRESSIONS CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2) A 1 2 3 4 B 1 2 C

  5. DECLARATIONS AND EXPRESSIONS CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2) A 1 2 3 4 B 1 2 C

  6. DECLARATIONS AND EXPRESSIONS CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2) A 1 2 3 4 B 1 2 C 1 2 3 4

  7. DECLARATIONS AND EXPRESSIONS CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2) A 1 2 3 4 B 1 2 C 1 2 3 4

  8. DECLARATIONS AND EXPRESSIONS CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2) A 1 2 3 4 B 1 2 C 1 2 3 4

  9. DECLARATIONS AND EXPRESSIONS CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2) A 1 2 3 4 B 1 2 C 1 2 3 4

  10. DECLARATIONS AND EXPRESSIONS CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2) A 1 2 3 4 B 1 2 C 1 2 3 4

  11. DECLARATIONS AND EXPRESSIONS CHARACTER*4 A, B, C DATA A /'1234'/ B = '12' PRINT *, B C = '123456' PRINT *, C PRINT *, A // B PRINT *, B // A B = B // A PRINT *, A(2:2)//B(1:2) A 1 2 3 4 B 1 2 C 1 2 3 4

  12. D DECLARATIONS AND EXPRESSIONS CHARACTER D*8, E(5)*4 DATA D /'ABCDEFGH'/ PRINT *, D(2:4) PRINT *, D(2:) PRINT *, D(:4) E(1) = 'WXYZ' PRINT *, E(1)(2:2) E(1)

  13. DECLARATIONS AND EXPRESSIONS CHARACTER D*8, E(5)*4 DATA D /'ABCDEFGH'/ PRINT *, D(2:4) PRINT *, D(2:) PRINT *, D(:4) E(1) = 'WXYZ' PRINT *, E(1)(2:2) E(1) D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’

  14. DECLARATIONS AND EXPRESSIONS CHARACTER D*8, E(5)*4 DATA D /'ABCDEFGH'/ PRINT *, D(2:4) PRINT *, D(2:) PRINT *, D(:4) E(1) = 'WXYZ' PRINT *, E(1)(2:2) E(1) D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’

  15. DECLARATIONS AND EXPRESSIONS CHARACTER D*8, E(5)*4 DATA D /'ABCDEFGH'/ PRINT *, D(2:4) PRINT *, D(2:) PRINT *, D(:4) E(1) = 'WXYZ' PRINT *, E(1)(2:2) E(1) D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’

  16. DECLARATIONS AND EXPRESSIONS CHARACTER D*8, E(5)*4 DATA D /'ABCDEFGH'/ PRINT *, D(2:4) PRINT *, D(2:) PRINT *, D(:4) E(1) = 'WXYZ' PRINT *, E(1)(2:2) E(1) D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’

  17. DECLARATIONS AND EXPRESSIONS CHARACTER D*8, E(5)*4 DATA D /'ABCDEFGH'/ PRINT *, D(2:4) PRINT *, D(2:) PRINT *, D(:4) E(1) = 'WXYZ' PRINT *, E(1)(2:2) E(1) ‘W’ ‘X’ ‘Y’ ‘Z’ D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’

  18. DECLARATIONS AND EXPRESSIONS CHARACTER D*8, E(5)*4 DATA D /'ABCDEFGH'/ PRINT *, D(2:4) PRINT *, D(2:) PRINT *, D(:4) E(1) = 'WXYZ' PRINT *, E(1)(2:2) E(1) ‘W’ ‘X’ ‘Y’ ‘Z’ D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’

  19. ASCII Table

  20. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’

  21. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ STRING ‘1 2 3’ ‘1 1 1’ ASCII 49 tie 49

  22. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ STRING ‘1 2 3’ ‘1 1 1’ ASCII 50 > 49

  23. STRING ‘1 2 3’ > ‘1 1 1’ DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’

  24. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ STRING ‘1 2 3’ ‘1 ’ ASCII 49 tie 49

  25. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ STRING ‘1 2 3’ ‘1 ’ ASCII 50 > 32

  26. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ STRING ‘1 2 3’ > ‘1 ’

  27. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ STRING ‘1 2 3’ ‘2 ’ ASCII 49 50 <

  28. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ STRING ‘1 2 3’ < ‘2 ’

  29. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ STRING ‘1 2 3’ ‘ 2’ ASCII 49 32 >

  30. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ STRING ‘1 2 3’ > ‘ 2’

  31. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ ‘ABC’ STRING ‘1 2 3’ ASCII 49 65 <

  32. DECLARATIONS AND EXPRESSIONS IF(‘123’.GT.’111’)PRINT *,’TRUE’ IF(‘123’.GT.’1 ’)PRINT *,’TRUE’ IF(‘123’.GT.’2 ’)PRINT *,’TRUE’ IF(‘123’.GT.’ 2’)PRINT *,’TRUE’ IF(‘123’.GT.’ABC’)PRINT *,’TRUE’ STRING ‘1 2 3’ < ‘ABC’

  33. CHARACTER FUNCTIONS ICHAR(character) Returns the ASCII code (value) of character. CHAR(integer) Returns character of integer ASCII code. INDEX(long_string, short_string) Returns position of short_string in long_string or zero if not found. LEN(string) Returns the declared length of string. LGE(A,B), LGT(A,B), LLE(A,B), LLT(A,B), and LEQ(A,B) Makes comparison in ASCII, even on a non-ASCII machine.

  34. CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples

  35. CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples

  36. CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples

  37. CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples

  38. CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples

  39. D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’ 1 2 3 4 5 6 7 8 CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples

  40. D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’ 1 2 3 4 5 6 7 8 CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples

  41. D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’ CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples

  42. D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’ CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples 1 2 3 4 5

  43. D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’ CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples 1 2 3 4 5

  44. D ‘A’ ‘B’ ‘C’ ‘D’ ‘E’ ‘F’ ‘G’ ‘H’ CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples 1 2 3 4 5

  45. CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples A 1 2 3 4 1 2 B

  46. CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples A 1 2 3 4 1 2 B

  47. CHARACTER FUNCTIONS PRINT *, ICHAR('A') PRINT *, ICHAR('a') PRINT *, CHAR(66) PRINT *, CHAR(98) PRINT *, INDEX(D,'DEF') PRINT *, INDEX(D,'XYZ') PRINT *, INDEX(D(3:7), 'DEF') PRINT *, LEN(B) IF (A .GT. B) PRINT *, 'A > B' IF (LGT(A,B)) PRINT *, 'A > B' Examples A 1 2 3 4 1 2 B

  48. A SAMPLE PROGRAM

  49. A SAMPLE PROGRAM

  50. A SAMPLE PROGRAM

More Related