السلام عليكم
كيف حالكم اخواني ؟؟
عندي مشكلة بسيييطة وتعبتك ماني فاهمها هو كيف اقرا من الملف لنه المشكلة المحاظرات الأخيره ماحضرتها مثل هذي الاسئله كيف ابدا فيه ياليت احد يشرح لنا الفكره الاساسيه
السؤال الأول :
What will be printed by the following program?
INTEGER M, K
OPEN \( UNIT \= 30, FILE \= 'INPUT.DAT', STATUS \= 'OLD'\)
READ \( 30, \*, END \= 20\) \( M, K \= 1, 100\)
20 PRINT\*, M, K \- 1
END
Assume that the file 'INPUT.DAT' contains the following:
1 2 3
4 5
6 7 8 9
6
ans : The output
6 10
==============================
INTEGER J, K
OPEN ( UNIT = 4, FILE = ‘FF1.DAT’, STATUS = ‘OLD’)
DO 50 J = 1, 100
READ ( 4, *, END = 60) K
50 CONTINUE
60 PRINT*, ’ THE VALUES ARE:’
PRINT*, K, J
END
The contents of the file 'FF1.DAT' are:
20 50 67 45 18 \-2 \-20
88 66 77 105 55 300
ans: The output
THE VALUES ARE:
88 3
=================================
What will be printed by the following program?
INTEGER M
OPEN \( UNIT \= 10, FILE \= 'INPUT.DAT',STATUS \= 'OLD'\)
READ \(10,\*\) M
20 IF \( M .NE. \-1\) THEN
PRINT\*, M
READ\(10, \*, END \= 30\) M
GOTO 20
ENDIF
PRINT\*, 'DONE'
30 PRINT\*, 'FINISHED'
END
Assume that the file ‘INPUT.DAT’ contains the following :
7
3
9
4
\-1
في إنتظاركم …