رات الموسومةٌغتملا
م المتجانسةٌقلا نم ةعومجم همسا ىتحت يوطنت يذلا كلذ وه موسوملا رٌغتملا
ناٌعم ادعبو ناٌعم امجحو ناٌعم لاسلست ذختتو
.
مالحظات
1
-
رٌغتملا ناك اذاو ةحٌحص مٌقلا لك نوكتف احٌحص موسوملا رٌغتملا ناك اذا
اٌقٌقح مٌقلا لك نوكت نا بجٌف اٌقٌقح موسوملا
2
-
م ذات دقة مضاعفةٌقلا لك نوكت نا بجٌف افعاضم موسوملا رٌغتملا ناك اذا
.
3
-
ر الموسومٌغتملل زجحلا ةلمج ًتأت
(
جملة البعد
)
مقدمة البرنامج وقبل ايًف
ةٌذٌفنت ةلمج
.
4
-
ة العمود السابعٌادب ًف زجحلا ةلمج بتكت
.
5
-
جملة الحجزًف موسوم رٌغتم نم رثكلا زجحلا نكمٌ
.
جملة البعد
(
الحجز
)
ًأتٌ امك بتكت
Dimension
ر الموسومٌغتملا مسا
(
(
مثل البعد الحجزٌ مقر
,
ر الموسومٌغتملا مسا
(
(
مثل البعدٌ مقر
Ex)Dimension A(12),B(10),K(8),……..
رات الموسومةٌغتملا جارخاو لاخدا
قة الثالثةٌرطلا اهرصقا جارخلااو لاخدلال قرط ةثلاث كلانه
االسلوب المباشر
مثال
:
ر الموسومٌغتملا ةعابطو ةءارقل جمانرب بتكا
B(5)
؟
Dimension B(5)
Open(5,file="a.dat")
Open(6,file="b.dat")
Read(5,10) B(1),B(2),B(3),B(3),B(4),B(5)
10 format (5F7.3)
Write (6,15) B(1),B(2),B(3),B(3),B(4),B(5)
15 format (5F7.3)
Stop
End
استخدام حلقة
do
Dimension B(5)
Open(5,file="a.dat")
Open(6,file="b.dat")
Do 30 I=1,5
Read(5,10) B(I)
10 format (F7.3)
Write (6.10) B(I)
30 continue
Stop
End
ةٌنمض ةراد مادختسا
Dimension B(5)
Open(5,file="a.dat")
Open(6,file="b.dat")
Read(5,10)(B(I),I=1,5)
10 format (5F7.3)
Write(6,10) (B(I),I=1,5)
Stop
End
مثال
)
نٌتموظنم عمج لصاح داجٌلا جمانرب بتكا
B(10),N(10)
؟مع طباعتهما وطباعة النتائج
Dimension B(5)
Open(5,file="a.dat")
Open(6,file="b.dat")
Read(5,10)(A(I),I=1,5),(B(I),I=1,5)
10 format (10F7.3)
Do 30 I=1.10
C(I)=A(I)+B(I)
Write (6,50) I,A(I),B(I),C(I)
50 format(I2,3x,3F7.3)
30 continue
Stop
End
ة البعدٌئانث ةمسوملا تارٌغتملا جارخاو لاخدا
(
المصفوفة
)
ة االدخال واالخراجٌلمعل قرط ثلاث كلانه
االسلوب المباشر
Dimension B(3.2)
Open(5,file="a.dat")
Open(6,file="b.dat")
Read(5,10) B(1.1),B(1.2),B(2.1),B(2.2),B(3.1),B(3.2)
10 format (3I3)
ًباستخدام حلقت
do
Dimension B(3.2)
Open(5,file="a.dat")
Open(6,file="b.dat")
Do 30 I=1,2
Do 40 J=1,3
Read (5,10) M(I,J)
10 format(I3)
Write (6,10) M(I,J)
40 continue
30 continue
Stop
End
نٌتٌنمض نٌتراد مادختساب
Dimension B(3.2)
Open(5,file="a.dat")
Open(6,file="b.dat")
Read (5,10) ((M(I,J)j=1,2)I=1.3)
10 format (3I3) or (6I3) or (I3)