TP7: Срочная помощь нужна по отладке прогарммы на Паскале!

[Anna_fors]

Привет всем форумчанам!
Я обращаюсь еще с одной просьбой. Очень надо. И быстро надо.
Помогите отладить в Турбо Паскале прогарамму. Выводить ошибку о несоответствии типов, только не могу сама устранить ее.

[Iceman]

ошибку процитируй. ну напиши как зуб ошибка звучит и оба етих типа.

[Anna_fors]

 
{--------------Процедура ввода (с клав-ры) данных о номере------------------}
 
procedure numb_info_read(var item : numb_info); {}
var
  tword : word;
begin
  with item do
    begin
    number_read(gost_nomer);{в этом месте выводит ошибку о несоответсвии типов}
    word_read('кол-во комнат', rooms,  1, 5);
    word_read('кол-во мест  ', places, 1, 50);
    word_read('санузел (0/1)', tword,  0, 1);
    wc := (tword = 1);
    writeln('Перечень оборудования (разделяйте запятыми)');
    readln(equipment)
    end
end;

ниже я вставлю код процедуры number_read(item):

 
procedure number_read(var item:string{[4]}); {В этой процедуре испол-ся item типа string}
{ }
var
 
  tstr : string;
  i : byte;
  good : boolean;
begin
  repeat
  write('Номер: ');
  readln(tstr);
  tstr := upper(trim(tstr));
  good := false;
  if tstr[0]<>#4 then writeln('Неверная длина ', ord(tstr[0]), '(', tstr, '), должна быть строка фор-та "ANNN"')
  else begin
     if tstr[1] in ['Л', 'П', 'О', 'М'] then
      begin
      good := true;
      for i:=2 to 4 do good:=good and (tstr[i] in ['0'..'9']);
      if not good then writeln('Некорректные цифры ''', copy(tstr,2,3), '''')
      end
     else writeln('Неверный первый знак ''', tstr[1], '''');
     write('Допустимые значения Л-люкс, П - полулюкс, О-одноместный, М-многомест.')
  end
  until good;
  item := tstr
end;

Подскажите, в чем ошибка, срочно надо.

[А. Долматов]

number_read(gost_nomer);{

что означает в этой процедуре параметр и какой у него тип.

[Net]

Дык... тут даже и не отладка, а элементарнейшая ошибка компиляции. Type mismatch.

В прицепленном файле вы делаете number_read(item);, ошибка вылазит, а тут уже привели кусок кода, где number_read(gost_nomer);. Здесь все верно абсолютно. Ну не компилится, но уже из-за других ошибок.

[Anna_fors]

Слушай, я же скинула заархивируемую папку с файлом, в котором есть код полной программы. Там все хорошо расписано. Залезь, пожалуйста, туда, ты же сам понимаешь, что бесполезно отдельными фрагментами искать ошибки в программе.

[А. Долматов]

На работе нет ТР7 и за трафик убют. (звиняйте). Поэтому и спрашиваю какой тип и что за переменная. а лучше выложите плиз список всех переменных с пояснениями. нужно ведь обработать часть кода, а не всю программу переписать.

[Anna_fors]

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

Хорошо.

 
{---тип данных для хранения, описания номера, с соответ-щими процедурами
    для работы с этим типом данных ------ }
type
{а) Данные о каж. гостинич. номере: }
  numb_info = record
    gost_nomer : string[4]; {№ гостинич. номера - строка формата "ANNN", где  }
                      { А - буква, обоз-щая  тип номера (Л-люкс,
                      П-полулюкс, О-одномес., М-многоместный}
                      { NNN – порядковый номер (цифры) }
    rooms,                  { кол-во комнат }
    places : word;          { кол-во мест   }
    wc : boolean;           { Наличие санузла }
    equipment : string      { Перечент оборудования – перечислять через запятые }
  end;

 
{ тип данныхдля хранения, описания (паспорт. данных) постояльца), с
  соответс. процедурамидля работы с этим типом данных }
type
  person_info = record
    gost_nomer : string[4];  { № гостинич. номера - строка формата "ANNN", где
                        А - буква, обоз-щая тип номера( Л-люкс, П-
                        полулюкс, О- одномест.,
                        М - многомест.; NNN - порядковый номер}
    passport   : string[11]; { № паспорта - строка формата "NNNN-NNNNNN, где
                        N - цифры }
    settle,                  { Дата заселения  }
    evict      : string[10]  {ДАта выселения }
  end;

 
{----------------Процедура ввода с клав-ры № гостинич. номера---------------}
            {с одноврем. проверкой на корректность--}
 
procedure number_read(var item:string{[4]});
var
 
  tstr : string;
  i : byte;
  good : boolean;
begin
  repeat
  write('Номер: ');
  readln(tstr);
  tstr := upper(trim(tstr));
  good := false;
  if tstr[0]<>#4 then writeln('Неверная длина ', ord(tstr[0]), '(', tstr, '), должна быть строка фор-та "ANNN"')
  else begin
     if tstr[1] in ['Л', 'П', 'О', 'М'] then
      begin
      good := true;
      for i:=2 to 4 do good:=good and (tstr[i] in ['0'..'9']);
      if not good then writeln('Некорректные цифры ''', copy(tstr,2,3), '''')
      end
     else writeln('Неверный первый знак ''', tstr[1], '''');
     write('Допустимые значения Л-люкс, П - полулюкс, О-одноместный, М-многомест.')
  end
  until good;
  item := tstr
end;

[Virtson]

хех ))
вспомнил школьные годы ..

[ основная ошибка была в попытке передавать конструкцию типа 'string[N]' в качестве параметра подпрограммы ]

держите, Анна :

[Anna_fors]

Virtson, огромное спасибо за помощь, но до меня тоже дошло, в чем была ошибка.