Book of tasks on programming. Old version

 

 by Aliaksandr N. Prykhodzka

 

private, processor, форматирование, record, jsp, критерий, answers, кобол, servlet, jsp, sheet, code, транслятор, компиляция, метод пузырьков, example
 

Pascal. Answers. Pa.32. Files



главная страница


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.

 

©   Aliaksandr Prykhodzka    1993 - 2007