pascal
Задание по теме "Записи"
Массив из записей "Маклер".Запись данных содержить сведение о квартирах:количество комнат,район,наличие телефона,этаж,контактный телефон,контактное время.Обеспечить поиск по указанному району и количество комнат
Предмет:
ИнформатикаАвтор:
junekruegerПоказано самое простое решение, ибо на более сложные манипуляции не могу тратить время, некоторые моменты прокомментированны.
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.
Автор:
jacoboaustinДобавить свой ответ
сделать фонетический разбор слова бесконечной
Предмет:
Русский языкАвтор:
guy38Ответов:
Смотреть
почему атомные массы химических элементов имеют дробное значение?
Предмет:
ФизикаАвтор:
scarlettrileyОтветов:
Смотреть
В треугольнике ABC AB не равно AC, угол С=35 градусов, угол В=59 градусов.Высота AO продолжена за точку O на отрезок OH, равный AO. Медиана AE продолжена за точку E на отрезок ME, равный AE. Найдите угол MCH
Предмет:
ГеометрияАвтор:
sandrahammondОтветов:
Смотреть
почему атомные массы химических элементов имеют дробное значение&
Предмет:
ФизикаАвтор:
lobster8u28Ответов:
Смотреть