Fortran – je to jeden z nejoblíbenějších a nejstarších programovacích jazyků, který se široce používá k psaní vědeckých a inženýrských programů. Jednou z klíčových operací při práci s poli ve Fortranu je jejich vyplnění. V tomto článku se podíváme na několik užitečných tipů a příkladů, jak správně vyplnit pole ve Fortranu.
Prvním způsobem, jak vyplnit pole ve Fortranu, je použití operátora DATA. Umožňuje inicializovat prvky pole pomocí seznamu hodnot. Chcete-li to provést, musíte zadat název pole, poté příkaz DATA a seznam hodnot oddělených čárkami. Například:
INTEGER :: array(5)DATA array /1, 2, 3, 4, 5/Dalším způsobem, jak vyplnit pole ve Fortranu, je použití cyklu DO. Cyklus DO umožňuje několikrát spustit blok kódu a změnit hodnotu proměnné-počítadla. Chcete-li vyplnit pole pomocí cyklu DO, musíte určit pole, určit hranice cyklu (počáteční a konečná hodnota proměnné-měřiče) a nastavit krok. Uvnitř cyklu je uveden blok kódu, který bude proveden pro každou hodnotu proměnné-počítadla. Například:
INTEGER :: array(5)DO i = 1, 5array(i) = iEND DOMůžete také vyplnit pole ve Fortranu pomocí operátora ASSIGN. Umožňuje přiřadit hodnoty prvkům pole pomocí aritmetického výrazu nebo funkce. Například:
INTEGER :: array(5)array = (/ (i**2, i=1, 5) /)V tomto článku jsme se podívali na několik způsobů, jak vyplnit pole ve Fortranu, z nichž každý má své vlastní vlastnosti a výhody. Výběr konkrétního způsobu závisí na požadavcích a specifikách programu. Po seznámení s těmito příklady budete připraveni efektivně a správně vyplnit pole ve Fortranu.
Jak vyplnit pole ve Fortranu: tipy a příklady
1. Vyplnění pole výchozími hodnotami:
program fill_arrayimplicit noneinteger, dimension(10) :: arrinteger :: iarr = 0 ! заполняем массив нулямиdo i = 1, 10print *, arr(i)end doend program fill_array
2. Vyplnění pole náhodnými hodnotami:
program fill_arrayimplicit noneinteger, dimension(10) :: arrinteger :: icall random_seed()call random_number(arr)do i = 1, 10print *, arr(i)end doend program fill_array
3. Vyplnění pole pomocí vlastních hodnot:
program fill_arrayimplicit noneinteger, dimension(10) :: arrinteger :: ido i = 1, 10write(*, *) "Введите значение для элемента ", iread(*, *) arr(i)end doend program fill_array
4. Vyplnění pole prvky jiného pole:
program fill_arrayimplicit noneinteger, dimension(5) :: arr1integer, dimension(5) :: arr2integer :: iarr1 = [1, 2, 3, 4, 5]arr2 = arr1do i = 1, 5print *, arr2(i)end doend program fill_array
Nyní, když znáte několik způsobů, jak vyplnit pole ve Fortranu, můžete si vybrat nejvhodnější pro váš konkrétní úkol. Mějte na paměti vlastnosti práce s poli ve Fortranu a ve svých programech používejte správné přístupy k vyplňování polí.
Zadejte typ dat a velikost pole
Před vyplněním pole ve Fortranu je nutné určit typ datových prvků pole a jejich počet.
Typ dat je definován klíčovým slovem, které je uvedeno před názvem pole. Například pro celočíselné pole se používá klíčové slovo "integer", pro zlomková čísla" real", pro symbolická data" character " atd.
Po zadání typu dat by měla být uvedena velikost pole. Velikost pole se určuje uvedením počtu prvků v každé dimenzi. Například u jednorozměrného pole je velikost uvedena v hranatých závorkách za názvem pole: array (10), kde 10 je počet prvků pole.
U vícerozměrných polí je uvedena velikost pro každé měření. Například u dvourozměrného pole lze velikost specifikovat takto: array (10, 5), Kde 10 je počet prvků v první dimenzi a 5 je počet prvků ve druhé dimenzi.
Je důležité správně specifikovat typ dat a velikost pole, abyste se vyhnuli chybám při vyplňování a zpracování dat pole. Nesprávně zadaný typ dat a velikost mohou vést k nepředvídatelným výsledkům nebo chybám v době provádění programu.
Použijte cykly k vyplnění pole
Nejjednodušším způsobem použití cyklů k vyplnění pole je použití cyklu do. Například k vyplnění pole A 10 prvků hodnotami od 1 do 10 lze použít následující kód:
integer, dimension(10) :: Ainteger :: ido i = 1, 10A(i) = iend doV tomto příkladu bere proměnná i hodnoty od 1 do 10 a každý prvek pole A je přiřazen odpovídající hodnotě i. výstupem je tedy pole a s prvky od 1 do 10.
Pokud je nutné pole vyplnit složitějším způsobem, lze použít složitější cykly. Můžete například použít vnořené cykly k vyplnění dvourozměrného pole následovně:
integer, dimension(10, 10) :: Binteger :: i, jdo i = 1, 10do j = 1, 10B(i, j) = i + jend doend doV tomto příkladu vnější cyklus proměnné i prochází hodnotami od 1 do 10 a vnitřní cyklus proměnné j prochází hodnotami od 1 do 10 pro každou hodnotu i. každému prvku pole B je přiřazen součet příslušných hodnot i a j. výstup tak získá dvourozměrné pole B s prvky od 2 do 20.
Použití cyklů k vyplnění pole vám ušetří čas a zjednoduší kód, zejména při práci s velkými poli nebo při použití složitých šablon výplně.
Vyplňte pole pomocí generátoru náhodných čísel
K vyplnění pole ve Fortranu pomocí generátoru náhodných čísel lze použít funkci RANDOM_NUMBER . Tato funkce generuje náhodné reálné číslo v rozmezí od 0 do 1.
Příklad vyplnění jednorozměrného pole náhodnými čísly:
program random_array_exampleimplicit noneinteger :: i, nreal :: random_numreal, dimension(10) :: arrcall random_seed() ! Инициализация генератора случайных чиселdo i = 1, 10call random_number(random_num)arr(i) = random_numend doprint *, "Массив случайных чисел:"do i = 1, 10print *, arr(i)end doend program random_array_examplePříklad vyplnění dvourozměrného pole náhodnými čísly:
program random_2d_array_exampleimplicit noneinteger :: i, j, nrows, ncolsreal :: random_numreal, dimension(3, 4) :: arrcall random_seed() ! Инициализация генератора случайных чиселnrows = 3ncols = 4do i = 1, nrowsdo j = 1, ncolscall random_number(random_num)arr(i, j) = random_numend doend doprint *, "Двумерный массив случайных чисел:"do i = 1, nrowsdo j = 1, ncolsprint *, arr(i, j)end doend doend program random_2d_array_exampleVelikost polí n , nrows a ncols můžete změnit podle svých potřeb. Nezapomeňte také připojit modul ISO_FORTRAN_ENV pro práci s funkcí RANDOM_NUMBER .
Nyní víte, jak správně vyplnit pole pomocí generátoru náhodných čísel ve Fortranu. Úspěch ve vašem programování!