PROGRAM U6
PRINT*,'×ÈÑËÅÍÍÎÅ ÈÍÒÅÃÐÈÐÎÂAÍÈÅ ÌÅÒÎÄÎÌ ÒÐAÏÅÖÈÉ'
PRINT*,'ÂÂÅÄÈÒÅ ÍÈÆÍÈÉ È ÂÅÐÕÍÈÉ ÏÐÅÄÅË'
PRINT*,'A ÒAÊÆÅ ÐAÑרÒÍÎÅ ÊÎËÈ×ÅÑÒÂÎ ÎÐÄÈÍAÒ'
READ(5,*) A,B,N
H=(B-A)/(N-1)
S=0
DO 5 X=A,1.001*B,H
S=S+F(X)
5 CONTINUE
QN=(S-(F(A)+F(B))/2.)*H
DO K=6,7
WRITE (K,10) A,B,N
10 FORMAT (2X,'ÂÛ×ÈÑËÅÍÈÅ ÎÏÐÅÄÅ˨ÍÍÎÃÎ ÈÍÒÅÃÐAËA',/
*5X,'(ÌÅÒÎÄ ÒÐAÏÅÖÈÉ)'/
*5X,17('-'),'ÈÑÕÎÄÍÛÅ ÄAÍÍÛÅ',17('-'),//
*5X,'ÍÈÆÍÈÉ ÏÐÅÄÅË A=',F7.3,/
*5X,'ÂÅÐÕÍÈÉ ÏÐÅÄÅË B=',F7.3,/
*5X,'ÐAÑרÒÍÎÅ ÊÎËÈ×ÅÑÒÂÎ ÎÐÄÈÍAÒ N=',I2)
WRITE (K,20) QN
20 FORMAT (/5X,16('-'),'ÐÅÇÓËÜÒÀÒÛ ÐÀÑרÒÀ',16('-'),//
*5X,'×ÈÑËÅÍÍÎÅ ÇÍÀ×ÅÍÈÅ ÈÍÒÅÃÐÀËÀ ÐÀÂÍÎ',F12.6,/65('-'))
END DO
END
Ðåçóëüòàòû âûïîëíåíèÿ ïðîãðàììû èìåþò òàêîé âèä:
Âû÷èñëåíèå îïðåäåëåííîãî èíòåãðàëà (ìåòîä òðàïåöèé)
------------- ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ--------------------
ÍÈÆÍÈÉ ÏÐÅÄÅË À = 0.100
ÂÅÐÕÍÈÉ ÏÐÅÄÅË Â = 0.500
ÐÀÑ×ÅÒÍÎÅ ÊÎËÈ×ÅÑÌÒÂÎ ÎÐÄÈÍÀÒ N =21.
--------------ÐÅÇÓËÜÒÀÒÛ ÐÀÑ×ÅÒÀ------------------
×ÈÑËÅÍÍÎÅ ÇÍÀ×ÅÍÈÅ ÈÍÒÅÃÐÀËÀ ÐÀÂÍÎ 0,396877
Òàáëèöà 1
| ¹ âàð³àí-òó | ²íòåãðàë | ¹ âàð³àí-òó | ²íòåãðàë | ¹ âàð³àí-òó | ²íòåãðàë |
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
|
Íàèìåíîâàíèå áóêâ ãðå÷åñêîãî àëôàâèòà
Α Β Γ Δ Ε Ζ Η Θ Ι Κ Λ Μ Ν Ξ Ο Π Ρ Σ Τ Υ Φ Χ Ψ Ω
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
ά β γ δ έ ζ ή ς ι κ λ μ ν ξ ο π ρ σ τ υ φ χ ψ ω
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
1 — àëüôà, 2 — áåòà, 3 — ãàììà, 4 — äåëüòà, 5—ýïñèëîí, 6— äçåòà,
7 — ýòà, 8—òýòà, 9 —éîòà, 10 — êàïïà, 11— ëàìáäà, 12 — ìþ, 13 —íþ, 14— êñè,15—îìèêðîí,16—ïè,17—ðî,18— ñèãìà, 19 — òàó, 20 — ýïñèëîí, 21 — ôè, 22—õè, 23 — ïñè, 24 — îìåãà