Тема 14: Типизированные файлы

Варианты ответа

8 2 3 4 4 5
4 2 3 4 4 5
4 2 3 3 4 5
8 2 3 3 4 5
4 2 3 5 4 5
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

var fw: file of word; j: word;
begin assign(fw,'file1.wrd'); rewrite(fw);
for j:=2 to 5 do write(fw,j);
 write(filesize(fw):2); close(fw);
 reset(fw); while not eof(fw) do
  begin read(fw,j); if j=4 then
    write(filepos(fw):2);write(j:2);
  end; close(fw); readln;
end.

Варианты ответа

3 4 ss:7 4
3 24 ss:7 4
3 4 ss:6 4
3 24 ss:7 5
4 4 ss:7 4
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку при компиляции

{справка: #48='0'; #49='1' .. #57='9'}
type ts = string[5]; var fS: file of ts; 
ss: ts; j:byte;
begin assign(fs,'file2.ts'); rewrite(fs);
for j:=5 to 8 do begin ss:='ss:'+char(j+48);
 write(fs,ss); end; close(fs); reset(fs);
 j:=0; while not eof(fs) do
  begin read(fs,ss); if j=2 then
   begin write(filepos(fs):2, 
     filesize(fs):2,ss:6);
   end; inc(j);
  end; write(j:2);close(fs); readln;
end.

Варианты ответа

0 103
102 103
0 102
103 104
0 104
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

var fw: file of word; j,bb:byte;
fb: file of byte; w:array [1..4] of word;
begin assign(fw,'file3.wrd'); rewrite(fw);
w[1]:=101;w[2]:=102;w[3]:=103;w[4]:=104;
for j:=1 to 4 do write(fw,w[j]);close(fw);
assign(fb,'file3.wrd'); reset(fb); 
seek(fb,3); read(fb,bb); write(bb:4);
read(fb,bb); write(bb:4); close(fb); readln;
end.

Варианты ответа

103 104
102 103
101 102
104 103
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
103 102

var fw: file of word; j:byte; w:array [1..4]
 of word;
begin assign(fw,'file4.wrd'); rewrite(fw);
w[1]:=101;w[2]:=102;w[3]:=103;w[4]:=104;
for j:=1 to 4 do write(fw,w[j]); close(fw);
seek(fw,2); read(fw,w[2]); read(fw,w[1]); 
write(w[2]:4,w[1]:4); close(fw); readln;
end.

Варианты ответа

124849
64849
61234
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
60123
64950

{справка: #48='0'; #49='1' .. #57='9'}
var fb: file of byte; fc: file of char; 
b:byte; c:char;
begin assign(fb,'file5.chr'); rewrite(fb);
for b:=48 to 53 do write(fb,b); close(fb);
assign(fc,'file5.chr'); reset(fc); b:=0;
write(filesize(fc)); while not eof(fc) do
 begin read(fc,c); if b<4 then write(c);
  inc(b);
 end; close(fc);readln;
end.