Pascal abc имеется массив данных о k работающих в фирме: фамилия, имя, отчество, адрес(улица, дом, квартира) и дата поступления на работу(месяц, год). во второй массив записать только тех из них, кто проживает по определённой улице. название этой улицы ввести с клавиатуры.

268

446

Посмотреть ответы 2

Ответы на вопрос:

Dashaqqq123

Информатика

4,7(89 оценок)

//большую часть времени убил на тесты //pascal abc.net v3.1 сборка 1172 type ty=record sub,name,ot,ul,kv,ho: string; mo,ye: integer; end; var ar1,ar2: array of ty; k,i,n: integer; s: string; begin readln(k); setlength(ar1,k); n: =0; for i: =0 to k-1 do begin write('введите фамилию рабочего №',i+1,': '); readln(ar1[i].sub); write('введите имя рабочего: №',i+1,': '); readln(ar1[i].name); write('введите отчество рабочего: №',i+1,': '); readln(ar1[i].ot); write('введите улицу проживания рабочего: №',i+1,': '); readln(ar1[i].ul); write('введите дом проживания рабочего: №',i+1,': '); readln(ar1[i].ho); write('введите квартиру проживания рабочего: №',i+1,': '); readln(ar1[i].kv); write('введите месяц поступления на работу рабочего: №',i+1,': '); readln(ar1[i].mo); write('введите год поступления на работу рабочего: №',i+1,': '); readln(ar1[i].ye); end; write('введите искомую улицу: '); readln(s); writeln('результаты: '); for i: =0 to k-1 do begin if ar1[i].ul=s then begin inc(n); setlength(ar2,n); ar2[n-1]: =ar1[i]; writeln('рабочий #',i+1,',', ar2[n-1].sub,' ',ar2[n-1].name,' ',ar2[n-1].ot); writeln('адрес: ',ar2[n-1].ul,' ',ar2[n-1].ho,',',ar2[n-1].kv); writeln('дата поступления на работу: ',ar2[n-1].mo,',',ar2[n-1].ye); end; end; end. пример ввода: 3 введите фамилию рабочего №1: хацуне введите имя рабочего: №1: мику введите отчество рабочего: №1: ивановна введите улицу проживания рабочего: №1: омотесандо введите дом проживания рабочего: №1: 23 введите квартиру проживания рабочего: №1: 34 введите месяц поступления на работу рабочего: №1: 1 введите год поступления на работу рабочего: №1: 1998 введите фамилию рабочего №2: двачевская введите имя рабочего: №2: алиса введите отчество рабочего: №2: петровна введите улицу проживания рабочего: №2: пушкина введите дом проживания рабочего: №2: 223 введите квартиру проживания рабочего: №2: 34 введите месяц поступления на работу рабочего: №2: 2 введите год поступления на работу рабочего: №2: 1997 введите фамилию рабочего №3: персунов введите имя рабочего: №3: семён введите отчество рабочего: №3: олегович введите улицу проживания рабочего: №3: омотесандо введите дом проживания рабочего: №3: 23 введите квартиру проживания рабочего: №3: 34 введите месяц поступления на работу рабочего: №3: 6 введите год поступления на работу рабочего: №3: 2000 введите искомую улицу: омотесандо пример вывода: результаты: рабочий #1,хацуне мику ивановна адрес: омотесандо 23,34 дата поступления на работу: 1,1998 рабочий #3,персунов семён олегович адрес: омотесандо 23,34 дата поступления на работу: 6,2000

dimaprokopovewp06mw2

Информатика

4,6(99 оценок)

100111011

Объяснение:

6 единиц

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.