Задания по теме «Файлы». Задание №1. Задание №2. Задание №3. Задание №4. Задание №5. Задание №6

Задания по теме «Файлы»

Задание №1

Дано описание:

Var F : File Of Integer;

X, y : Integer;

Пусть файл F содержит два элемента (3 и 7). Определить, какое значение будет иметь переменная y после выполнения следующих операторов:

а) Reset(F); Read(F,y);

If Not Eof(F) Then Read(F,y);

б) Reset(F); y:=0;

While Not Eof(F) Do Begin

Read(F,x);

Y:=y + x

End;

в) Reset(F); y = 1;

Repeat

Read(F,x);

Y:=y*x

Until Eof(F);

Задание №2

Дано описание:

Var F : File Of Integer;

i : Integer;

Определить содержимое файла F после выполнения следующих операторов:

а) Rewrite(F);

If Eof(F) Then Write(F,1) Else Write(F,2);

If Eof(F) Then Write(F,3) Else Write(F,4);

б) . Rewrite(F);

For i:=3 Downto 1 Do

Write(F, Sqr(i));

Задание №3

Файл tl. dat был создан программой

var f:file of integer;

i:integer;

begin

assign(f,'tl.dat');

rewrite(f);

read(i);

while i<>0 do

begin write(f,i); read(i);

end;

close(f); end.

Можно ли прочитать пятую запись файла, минуя четыре предыдущие? Изменить пятую запись файла? Вставить за пятой записью новую, не переписывая файла? Изменить описание переменной i на real? а на string?

Задание №4

Определить, возможны ли приведенные ниже объявления файлов:

1)type WordFile = file of word;

var MyFile : WordFile;

2)var MyFile : file of Word;.

Задание №5

Определить, какую работу выполняет функция? Написать программу для создания файла, который может быть обработан представленной функцией, заполнив его подходящими случайными числами.

function max(var t:text):real;

var m,x:real;

begin

reset(t) ;

read(t,m);

while not eof(t) do

begin read(t,x);

if x>m then m:=x;

end;

max:=m; end.

Задание №6

Определить, есть ли ошибки в программе

var f:file of integer; i:integer;

procedure pp(var fail:file of integer; frboolean);

var i:integer;

begin

reset(fail);

i:=0;

while not eof(fail) do

begin read(fail,i); inc(i);

end;

k:=filesize(fail);

if i=k then pp:=true else pp:=false; end;

begin write('Введите имя файла ');

readln(i);

assign(f,i);

pp(fail,f);

close(fail);close(f); end.

Задание №7

Исправить ошибку в программе

var fl,f2:file of real;

r:real;

si,s2:string;

begin

write('Введите имя исходного файла ');

readln(si) ;

write('Введите имя создаваемого файла ');

readln(s2);

assign(fl,si);reset(fl);

var

assign(f2,s2);

rewrite(f2);

while not eof(fl) do

begin read(fl,r);

write(f2,r); end;

end.

Задание №8

Определить, какую работу выполняет программа

{Форматирование файла}

const d=4 0;

var book,copy:text;

с:char; k:integer;

begin

assign(book,'book.txt');

assign(copy,'temp.txt');

reset(book);

rewrite(copy);

while not eof(book) do

if eoln(book) then readln(book)

else begin read(book,c);write(copy,c); end;

reset(copy);

rewrite(book);

k:=0;

while not eof(copy) do

begin read(copy,с);

write(book,c); k:=k+l;

if (c=' . ' ) or (k=d) then begin writeln(book);k:=0; end;

end;

close(book);close(copy);

end.

Задание №9

Определить результат работы программы

type str80=string[80];

var ff : file of str80;

gg : text;

ss:str80;

s:string; k:word;

begin

assign(ff,'strings.str'); rewrite(ff);

assign(gg,'strings.txt'); rewrite(gg);

ss:='@#&';

for k:=l to 99 do

begin str(k:2,s);

if k<10

then ss:=copy(ss,1,3)+'0'+s[2];

else ss:=copy(ss,1,3)+s;

write(ff,ss);

writeln(gg,ss) ; end;

close(ff);close(gg);

end.

Написать программы для просмотра полученных файлов.