Zivatar.hu Zivatar.hu Felhőtár
02. Tölts fel egy 5 elemű tömböt csupa nulla értékkel! (f77, xls) - Zivatar.hu

02. Tölts fel egy 5 elemű tömböt csupa nulla értékkel! (f77, xls)

Futtatás:

> ./f.sh 03nullaz
 nulla=           0           0           0           0           0

Fortran kód:

      program kinullaz
      integer nulla(5)
      data nulla/5*0/ ! data utasitassal egyszeruen tudunk feltölteni egy tombot, de csak egyszer mukodik
      write(*,*) 'nulla=', nulla
      stop
      end


Excel megoldás eredménye:

Nullákkal feltöltött oszlop

VBA kód:

Sub CsupaNulla()
Cells.Select ' kijeloljuk az osszes cellat
Selection.ClearContents ' kitoroljuk az elozo futtatasok eredmenyeit
Range("A10").Select ' hogy ne legyen az egesz munkalap kijelolve, csak egy cella
Dim nulla(5) As Integer
Dim i As Integer
For i = 1 To 5
    nulla(i) = 0 ' feltoltjuk a tombot nullakkal elemenkent
    Cells(i, 1) = 0 ' kiirjuk az elso oszlopba
Next
End Sub

 

Szerző: MacGyver
Létrehozás: 2012-07-14

Név
E-mail cím
Honlapod címe (ha van)
Hozzászólás
Mennyi három meg három (betűvel)?

eXTReMe Tracker