Работа с текстовыми файлами Pascal

[Anytka99]

Дано файл F, компоненты которого - целые числа. Найти:
a) количество четных чисел среди компонентов файла F;
b) количество полных квадратов среди компонентов файла F.
Спасибо.

[netpolice]

Сообщение от Anytka99

Дано файл F, компоненты которого - целые числа. Найти:
a) количество четных чисел среди компонентов файла F;
b) количество полных квадратов среди компонентов файла F.
Спасибо.

Вопрос тот же, что и в предыдущей теме: А какая структура файла?

[Anytka99]

Сообщение от netpolice

Вопрос тот же, что и в предыдущей теме: А какая структура файла?

Просто создается текстовый файл с целыми числами(строка).

[netpolice]

Сообщение от Anytka99

Просто создается текстовый файл с целыми числами(строка).

Коль уж только набор чисел, то легче - каждое число в своей строке...

[Anytka99]

Сообщение от netpolice

Коль уж только набор чисел, то легче - каждое число в своей строке...

Да.

[netpolice]

"полных квадратов" - это число, корень которого целое число?

[Serge_Bliznykov]

Просто создается текстовый файл с целыми числами(строка).

я с этим поспорю!

Это противоречит условию задания:

Дано файл F, компоненты которого - целые числа.

речь явно идёт о типизированном файле:

var f : file of integer;

не надо придумывать проблемы (с парсингом строки) там, где эти проблемы не нужны!

[Anytka99]

Сообщение от netpolice

"полных квадратов" - это число, корень которого целое число?

Да!

[Serge_Bliznykov]

первое задание:

var f : file of integer;
   a : integer;
   cnt:integer;
begin
   Assign(f, 'file1.dat');
   Reset(f);
   cnt:=0;
   while Not eof(f) do begin
     Read(f, a);
     if not odd(a) then Inc(cnt);
   end;
   Close(f);
   WriteLn('Count of even numbers is ', cnt);
   ReadLn
end.

[netpolice]

Вот второе (правда в Делфях):

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;


var
  f:TextFile;
  a,i,s,cnt:integer;
  b:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
    AssignFile(f, '123.txt');
    Reset(f);
    while not(Eof(f) ) do
      begin
        readln(f,a);
       // readln(f,b);
       // Writeln(a);
        if (a>0)and ((sqrt(a) - int( sqrt(a)))<0.00000001) then Inc(cnt);
      end;


     Writeln(cnt);
    readln;


end.