Типизированные файлы

[Robot01]

Заполнить файлы f и q целыми числами, полученными с помощью генератора случайных чисел. Получить файл t, включив в него по одному разу те элементы исходных файлов, которые входят и в файл f, и в файл q.

[Stilet]

Попытки были?

[Robot01]

Stilet, были попытки с похожими задачами, но эту я даже не понимаю как решить

[Stilet]

Наполнить файлы исходными хотя бы сможешь?

[Robot01]

Stilet, вот так:

var f,g:file of integer;
    n,a,i:integer;
begin
randomize;
assign(f,'text1');
rewrite(f);
assign(g,'text2');
rewrite(g);
write('Сколько чисел записать в файл F n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(50)+1;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do

[Stilet]

Вооть. Уже лучше )
А теперь есть два варианта:
1) Считать в динамический массив данные из файлов, и уже по ним циклом прокатываться выясняя совпадения
2) Прокатываться по файлу в цикле
3) Есть еще вариант применить множества, раз у тебя числа целые.
Чему вас там учат то?

[Robot01]

Stilet, в том то и дело что учат "не ахти" мол почитают лекцию где даже 50% нет того что мы пишем на практике, а задачи сам должен знать как решать вот я и не представляю как дальше быть... Извините но я ваши варианты плохо понял

[Poma][a]

Вариант Виталия, но чуть подробнее..
Заводишь массив. Заполняешь его числами из F.
Затем читать из G все числа по одному.
Прочитал число, пробежался по массиву, проверил, есть ли оно в этом массиве. Если имеется, то записываешь в T.

И всё..

[Stilet]

Ладно. Я понял. самостоятельно учиться нет желания, а преподаватели болт кладут.
Вот тебе примерное решение твоей задачи:

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var f:file of integer; i:integer; s,d,e:set of 0..50;
begin
  // Наполняем файлы
  Assign(f,'w');rewrite(f);
  for i:=0 to 100 do write(f,random(50));
  close(f);

  Assign(f,'q');rewrite(f);
  for i:=0 to 100 do write(f,random(50));
  close(f);

  //Читаем файлы
  Assign(f,'w');reset(f);
  while not eof(f) do begin read(f,i); include(s,i); end;
  close(f);

  Assign(f,'q');reset(f);
  while not eof(f) do begin read(f,i); include(d,i); end;
  close(f);

  //Вписываем то что есть в обоих
   e:=s*d;
  Assign(f,'t');rewrite(f);
  for i:=0 to 50 do if i in e then write(f,i);
  close(f);


end.

Изучай. Разбирайся. Козыряй.

Poma][a

Я передумал насчет массивов
Соединение множеств круче
И писанины меньше.

[Robot01]

Stilet, я только задачу сделал но она чуть лажает если идут повторяющиеся можете проверить:

var
  f,q,t:file of integer;
  i,j,n,x,p,k:integer;
begin
    write('n=');
    readln(n);
  assign(f,'1.txt');
  rewrite(f);
   assign(q,'2.txt');
  rewrite(q);
  assign(t,'3.txt');
  rewrite(t);
  randomize;
  writeln('Ôàéë: ');
  for i:=1 to n do
    begin
      x:=random(10);
      write(f,x);
      write(x:4);
    end;
    writeln;
     for i:=1 to n do
    begin
      x:=random(10);
      write(q,x);
      write(x:4);
    end;
  writeln;
  for i:=0 to (FileSize(f)-1) do
  begin
   seek(f,i);
   read(f,x);
    k:=0;
    for j:=0 to (FileSize(q)-1) do
    begin
      seek(q,j);
      read(q,p);
       if x=p then  k:=k+1;
     end;
     if k=1 then
      write(t,x);
       end;
  seek(t,0);
   for i:=1 to (FileSize(t)) do
    begin
      read(t,x);
      write(x:4);
    end;
   close(f);
   close(q);
   close(t);
end.