Определить, образуют ли элементы файла арифметическую прогрессию - PascalABC.NET

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

Есть файл с числами,определить создают ли его элементы арифметическую прогресию

Код к задаче: «Определить, образуют ли элементы файла арифметическую прогрессию - PascalABC.NET»

textual
var 
  f: file of Integer;
  n1, n2, delta: Integer;
begin 
  Assign(f, 'd:\test\03.dat');
  Reset(f);
  var check: 0 .. 1;
  
  try
    read(f, n1, n2);
    delta := n2 - n1;
    try
      while not EOF(f) do
      begin
        n1 := n2;
        Read(f, n2);
        check := 1 div Ord((n2 - n1) = delta);
      end;
      WriteLn('в файле арифметическая прогрессия');
    except
      WriteLn( 'в файле не арифметическая прогрессия');
    end;
  except
    writeln( 'Недостаточно данных в файле');
  end;
  Close(f); 
end.

10   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы