Напишите программу в паскале используя циклы. Даны три одномерных массива из целых чисел. Найти элементы, принадлежащие всем трем массивам.

const N = 7;

const MAX = 10;

var a,b,c: array [1..N] of integer;

var d: array [1..N] of boolean;

var i,j,k,flag: integer;

begin

// Автозаполнение

randomize();

for i:=1 to N do  

 begin

 a[i]:=random(MAX+1);

 b[i]:=random(MAX+1);

 c[i]:=random(MAX+1);

 d[i]:=false;

 end;

 

// Вывод на экран

write('Массив a: ');

for i:=1 to N do write(a[i],' ');

write(сhr(10),'Массив b: ');

for i:=1 to N do write(b[i],' ');

write(сhr(10),'Массив c: ');

for i:=1 to N do write(c[i],' ');

// Поиск элементов, принадлежащих всем 3м массивам

write(сhr(10),'Элементы, принадлежащие всем трем массивам: ');

for i:=1 to N do

 begin

 flag:=0;

   // Следующий цикл проверяет, есть ли элемент a[i]

   // в массиве b.

   for j:=1 to N do

     begin

       if (a[i]=b[j]) then  

         begin  

         flag:=flag+1;

         break;

         end;

     end;

   // Следующий цикл проверяет, есть ли элемент a[i]

   // в массиве c.

   for j:=1 to N do

     begin

       if (a[i]=c[j]) then  

         begin  

         flag:=flag+1;

         break;

         end;

     end;

   // Если элемент найдет во всех трех массивах, в массиве d

   // указывается, что данный элемент уже найден

   if (flag=2) then d[i]:=true;

   

   // В следующем цикле проверяется, был ли уже в массиве a  

   // элемент a[i]. Если был, и если он есть во всех трех массивах

   // (условие d[k]), то флаг обнуляется и элемент не выводится  

   if (i>0) and (flag=2) then  

     for k:=i-1 downto 1 do

       if (a[k]=a[i]) and (d[k]) then flag:=0;

   if (flag=2) then write(a[i],' ');

   end;

end.

Каждая таблица в Access состоит из полей. В свойствах поля описываются характеристики и поведение добавляемых в него данных. Тип данных поля — это самое важное свойство, которое определяет, какие данные могут храниться в поле. В этой статье описаны типы данных и другие свойства поля, доступные в Access, а также приведена дополнительная информация в разделе справочных сведений о типах данных.

В этой статье

Overview

Когда какой тип данных использовать?

Свойство "Размер поля"

Типы данных в связях и соединениях

Справочные сведения о типах данных

Общие сведения

Иногда типы данных могут показаться неочевидными, например в поле с типом данных "Текст" могут храниться данные, состоящие из текста и чисел. Но в поле с типом данных "Число" могут храниться только числовые данные. Поэтому вам нужно знать, какие свойства используются для каждого типа данных.

Тип данных поля определяет много других важных характеристик поля, в частности:

форматы, которые можно использовать в поле;

максимальный размер значения в поле;

использования поля в выражениях;

возможность индексирования поля.

В зависимости от создания нового поля тип данных поля может быть задан заранее или его можно выбрать. Например, если при создании поля в режиме таблицы вы:

используете существующее поле из другой таблицы, типы данных уже определены в ней или в шаблоне;

вводите данные в пустом столбце (или поле), Access назначает полю тип данных, исходя из вводимых значений, или вы можете назначить тип данных и формат для поля;

на вкладке Изменение полей в группе Поля и столбцы выбираете команду Добавить поля, Access отображает список типов данных для выбора.

К началу страницы

Когда какой тип данных использовать?

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

Совет: Иногда все выглядит так, как будто данные в поле имеют один тип, а на самом деле это данные другого типа. Например, поле вроде бы содержит числовые значения, но на самом деле это текстовые значения, представляющие номера комнат. Часто для сравнения или преобразования значений с разными типами данных используются выражения.

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

Основные типы

Формат

Отображаемые данные

Текстовый

Короткие буквенно-цифровые значения, например фамилия или почтовый адрес. Помните, что начиная с версии Access 2013, текстовый тип данных переименован в Краткий текст.

Числовой, Большое число

Числовые значения, например расстояния. Помните, что для денежных значений есть отдельный тип данных.

Денежный

Денежные значения.

Логический

Значения "Да" и "Нет", а также поля, содержащие только одно из двух значений.

Date/Time, Date/Time Extended

Дата/время: значения даты и времени для лет от 100 до 9999.

Дата/время с расширением: значения даты и времени для лет с 1 по 9999.

Форматированный текст

Текст или сочетание текста и чисел, которые отформатированы с элементов управления цветом и шрифтом.

Вычисляемое поле

Результаты вычисления. Вычисление может ссылаться на другие поля в той же таблице. Вычисления создаются с построителя выражений. Вычисляемые поля впервые появились в Access 2010.

Вложение

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

Гиперссылка

Текст или сочетание текста и чисел, сохраненное как текст и используемое в качестве адреса гиперссылки.

Поле МЕМО

Длинные блоки текста. Типичный пример использования поля MEMO — подробное описание продукта. Помните, что начиная с версии Access 2013, тип данных MEMO переименован в "Длинный текст".

Подстановка

Список значений, которые получены из таблицы или запроса, или набор значений, которые вы указали при создании поля. Запускается мастер подстановок, с которого можно создать поле подстановки. В зависимости от выбора, сделанного в мастере, данные в поле подстановки могут иметь текстовый или числовой тип.

У полей подстановки есть дополнительный набор свойств, которые находятся на вкладке Подстановка в области Свойства поля.

Примечание: В файлах формата MDB недоступны вложения и вычисляемые данные.

Числовой

Формат

Отображаемые данные

Общие

Числа без дополнительного форматирования (точно в том виде, в котором хранятся).

Денежный

Обычные денежные значения.

Евро

Обычные денежные значения в формате ЕС.

Фиксированный

Числовые данные.

Стандартный

Числовые данные с десятичными знаками.

Процент

Значения в процентах.

Экспоненциальный

Вычисления

Объяснение:

хз но может быть это правельно

zyxw

Объяснение:

Для начала придётся восстановить всю таблицу истинности этой функции (см таблицу 1)

В ней ИСТИНА соответствует логической единице, ЛОЖЬ - логическому нулю. Правее столбца с результатами - промежуточные вычисления.

В итоге видим, что всего три строчки в полученной таблице имеют логический ноль в результате, как и в условии задачи.

Остаётся среди этих трёх строк найти те, что в условии задачи.

В предпоследней строке условия всего одна логическая единица, это строка соответствует отмеченной зеленой в результирующей таблице, и там где логическая единица - столбец x.

В последней строке условия тоже x - равен 1, а это соответствует строке, отмеченной оранжевым, и по истинному значению получаем столбец y. Остаётся последнее соответствие из которой получаем столбцы z и методом исключения w.