Scribd
Upload
5K views

Working With Files in Pascal

This document provides instructions for writing to and reading from files in Pascal. To write to a file, you assign a file path to a text variable, open the file for writing using Rewrite, and use Write and Writeln statements to output data to the file. To read from a file, you assign a file path to a text variable, open the file for reading using Reset, and use Read and Readln statements to input data from the file. Sample programs are provided that demonstrate writing data to a file and then reading and printing that data. It is important to close any files that are opened.

Uploaded by

sedmondsbrown
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
5K views

Working With Files in Pascal

This document provides instructions for writing to and reading from files in Pascal. To write to a file, you assign a file path to a text variable, open the file for writing using Rewrite, and use Write and Writeln statements to output data to the file. To read from a file, you assign a file path to a text variable, open the file for reading using Reset, and use Read and Readln statements to input data from the file. Sample programs are provided that demonstrate writing data to a file and then reading and printing that data. It is important to close any files that are opened.

Uploaded by

sedmondsbrown
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 2

Working with Files in Pascal

Writing to a file:

1. Replace output in the first line of the program with a variable that represents the file you
want to write to.
Program testrite (input, outfile);
2. Declare the variable in the variable as data type text.
var
outfile: text;
3. Assign the path to the variable using the assign statement.
Assign (outfile, ‘H:\sdd\test.txt’);
4. Open the file for writing using the rewrite statement.
Rewrite(outfile);1
5. Use write and writeln statements to write the file, identifying the output location using the
variable name.
Writeln(outfile, ‘This is a test’);
6. Close the file.
Close(outfile);

Sample program:
Program DataSave (input, outfile);

Var
outfile : text;
fname, surname, dob, answer : String;
age : integer;

Begin;
Assign (outfile, ‘H:\SDD\PplData.txt);
Rewrite(outfile);
Repeat
Write(‘Enter your first name: ’);
Readln(fname);
Write(‘Enter your surname: ’);
Readln(surname);
Write(‘Enter your date of birth: ’);
Readln(dob);
Write(‘Enter your age: ’);
Readln(age);
Writeln(outfile, fname, ‘ ‘, surname, ‘ ‘, dob, ‘ ‘, age);
Writeln(‘Do you want to enter more data? y/n’);
Readln(answer);
Until (answer = ‘n’);
Close(outfile);
End.

1
To append data, replace REWRITE with APPEND.
Reading from a file:

1. Replace input in the first line of the program with a variable that represents the file you
want to read from.
Program testread (infile, output);
2. Declare the variable in the variable as data type text.
var
infile: text;
3. Assign the path to the variable using the assign statement.
Assign (infile, ‘H:\SDD\PplData.txt’);
4. Open the file for writing using the reset statement.
Reset(infile);
5. Use read and readln statements to read the file, identifying the input location using the
variable name.
Readln(infile, filedata2);
6. Close the file.
Close(infile);

Sample program:
Program DataPrnt (infile, output);

Var
infile: text;
persdata: String;

Begin;
Assign (infile, ‘H:\SDD\PplData.txt’);
Reset(infile);
While NOT3 EOF4 (infile) do
Begin
Readln(infile, persdata);
Writeln(persdata);
Writeln(‘Press enter to continue’);
Readln;
End;
Close(infile);
End.

Remember: It is important to CLOSE your file at the end of your


program!

2
filedata is a variable to store the data read from the file.
3
NOT is a key word meaning not equal to. It can also be represented by < >
4
EOF is a key word meaning End of File.

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy