таблица - записи с данным о холодильниках (Паскаль)

[mishammm]

Всех с Наступающим Рождеством! Решил на каникулах заняться лабой, само задание было такое нужно сложить программу создание текстового файла с инфориацией о холодильниках( + данные можно дополнять). ну вообщем я пока просто программу пишу без файла. Нужно вывести в таблицу холодильники 1993 года:
Вот нашкрябал кое что:

const 
      n=5;
 type
      xolod = record
      virobn:string;
      nazvanie:string;
      kamera:real;
      rik:real;
      misce:string;
      cina:real;
      kilkist:real;
      end;
   var
      i:integer;
      tabl:array[1..n] of xolod;
      procedure lin(m:integer);
      var
         i:integer;
  begin
  for i:=1 to m do
  write('-');
  writeln;
  end;
  
  begin
  Writeln('Vvedi danni');
  For i:=1 to n do
  begin
  readln(tabl[i].virobn ,tabl[i].nazvanie , tabl[i].kamera , tabl[i].rik , tabl[i].misce , tabl[i].cina , tabl[i].kilkist);
  end;
  Lin(69);
  writeln(' | Виробництво | Назва | Обэм Камери | Рік | Місце | Ціна | Кількість|');
  Lin(69);
  For i:=1 to n do
  begin
   write(' |', tabl[i].virobn:10,'|');
write(tabl[i].nazvanie:15,'|',tabl[i].kamera:16,'|', tabl[i].rik:4,'|', tabl[i].misce:9,'|' , tabl[i].cina:9,'|' , tabl[i].kilkist:9,'|');
writeln;
Lin(69);
end;
  writeln;
  writeln('vidsortovano');
  Lin(69);
  For i:=1 to  n do
  begin
  If  (tabl[i].rik = 1993) then
write(' |', tabl[i].virobn:10,'|');
write(tabl[i].nazvanie:15,'|',tabl[i].kamera:16,'|', tabl[i].rik:4,'|', tabl[i].misce:9,'|' , tabl[i].cina:9,'|' , tabl[i].kilkist:9,'|');
  writeln;
  Lin(69);
  end;
  End.

в таблицу вводяться значение производство, название и т.д. Так вот если ввести например производство - Москва, а название холодильника - пусть будет Lg то выбивает ошибку на строке readln : Ошибка времени выполнения: Входная строка имела неверный формат. Помогите исправитть

[Serge_Bliznykov]

во-первых, Вы абсолютно зря отказываетесь от файла! Вам не будет лень КАЖДЫЙ раз вбивать всё то же самое про ваши холодильники?!

во-вторых, измените структуру на такую:

type
    xolod = record
      virobn:string[50];
      nazvanie:string[45];
      kamera:real;
      rik:integer;
      misce:string[45];
      cina:real;
      kilkist:real;
    end;
....

цифры после String могут быть любые, но, главное, чтобы строка была задана с длиной!
НУ и год выпуска rik я сделал целым числом. Что это Вы его в дробные числа отнесли?!

в третьих, ввод напишите так:

Writeln('Vvedi danni');
  For i:=1 to n do
  begin
     Write('virobn:'); readln(tabl[i].virobn);
     Write('nazvanie:'); readln(tabl[i].nazvanie);
     Write('kamera:');  readln(tabl[i].kamera);
     Write('rik:'); readln(tabl[i].rik);
     Write('misce:'); readln(tabl[i].misce);
     Write('cina:); readln(tabl[i].cina);
     Write('kilkist:'); readln(tabl[i].kilkist);
  end;

[mishammm]

вооо )) спасибо я извиняюсь можете подровнять табличку плиз, вот как выходит (на рис.) а насчёт файла мне по заданию надо будет сделать текстовый файл. я просто хотел сначала саму программу сделать а потом уже запись сделать в текст файл + нада расчитать так чтобы данные могли дополняться. я знаю вроде использовать надо append(имя файла), заметил что у меня неправильно сортировка работает, я что то в writeln недописал?? нужно только 1993

P.S. спасибо вам за string [50] думал это необязательно.

[type_Oleg]

Serge_Bliznykov, это типизированные файлы (file of xolod) не терпят безразмерных стрингов. А у него - текстовый файл.
Я не помню, но им вроде по фигу.

[Serge_Bliznykov]

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

Serge_Bliznykov, это типизированные файлы (file of xolod) не терпят безразмерных стрингов. А у него - текстовый файл.
Я не помню, но им вроде по фигу.

Вы абсолютно правы.
Для текстовых файлов - размеры строк в записи в типе String действительно "по барабану"!

[mishammm]

подскажите плиз где у меня ошибка в сортировке, выводит все холодильники а надо только 1993 года ( в write что то недописано?

[mishammm]

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

подскажите плиз где у меня ошибка в сортировке, выводит все холодильники а надо только 1993 года ( в write что то недописано?

проблема решилась дописанием begin после then ... всем спасибо )

[Serge_Bliznykov]

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

подскажите плиз где у меня ошибка в сортировке, выводит все холодильники а надо только 1993 года ( в write что то недописано?

во-первых, то, что Вы пытаетесь сделать, это не является сортировкой (сортировка - это изменение позиций элементов, чтобы они были расположениы в заданном порядке), то, что Вы пытаетесь сделать, это, скорее, отбор или фильтрация данных.

во-вторых, вы явно забыли операторные скобки:
код

Lin(69);
  For i:=1 to n do
  begin
   write(' |', tabl[i].virobn:10,'|');
write(tabl[i].nazvanie:15,'|',tabl[i].kamera:16,'|', tabl[i].rik:4,'|', tabl[i].misce:9,'|' , tabl[i].cina:9,'|' , tabl[i].kilkist:9,'|');
writeln;
Lin(69);

выведет ВСЕ записи.

а код:

For i:=1 to  n do
  begin
  If  (tabl[i].rik = 1993) then begin
write(' |', tabl[i].virobn:10,'|');
write(tabl[i].nazvanie:15,'|',tabl[i].kamera:16,'|', tabl[i].rik:4,'|', tabl[i].misce:9,'|' , tabl[i].cina:9,'|' , tabl[i].kilkist:9,'|');
  writeln;
  Lin(69);
  end;
end;

выведет только записи, у которых rik = 1993.

я надеюсь, что Вы не забыли изменить тип поля rik на Integer, как я Вам советовал выше... И что не забыли внести холодильники с годом выпуска 1993 год.