Fortran Değişken Tanımlama ve Giriş Çıkış İşlemleri

 Değişkenler

Değişkenler, program tarafından değiştirilebilen bilgileri depolar. Fortran, "strongly typed" bir dildir, yani her değişkenin bir türü olması gerekir.

Fortran'da 5 yerleşik veri türü vardır:

• integer - pozitif veya negatif tam sayıları temsil eder
• real - kayan noktalı sayıları temsil eder
• complex - gerçek ve sanal kısımdan oluşan sayı çiftidir
• logical -  boolean değerleri temsil eder

Bir değişkeni kullanmadan önce onu tanımlamalıyız; bu, derleyiciye değişken türünü ve diğer değişken özelliklerini söyler.

Not: Fortran, statik olarak yazılmış bir dildir; bu, program derlendiğinde her değişkenin türünün sabitlendiği anlamına gelir - değişken türleri, program çalışırken değiştirilemez.

Değişken tanımlama

Değişkenleri tanımlamak için aşağıdaki söz dizimi kullanılır: 

<variable_type> :: <variable_name>

Değişken isimleri bir harfle başlamalıdır ve harflerden, sayılardan ve alt çizgilerden oluşabilir. Aşağıdaki örnekte, yerleşik türlerin her biri için bir değişken tanımlanmıştır.

program variables

    implicit none

  

    integer :: amount

    real :: pi

    complex :: frequency

    character :: initial

    logical :: isOkay

  

  end program variables

Not: Fortran kodu büyük / küçük harf duyarlıdır; Değişken adlarınızın büyük harf kullanımı konusunda endişelenmenize gerek yoktur, ancak tutarlılığını korumak iyi bir uygulamadır.

Örnek değişken atama

  amount = 10

  pi = 4.141592

  frequency = (1.0,-0.5)

  initial = 'A'

  isOkay = .false.

Standart Giriş/Çıkış

print değişken değerlerini ekrana yazdırmak için kullanılır:

  print *, 'The value of amount (integer) is: ',amount

  print *, 'The value of pi (real) is: ',pi

  print *, 'The value of frequency (complex) is: ',frequency

  print *, 'The value of initial (character) is: ',initial

  print *, 'The value of isOkay (logical) is: ',isOkay

Benzer şekilde, read ifadesini kullanarak komut penceresinden değerleri okuyabiliriz:

 program read_value

    implicit none

    integer :: age

  

    print *, 'Please enter your age: '

    read(*,*) age

  

    print *, 'Your age is: ',age

  

  end program read_value

İfadeler

Sırayla veya öncelik sırasına göre listelenen normal aritmetik işleçler kümesi mevcuttur:

** Üs

* Çarpma işlemi

/ Bölünme

+ Toplama

- Çıkarma

Örneğin

 program arithmetic

    implicit none

  

    real :: pi

    real :: radius

    real :: height

    real :: area

    real :: volume

  

    pi = 3.141592

  

    print *, 'Enter cylinder base radius:'

    read(*,*) radius

  

    print *, 'Enter cylinder height:'

    read(*,*) height

  

    area = pi*radius**2.0

    volume = area*height

  

    print *, 'Cylinder radius is: ',radius

    print *, 'Cylinder height is: ',height

    print *, 'Cylinder base area is: ',area

    print *, 'Cylinder volume is: ',volume

  

  end program arithmetic