Zivatar.hu Zivatar.hu Felhőtár
04. Tölts fel egy tömböt növekvő számokkal, 3-tól, 2-esével! (f77, xls) - Zivatar.hu

04. Tölts fel egy tömböt növekvő számokkal, 3-tól, 2-esével! (f77, xls)

Vegyél egy 6 elemű tömböt, töltsd fel minden elemét egy értékkel!

Fortran program futtatása:

> ./f.sh 08feltolt

   3   5   7   9   11   13

Forráskód:

      program feltolt
      integer i, n, lep, kezd, tmpI
      parameter(n=6, kezd=3, lep=2)
      integer tomb(n)
      tmpI = kezd ! a valtozonk felveszi a kezdeti erteket
      do i=1,n
         tomb(i) = tmpI
         tmpI = tmpI + lep ! minden korben megnoveljuk a valtozo erteket annyival, amennyi az elvart lepeskoz
      enddo
      write(*,*) tomb
      stop
      end

 


 

Excel eredménye:

Tömb feltöltése

VBA kód:

Sub Feltolt()
Dim i, n, tmp As Integer
Dim tomb() As Integer ' meg nem tudjuk mekkora lesz a tomb, igy akar utolag is meg tudjuk adni
n = 6
ReDim tomb(n) ' itt dontjuk el, mekkora legyen
tmp = 3
For i = 1 To n
    tomb(i) = tmp
    tmp = tmp + 2
    Cells(i, 1) = tomb(i)
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