सामग्री पर जाएँ

कंप्यूटर प्रोग्रामिंग/फ़ाइलें/स्यूडोकोड

विकिविश्वविद्यालय से
Declare String Filename
    
Set Filename = "~file.txt"
If FileExists(Filename) Then
    Display "File already exists."
Else
    Call CreateFile(Filename)
    Call ReadFile(Filename)
    Call AppendFile(Filename)
    Call ReadFile(Filename)
    Call DeleteFile(Filename)
End If
Declare Integer C
Declare Real F

Open Filename
Display "C   F"
For C = 0 To 50
    Set F = C * 9.0 / 5 + 32
    Display C, "   ", F
End For

Close Filename
Declare String Line

Open Filename
While Not EOF(Filename)
    Input Line
    Display Line
End While

Close Filename
Declare Integer C
Declare Real F

Open Filename
For C = 51 To 100
    Set F = C * 9.0 / 5 + 32
    Display C, "   ", F
End For

Close Filename
Delete Filename