Lenge før Microsoft Windows eksisterte , brukte programmerere et språk som heter FORTRAN å løse komplekse vitenskapelige og tekniske problemer . Utvikle starter i 1953 , kan denne aldrende språket også utføre enkle oppgaver som å lese og manipulere tegn. Du kan finne denne evnen nyttig når spørre brukerne for numerisk informasjon eller lese tekststrenger fra eksterne filer . Fordi FORTRAN håndterer innspill operasjoner automatisk , trenger du bare å skrive inn de riktige kommandoene for å utføre disse oppgavene . Instruksjoner
Les fra Keyboard
en

Åpen en av dine Fortran filer og legge til følgende kode etter at programmet uttalelse : en

tegnet * 4 xcharacter * 2 y
< p> Denne koden definerer to tegn variabler som har lengder er 4 og 2 , respektivt. Bruk dette formatet når du definerer karakter variabler
2

Legg inn koden vist nedenfor etter de to variabeldeklarasjoner : .

Print * , "Vennligst skriv inn en fire -tegns ord og en to -tegns ordet "read ( * , 1 ) x , y1 format ( A4 , A2 )

lese uttalelsen leser data inn i x -og y- variabler . Den inneholder også to parametre som er omgitt av parenteser . Den første parameteren , * , forteller FORTRAN å godta inndata fra tastaturet . Den andre parameteren , 1, er et antall format . Det peker på en etikett foran en setning som inneholder formateringsinstruksjoner. Den uttalelsen er formatet uttalelsen vises etter lese uttalelsen . Formatet setningen inneholder A4 og A2 . Bokstaven A er et format kode som forteller FORTRAN å behandle data som en tekststreng. Hver formatering koden i parameter listen tilsvarer en variabel i lese uttalelsen . I dette eksempelet , leser datamaskinen de fire første tegnene som du skriver , og lagre dem i x variabel. Den lagrer deretter de to neste tegnene som du skriver i y variabelen. Utskriften uttalelsen viser en tekststreng som hjelper brukerne med å forstå hva du ønsker at de skal gå inn .
3

Lagre programmet og kjøre det som du vanligvis gjør . Når en kommando vinduet åpnes, skriv " aaaabb " - uten anførselstegn - inn i vinduet og trykk Koden leser tegn og tildele " aaaa " til x variabel og " bb " til " Enter". y variable .
Les fra fil
4

Åpne Notisblokk og lime inn teksten nedenfor i et nytt dokument og lagre det.

dddd ee
5

Åpne en annen Fortran fil og lime disse variabeldeklarasjoner under programerklæring : en

tegnet * 4 xcharacter * 2 y
6

Legg til følgende kode etter koden vist i forrige trinn : en

open ( "?" 2 , FILE = ) read ( 2 , 3 ) x , y3 format ( A4 , 1x , A2 ) nær ( 2 )

Erstatt spørsmålstegnet med navnet på tekstfilen du lagret . Den åpne uttalelse åpner filen og tildeler en enhet til den. At antallet er to . Den leser uttalelsen vises annerledes denne gangen . Sin andre parameter , 3 , refererer til det formatet uttalelse under den, men den første parameteren refererer til to , filen som er tilknyttet din åpen uttalelse. Fordi disse tallene stemmer overens , vil lese uttalelsen lese data fra filen og lagre den i x -og y- variabler .
7

Lagre programmet og kjøre det . Programmet leser tegn fra filen og lagrer dem i x -og y- variabler .