• pascal

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

Ответы 1

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

    Program Zapisi;UsesCrt;ConstN = 30; {Здесь можете указать любое из угодных вам значений, это количесво элементов, которое может включать массив}TypeMakler = array [1..N] of recordKomnaty, KontaktTel, KontaktTime, Etazh: byte;Rayon: string;Telefon: booleanend;VarMak: 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 doIf Mak[i].Rayon = rayon1 then

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

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years