Переменные строкового типа хранят в файле, описанном как

f:text;

ПРИМЕР 2

Считать все данные вещественного типа из файла u.txt типа text и записать их в одномерный массив х.

Решение

Var

f:text;

x:array [1..100] of real;

i:integer;

Begin

ASSIGN(f,'u.txt');

RESET(f);

i:=0;

while not eof(f) do

begin

i:=i+1;

readln(f,x[i]);

writeln(i,' ',x[i])

end;

CLOSE(f)

End.

ПРИМЕР 3

Считать массив X из файла z.txt, описанный как file of двухмерный массив вещественных чисел. При необходимости заменить некоторые значения элементов массива с экрана и записать измененный массив обратно в файл.

Решение

Type

mas = array [1..5,1..3] of real;

Var

x:mas;

f:file of mas;

i,j,k:integer;

st:string;

Begin

assign(f,'z.txt');

reset(f);

read(f,x); {Считывание массива X из файла z.txt}

writeln('Выведем поэлементно массив Х');

writeln('Замените массив Х');

writeln('Если данные не хотите изменять,',

' нажмите <Enter>');

for i:=1 to 5 do

for j:=1 to 3 do

begin

write('x[',i,',',j,']=',x[i,j],'/');

readln(st);

if st<>'' then val(st,x[i,j],k) {преобразование строки в число}

end;

seek(f,0); {встали в начало файла}

write(f,x); {записали массив X в файл z.txt}

close(f);

End.

ЗАДАНИЯ

№1. Файл dan.dat (текстовый) содержит следующую информацию:

Иванов Иван Иванович Петров Петр Петрович Сидоров Ваня Шерлок Холмс Катани Тарзан

Что будет на экране в результате выполнения следующей программы:

Uses crt;

Var

f:text;

s:string;

i:integer;

f2:file of string;

Begin

assign(f,'dan.dat');

reset(f);

clrscr;

for i:=1 to 4 do

read(f,s);

writeln('1: ',s);

while not eof(f) do

readln(f,s);

writeln('2: ',s);

close(f);

assign(f2,'dan.dat');

reset(f2);

seek(f2,0);

read(f2,s);

close(f2);

writeln('3: ',s);

readkey;

End.

№2. Подсчитать количество синтаксических ошибок в программе и переписать ее без ошибок.

Var

f,f1:text;

s:string;

f2:file of string;

Begin

assign(f,'dan.dat');

reset(f);

close(f1);

rewrite(f1);

assign(f1,'dan.dat');

read(f1,s);

while not eof (f) do readln(f,s);

writeln(s);

writeln(f1,s);

assign(f2,'d.dat'); reset(f2);

seek(f2,3);

read(f2,s);

while not eof(f2) do readln(f2,s);

writeln(s);

End.

№3. Ввести двухмерный массив вещественных чисел X(5,3), записать его в файл К.TXT.

№4. Все элементы массива вещественных чисел X(15) уменьшить в четыре раза (массив считывать из файла). Если последний элемент X15 отрицательный, то в исходный файл добавить еще один элемент: -1.

№5. Считать массив X из файла L.txt, описанный как file of двухмерный массив вещественных чисел (5,3). При необходимости заменить некоторые значения с экрана, после чего опять записать массив в файл.

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1. Джонс Ж., Харроу К. Решение задач в системе Турбо/Паскаль. М.: Финансы и статистика, 1991. 720 с.: ил.

2. Йенсен К., Вирт Н. Паскаль: Руководство для пользователя. М.: Компьютер, 1993. 258 с.

3. Пильщиков В.Н. Сборник упражнений по языку Паскаль. М.:На­ука, 1989. 160 с.

4. Любиев О.Н. Информатика: Учеб.пособие/Новочерк. гос. техн. ун-т. Новочеркасск:НГТУ, 1998. 253 с.

приложения

приложение 1

Дата добавления: 2014-12-27