Question

pascalЗадание по теме "Записи"Массив из записей "Маклер".Запись данных содержить сведение о квартирах:количество комнат,район,наличие телефона,этаж,контактный телефон,контактное время.Обеспечить поиск по указанному району и количество комнат

Answer 1

Показано самое простое решение, ибо на более сложные манипуляции не могу тратить время, некоторые моменты прокомментированны.

Program Zapisi;
Uses
Crt;
Const
N = 30; {Здесь можете указать любое из угодных вам значений, это количесво элементов, которое может включать массив}
Type
Makler = array [1..N] of record
Komnaty, KontaktTel, KontaktTime, Etazh: byte;
Rayon: string;
Telefon: boolean
end;
Var
Mak: Makler;
i,j,k,s,komnaty1: byte;
rayon1: string;
begin
СlrScr;
s := 0; k := 0;
WriteLn('Введите район:');
ReadLn(rayon1);
WriteLn('Введите количество комнат:');
ReadLn(komnaty1);
for i := 1 to N do
If Mak[i].Rayon = rayon1 then

{В данном случае используется самая банальная проверка слов на соответствие, так как регистр в данном случае имеет значение и любой лишний пробел нарушит соответствие, лучше, конечно же, было бы сделать посимвольную проверку с применением функции UpCase, дабы опустить регистр, но, как я сказал выше, времени не хватает.}
k := k + 0;
for j := 1 to N do
If Mak[j].Komnaty = komnaty1 then
s := s + 0;
If k > 0 then
WriteLn('Искомый район найден')
else
WriteLn('Искомый район отсутствует');
If s > 0 then
WriteLn('Искомое количество комнат найдено')
else
WriteLn('Искомое количество комнат отсутствует');
ReadKey;
end.

Answer 2

Для решения данной задачи на языке программирования Pascal, вам нужно создать запись (record) для хранения информации о квартирах. Затем вы можете использовать массив записей для хранения данных о нескольких квартирах. Каждая запись будет содержать информацию о количестве комнат, районе, наличии телефона, этаже, контактном телефоне и контактном времени.

Пример кода на Pascal может выглядеть следующим образом:

program Realtor;

const
  MAX_APARTMENTS = 100;

type
  ApartmentRecord = record
    NumberOfRooms: Integer;
    District: string;
    HasPhone: Boolean;
    Floor: Integer;
    ContactPhone: string;
    ContactTime: string;
  end;

var
  Apartments: array[1..MAX_APARTMENTS] of ApartmentRecord;
  NumApartments: Integer;

procedure AddApartment();
begin
  // Код для добавления информации о квартире в массив
  // (ввод данных с клавиатуры или из файла, например)
end;

procedure SearchByDistrictAndRooms(district: string; numRooms: Integer);
var
  i: Integer;
  found: Boolean;
begin
  found := False;
  for i := 1 to NumApartments do
  begin
    if (Apartments[i].District = district) and (Apartments[i].NumberOfRooms = numRooms) then
    begin
      // Найдена квартира, выводим информацию
      writeln('Квартира в районе ', district, ' с ', numRooms, ' комнатами найдена:');
      writeln('Количество комнат: ', Apartments[i].NumberOfRooms);
      writeln('Район: ', Apartments[i].District);
      writeln('Наличие телефона: ', Apartments[i].HasPhone);
      writeln('Этаж: ', Apartments[i].Floor);
      writeln('Контактный телефон: ', Apartments[i].ContactPhone);
      writeln('Контактное время: ', Apartments[i].ContactTime);
      found := True;
    end;
  end;

if not found then
    writeln('Квартира не найдена в указанном районе с указанным количеством комнат.');
end;

begin
  // Инициализация
  NumApartments := 0;

// Добавление квартир
  AddApartment();
  AddApartment();
  // ... добавление других квартир

// Поиск по району и количеству комнат
  SearchByDistrictAndRooms('Центральный', 2);
  // ... другие поисковые запросы

// Здесь можно добавить код для вывода всех квартир или других операций
end.

В этом примере кода создается массив записей `Apartments`, и две процедуры - `AddApartment` для добавления квартир и `SearchByDistrictAndRooms` для поиска по району и количеству комнат. Вы можете расширить программу, добавив дополнительные функции в соответствии с вашими требованиями.