процедуры, записи

[unbanned]

program lab_9;

type
  r = record
    l: string[6];
    n: string[9];
  end;

type
  rec = array [1..100] of r;  

var
  f: text;
  m: rec;

procedure vvod(x: rec; k: integer);
var
  i: integer;
begin
  assign(f, 'dan9.txt');
  reset(f);
  for i := 1 to k do 
    with x[i] do
      readln(f, l, n);  
  close(f);   
end;

procedure vyvod(x: rec; k: integer);
var
  i: integer;
begin
  writeln('Предприятия с телефоном на 155:');
  for i := 1 to k do
    with x[i] do
      if copy(n, 1, 3) = '155' then writeln(l);
  writeln('Предприятия с телефоном на 141:');
  for i := 1 to k do
      with x[i] do
    if copy(n, 1, 3) = '141' then writeln(l);
end;

begin
  vvod(m, 16);  
  vyvod(m, 16);
end.

программа компилируется... но не заполняет record из файла.
пробовал через точку. напр

readln(f, x.l, x.n);

тогда выбивает ошибку.

стоит заменить на

    with m[i] do
      readln(f, l, n);

программа работает как надо.

я так понял что в процедуре надо обращаться к записи подругому... или я что-то с типами накосячил?

[Serge_Bliznykov]

1)

var
  f: text;

зачем?! Чем Вам типизированный файл не угодил? Он же для этого и был придуман:

 var f : file of r;

2) если же с текстовым файлом работаете, тогда в каждой строке должно быть
ровно 6 символов, которые пойдут в l и ровно 9 символов — для n
пробелы, точки, табуляция - это всё тоже считаются как символы...

3)

readln(f, x.l, x.n);

тогда выбивает ошибку.

правильно. X же типа REC, а это МАССИВ.
нужно так:

readln(f, x[i].l, x[i].n);

ну и не забудьте добавить VAR перед описанием параметра:

procedure vvod(var x: rec; k: integer);

ну и ещё. Крайне не рекомендую использовать в процедурах/функциях ту адскую смесь из формальных параметров и глобальных переменных, которая имеется в Вашей программе.
Вообще, старайтесь без лишней надобности глобальные переменные НЕ ИСПОЛЬЗОВАТЬ.

[unbanned]

Вообще, старайтесь без лишней надобности глобальные переменные НЕ ИСПОЛЬЗОВАТЬ.

что-то я не совсем понял что вы имели ввиду...
ведь, у меня в программе глобальных переменных всего 2

var
  f: text;
  m: rec;

и в процедурах я к ним не обращаюсь

[Serge_Bliznykov]

var
  f: text;
  m: rec;

и в процедурах я к ним не обращаюсь

Вы уверены в этом?

procedure vvod(x: rec; k: integer);
var
  i: integer;
begin
  assign(f, 'dan9.txt');
  reset(f);
...

кроме того, а почем Вы решили, что в текстовом файле ровно 16 значащих строк?
разумнее было бы читать их в цикле.. и возвращать в переменную, сколько прочитали реально строк?..

ну и ещё:

for i := 1 to 10 do

почему до 10 ? опечатка?..

[unbanned]

да, до 10 - опечатка... в текстовом файле 16 строк по заданию.
хм... т.е. сделать так:

begin
  assign(f, 'dan9.txt');
  reset(f);
  vvod(m,16);
  close(f);
  vyvod(m,16);
end;

procedure vvod(var x: rec; k: integer);
var
  i: integer;
begin
  for i := 1 to k do 
    with x[i] do
      readln(f, l, n);  
end;

[Serge_Bliznykov]

хм... т.е. сделать так:

нет, не логично.
лучше выкинуть var f : text; из глобального описания
и добавить описание в процедуру:

procedure vvod(var x: rec; k: integer);
var
  f : text;
  i : integer;
begin
  assign(f, 'dan9.txt');
  reset(f);
  for i := 1 to k do 
    with x[i] do
      readln(f, l, n);  
  close(f);   
end;

[unbanned]

спасибо, учту