Процедура сравнения последовательного файла (имя) и целочисленного массива [Pascal]

[EvilArtorias]

Процедура сравнения последовательного файла (имя) и целочисленного массива
структура файла: х-целое, у-вещественное
сравнение осуществляется по-элементно
если все значения совпали, то процедура выводит true,иначе false.
я написал часть и уже запутался...

program failinif;
const n=4;
type
t=record
procedure sravnenie(c: boolean);
var mass : array[1..n] of real;
f1:file of T;
i:integer;
x:integer;
y:integer;
begin
writeln('ведите х и у');
readln(x,y);
assignFile(f1,'f1.dat');
rewrite(f1);
write(f1,x,y);
closeFile(f1);
writeln('введите массив из','   ' ,n , '   ',  'чисел');
readln(mass[i]);
for i:=1 to n-1 do
if (mass[i]=x)and(mass[i+1]=y) then c:=true
else c:=false;
end;end;
 var a:integer;
 begin
sravnenie(a);
 end.

постоянно говорит о том что типизированный файл не может содержать эллементы такого типа.Как исправить?и можно ли сделать и целое и вещественное в одной процедуре,а то он тоже на это ругался.

[min@y™]

Процедура сравнения последовательного файла

А чо такое "последовательный файл"?

[Serge_Bliznykov]

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

t=record
procedure sravnenie(c: boolean);

реально? Вы в тип запись хотите вставить процедуру? И это компилируется?
абалдеть!!!

Сообщение от min@y™

А чо такое "последовательный файл"?

присоединяюсь к вопросу.

потому как типизированный файл как раз легко позволяет обратиться к любому элементу файла в любом порядке. Поэтому, вряд ли здесь допустимо использование типизированного файла.

я бы предположил, что у Вас файл банально текстовый, который содержит числа.
но лучше это уточнить.

и ещё вопрос по заданию. Если нужно сравнить файл, который содержит целые и вещественные числа с целочисленным массивом, то как это сделать? что нужно делать с вещественными числами?
игнорировать?

попробуйте что-то вроде

const N=5;

type TMyArray = array[1..N] of integer;

procedure comapre_file_and_array(const fileName : string; A:TMyArray; var is_match : boolean);
var   f : TextFile;
   x, i : integer;
   y:real;
begin
  is_match := false;

  AssignFile(f, fileName);
  Reset(f);

  i:=0;
  while Not Eof(f) do begin
     ReadLn(f, x, y);
     if i>=N then begin CloseFile(f); Exit; end; {файл не кончился, а массив уже кончился - выходим FALSE}
     inc(i);
     if x<>A[i] then begin CloseFile(f); Exit; end;{очередные элементы не совпали  - выходим FALSE}
   end;
   CloseFile(f);
   is_match := true; {всё совпало. устанавливаем TRUE}
end;

var
  arr : TMyArray;
  is_match : boolean;
begin

  for i:=1 to N do arr[i]  := i; {заполнить массив}  

  comapre_file_and_array('input.text', arr, is_match);

  if is_match 
    then WriteLn('Содержимое целочисленных значений файла и массива совпали.')
    else riteLn('Содержимое целочисленных значений файла и массива не совпало.');

end.

[EvilArtorias]

Сообщение от min@y™

А чо такое "последовательный файл"?

ну последовательный файл это 1-ый элемент массива сравнивается со значением 1-ой записи файла,2-ой со вторым и тд.,но в файле всего 2 элемента.

[min@y™]

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

ну последовательный файл это 1-ый элемент массива сравнивается со значением 1-ой записи файла,2-ой со вторым и тд.,но в файле всего 2 элемента.

Щито?

https://www.youtube.com/watch?v=MGxAtO5n9SY

[EvilArtorias]

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

реально? Вы в тип запись хотите вставить процедуру? И это компилируется?
абалдеть!!!




присоединяюсь к вопросу.

потому как типизированный файл как раз легко позволяет обратиться к любому элементу файла в любом порядке. Поэтому, вряд ли здесь допустимо использование типизированного файла.

я бы предположил, что у Вас файл банально текстовый, который содержит числа.
но лучше это уточнить.

и ещё вопрос по заданию. Если нужно сравнить файл, который содержит целые и вещественные числа с целочисленным массивом, то как это сделать? что нужно делать с вещественными числами?
игнорировать?

попробуйте что-то вроде

const N=5;

type TMyArray = array[1..N] of integer;

procedure comapre_file_and_array(const fileName : string; A:TMyArray; var is_match : boolean);
var   f : TextFile;
   x, i : integer;
   y:real;
begin
  is_match := false;

  AssignFile(f, fileName);
  Reset(f);

  i:=0;
  while Not Eof(f) do begin
     ReadLn(f, x, y);
     if i>=N then begin CloseFile(f); Exit; end; {файл не кончился, а массив уже кончился - выходим FALSE}
     inc(i);
     if x<>A[i] then begin CloseFile(f); Exit; end;{очередные элементы не совпали  - выходим FALSE}
   end;
   CloseFile(f);
   is_match := true; {всё совпало. устанавливаем TRUE}
end;

var
  arr : TMyArray;
  is_match : boolean;
begin

  for i:=1 to N do arr[i]  := i; {заполнить массив}  

  comapre_file_and_array('input.text', arr, is_match);

  if is_match 
    then WriteLn('Содержимое целочисленных значений файла и массива совпали.')
    else riteLn('Содержимое целочисленных значений файла и массива не совпало.');

end.

все понял,а я никак понять не мог почему он от меня енд требует,ну я его в конце процедуры еще один и тыкнул,а там в оказывается в записях енд необходим.
последовательный файл это вроде имеется ввиду как раз тип записи рекорд.А насчет типа файла,я по началу пытался текстовым сделать,но преподаватель сказал что обязательно типизированный фал должен быть "file of..."

[EvilArtorias]

Сообщение от min@y™

Щито?

https://www.youtube.com/watch?v=MGxAtO5n9SY

посмотрел на "сравнение по-элементно",а последовательный файл я так понимаю это запись

[min@y™]

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

посмотрел на "сравнение по-элементно",а последовательный файл я так понимаю это запись

Мож, всё-таки, типизированный, а?

[EvilArtorias]

Сообщение от min@y™

Мож, всё-таки, типизированный, а?

у меня очень неразборчевый подчерк,возможно типизированный:D

[min@y™]

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

у меня очень неразборчевый подчерк,возможно типизированный:D

В след. раз пиши вопрос на видео.
С субтитрами, канещна!

https://www.youtube.com/watch?v=lkMPnCZ-B1k