Дано имя файла целых чисел. Найти количество элементов, содержащихся в данном файле - Pascal ABC

Формулировка задачи:

буду благодарен за помощь. Дано имя файла целых чисел. Найти количество элементов, содержащихся в данном файле. Если файла с таким именем не существует, то вывести −1.

помогитееее :-(

                    Листинг программы
                
 
                        
                          
                    
var k, t: integer;
    f: file of integer;
begin
  k := 0;
  assign(f, 'f.dat');
  reset(f);
  while not eof(f) do
    begin
      read(f, t);
      repeat
        inc(k);
        t := t div 10
      until t = 0
    end;
  close(f);
  write('Количество цифр в файле: ', k)
end.

как сделать чтоб если нет файла -1 выводило?

Решение задачи: «Дано имя файла целых чисел. Найти количество элементов, содержащихся в данном файле»

textual
                            Листинг программы 
                        
 
                        
                          
                    
const s = 'f.dat';
var f: file of integer;
begin
  if  fileexists(s)
    then begin
      assign(f, s);
      reset(f);
      writeln(filesize(f))
    end
    else writeln('-1')
end.

Оцени полезность:

8 голосов , оценка 4.25 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы