|
Pa.32.1
после числа 2
|
Pa.32.2
после числа 4
|
Pa.32.3
12
|
Pa.32.4
1, 2, 3
|
Pa.32.5
2, 2, 3
|
Pa.32.6
1, 1
|
Pa.32.7
1, 2, 3, 4
|
Pa.32.8
5, 6, 7
|
Pa.32.9
6, 6, 6, 6
|
Pa.32.10
10, 10
|
Pa.32.11
пустой файл, длина файла равняется 0 байт
|
Pa.32.12
Ответ протестирован в среде программирования Delphi 7.0.
program a;
var
f : file of integer;
k, n : integer;
begin
n:=7;
assignFile(f,'c:\1.bin'); rewrite(f);
for k:=1 to 100 do write(f,n);
close(f);
end.
|
Pa.32.13
Ответ протестирован в среде программирования Delphi 7.0.
program a;
uses SysUtils, Dialogs;
var
f : file of integer;
k, S : integer;
begin
S:=0;
assignFile(f,'c:\1.bin'); reset(f);
while not eof(f) do begin
read(f,k);
S:=S+k;
end;
close(f);
ShowMessage(IntToStr(S));
end.
|
Pa.32.14
Ответ протестирован в среде программирования Delphi 7.0.
program a;
var
f1, f2, f3 : file of char;
k : char;
begin
assignFile(f3,'c:\3.bin'); rewrite(f3);
assignFile(f1,'c:\1.bin'); reset(f1);
while not eof(f1) do begin
read(f1,k);
write(f3,k);
end;
close(f1);
assignFile(f2,'c:\2.bin'); reset(f2);
while not eof(f2) do begin
read(f2,k);
write(f3,k);
end;
close(f2);
close(f3);
end.
|
Pa.32.15
Ответ протестирован в среде программирования Delphi 7.0.
program a;
uses SysUtils, Dialogs;
var
f : file of integer;
k, S : integer;
begin
S:=0;
assignFile(f,'c:\1.bin'); reset(f);
while not eof(f) do begin
read(f,k);
S:=S+1;
end;
close(f);
ShowMessage(IntToStr(S));
end.
|
Pa.32.16
Ответ протестирован в среде программирования Delphi 7.0.
program a;
uses SysUtils, Dialogs;
var
f : file of char;
S : integer;
k : char;
begin
S:=0;
assignFile(f,'c:\a.txt'); reset(f);
while not eof(f) do begin
read(f,k);
if k='z' then S:=S+1;
end;
close(f);
ShowMessage(IntToStr(S));
end.
|
Pa.32.17
Ответ протестирован в среде программирования Delphi 7.0.
program a;
var
f1, f2 : file of integer;
k : integer;
begin
assignFile(f2,'b.num'); rewrite(f2);
assignFile(f1,'a.num'); reset(f1);
while not eof(f1) do begin
read(f1,k);
if k>=0 then write(f2,k);
end;
close(f1);
close(f2);
end.
|
Pa.32.18
Ответ протестирован в среде программирования Delphi 7.0.
program a;
uses SysUtils, Dialogs;
var
f1, f2 : file of char;
k1, k2 : char;
b : boolean;
begin
b:=true;
assignFile(f1,'a.txt'); reset(f1);
assignFile(f2,'b.txt'); reset(f2);
while not eof(f1) and not eof(f2) do begin
read(f1,k1);
read(f2,k2);
b:=b and (k1=k2);
end;
if not eof(f1) then b:=false;
if not eof(f2) then b:=false;
close(f1);
close(f2);
ShowMessage(BooleanToStr(S));
end.
|
Pa.32.19
Ответ протестирован в среде программирования Delphi 7.0.
program a;
uses SysUtils, Dialogs;
var
f : file of integer;
k, mmax : integer;
begin
assignFile(f,'c:\1.bin'); reset(f);
read(f,mmax);
while not eof(f) do begin
read(f,k);
if k>mmax then mmax:=k;
end;
close(f);
ShowMessage(IntToStr(mmax));
end.
|
|