Pascal abc имеется массив данных о k работающих в фирме: фамилия, имя, отчество, адрес(улица, дом, квартира) и дата поступления на работу(месяц, год). во второй массив записать только тех из них, кто проживает по определённой улице. название этой улицы ввести с клавиатуры.
183
221
Ответы на вопрос:
//большую часть времени убил на тесты //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
25 (10cc) =2^4+2^3+2^0 =11001 (2cc) 19 (10cc)=2^4+2^1+2^0=10011 (2cc) используя формулу а→в =¬а+в приводим данную формулу в условии к виду: (x& 25=0)+(x& 19≠0) + (х& a≠0)=1 рассмотрим случай, когда (х& 25 =0) +(x& 19≠0) =0 и (х& a≠0)=1 так как 25 = 11001, то (x& 25=0) = 0 (т.е. конъюнкция будет "ложь") при х={1; 1000; 1001; 10000; 10001; 11000; 11001} так как 19=10011, то (х& 19≠0) = 0 при x={100; 1000; 1100} общее значение : х=1000 (2сс) = 8 (10сс) ответ 8
Популярно: Информатика
-
Elena990909.06.2020 11:47
-
NastyaTeplova12.03.2022 00:10
-
polinkamalinka2814.03.2023 07:56
-
vadimrusackeviVadim28.01.2020 22:59
-
janamelnik1006.11.2022 00:12
-
rsharapov25.10.2020 20:18
-
karinaandreevozb5ha16.06.2021 07:40
-
137rdh06.05.2022 00:02
-
Vladrus2006XD08.03.2023 19:08
-
smarika8325.08.2022 14:49