Задача по записям. напечатайте информацию обо всех владельцах "Волг" черного цвета.

[Serge_Bliznykov]

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

Спасибо!
В итоге получилось так ,

...
var au:array[1..20] of auto;

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

правда почему я немогу написать var au:array[1..n] of auto; (появляется ошибка)

потому как нужно обязательно объявить размерность массива для компилятора (это так называемые "СТАТИЧЕСКИЕ МАССИВЫ", для них память выделяется фиксированно), либо использовать "ДИНАМИЧЕСКИЕ МАССИВЫ" - это массивы, к которым обращение происходит через указатели и память выделяется динамически, в процессе работы программы. Динамические массивы появились в Object Pascal ( Delphi ), так же они есть в ПаскальABC/ПаскальABC.NET

Если у Вас старый паскаль, который не "понимает" запись вида

  var au:array of auto;

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

вот так примерно:

const N = 50;

type auto = record
    model: string[10];
    num: string;
    color: string;
    fio: string;
    date: string;
  end;
var au: array[1..N] of auto;
var i, count: integer;
  temp: string;
begin
  repeat
    writeln('Введите количество (от 1 до ',N,'): ');
    readln(count);
  until (count>=1) and (count<=N);

  for i := 1 to count do
  begin
    writeln('Модель'); readln(au[i].model);
    writeln('Номер'); readln(au[i].num);
    writeln('Цвет'); readln(au[i].color);
    writeln('Ф.И.О'); readln(au[i].fio);
    writeln('дата ТО'); readln(au[i].date);
  end;

  WriteLn('Выборка по условиям: модель:  Волга, цвет автомобиля: Черный');
  for i := 1 to count do
  begin
    if (au[i].model = 'Волга') and (au[i].color = 'Черный') then
    begin
      writeln('госномер: ', au[i].num, ' фио владельца: ', au[i].fio, ' дата ТО:', au[i].date);
    end;
  end;
end.

[Torres11]

Спасибо! Но я появился еше один вопрос как задать это условие

номер (код региона, цифровой код, буквенный код)

и в каком месте у меня задается запись с выбором? Видимо это связано как-то с номером?

[Serge_Bliznykov]

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

Спасибо! Но я появился еше один вопрос как задать это условие

не знаю. ну, например, так можно попробовать:

type 
  numtype = record
     region_code : integer;
     code           : integer;
     letter_code   : string[3];
  end;
   
  auto = record
    model: string[10];
    num: numtype;
    color: string;
    fio: string;
    date: string;
  end;

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

и в каком месте у меня задается запись с выбором? Видимо это связано как-то с номером?

а кто Вам сказал, что у Вас "запись с выбором" ? И что такое "запись с выбором"?! Запись с вариантом знаю, а запись с выбором - нет.
Мой вашу не понимать!

[Torres11]

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

а кто Вам сказал, что у Вас "запись с выбором" ? И что такое "запись с выбором"?! Запись с вариантом знаю, а запись с выбором - нет.
Мой вашу не понимать!

Да да ,запись с вариантом

[Serge_Bliznykov]

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

Да да ,запись с вариантом

Ну, да, запись с вариантами, такая есть.
И что?
У Вас тип auto - это обычная запись, без вариантов.

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

И в чём вопрос?