- Вывести элементы первого массива, которых нет во втором массиве
- Вывести индексы нескольких элементов массива
- Вывести отсутствующие элементы массива
- Pascal: Занятие № 5. Одномерные массивы в Паскале
- Одномерные массивы в Паскале
- Объявление массива
- Инициализация массива
- Вывод элементов массива
- Функция Random в Pascal
- Числа Фибоначчи в Паскале
- Максимальный (минимальный) элемент массива
- Поиск в массиве
- Циклический сдвиг
- Перестановка элементов в массиве
- Выбор элементов и сохранение в другой массив
- Сортировка элементов массива
- admin
- Bronislav
- Владимир
- Aurangzeb
Вывести элементы первого массива, которых нет во втором массиве
Даны два массива чисел. Требуется вывести элементы первого массива (в том порядке, в каком они идут в первом массиве), которых нет во втором массиве.
Записано сначала число N — количество элементов в первом массиве, затем N чисел — элементы массива. Затем записано число M – количество элементов во втором массиве. Затем записаны элементы второго массива. Количество элементов каждого массива не превышает 100. Сами элементы -числа из диапазона int.
Выведите те элементы первого массива, которых нет во втором в том порядке, в каком они идут в первом массиве.
Пример
Вход
7
3 1 3 4 2 4 12
6
4 15 43 1 15 1
Выход
3 3 2 12
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Вывести в выходной файл те элементы первого массива, которых нет во втором массиве
даны дВа массиВа чисел. требуется ВыВести В Выходной файл те элементы перВого массиВа (В том.
Вывести в выходной файл те элементы первого массива, которых нет во втором
Даны два массива чисел. Требуется вывести в выходной файл те элементы первого массива, которых нет.
Сформировать новый массив, включив в него те элементы первого массива, которых нет во втором
Даны два массива чисел. Расположить их элементы по возрастанию. Сформировать новый массив, включив.
Источник
Вывести индексы нескольких элементов массива
В массиве найти максимальный по значению элемент, вывести его индекс, если таких элементов несколько, то вывести индексы всех элементов.
У меня есть код программы, которая выводит индекс только одного максимального элемента массива, как её дополнить, чтобы она выводила индексы двух и более максимальных элементов? Вот код программы:
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Вывести на экран элементы и индексы элементов, которые меньше среднего значения всех элементов массива
Написать программу, в которой: 1. Задать массив целых чисел длиной согласно варианту. .
Как вывести из функции индексы элементов массива
Здравствуйте, господа хорошие. Подскажите, пожалуйста, как можно организовать вывод из функции.
Дан массив А. Образовать реверс массива А в массиве В. Вывести оба массива и индексы элементов на экран в виде трех столбцов.
Дан массив А. Образовать реверс массива А в массиве В. Вывести оба массива и индексы элементов на.
Найти одинаковые элементы массива и вывести на экран индексы этих элементов
Доброй ночи, Подскажите пожалуйста с последним заданием, у меня есть 2 массива, нужно там найти.
Источник
Вывести отсутствующие элементы массива
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Найти элементы массива отсутствующие в другом массиве
Необходимо создать третий массив в котором нужно собрать элементы массива А, которые не включаются.
Переписать в третий массив элементы первого массива, отсутствующие во втором
Нужно переписать в третий массив, элементы первого массива, которых нет во втором, и без.
Вывести все цифры отсутствующие в числе
есть число, например, 93456 необходимо вывести 1 2 7 8 то есть все числа, которые в числе не.
По логике, код должен работать. Но компилятор показывает что то не то. Что я делаю не так?
Большое спасибо за помощь , а можно как-то без объявления массива с 10 элементами?
Добавлено через 37 минут
Алгоритм не совсем корректно работает, а если изменить элементы массива first, то программа сразу неправильно работает..надо что-то универсальное(
morgan30, вот грубоватый, но рабочий пример.
хм, ну перед тем как что то отправить я проверяю программу в действии, — изменял элементы, все нормально. А как вы изменяли? покажите код, ошибки
Добавлено через 37 секунд
хм, ну перед тем как что то отправить я проверяю программу в действии, — изменял элементы, все нормально. А как вы изменяли? покажите код, ошибки
Добавлено через 37 секунд
Нет, это тоже не универсально. проблема в том, что я начинающий, до функций я еще не дорос..поэтому мне сложновато пока разбираться с этим. Препад на паре говорил, что лучше всего задействовать булевскую переменную (типа флаг), которая меняет свое значение в зависимости от присутствия заданного числа в массиве. естественно как именно ее использовать не сказала. Вот я и сижу второй день пытаюсь написать(уже чисто спортивный интерес) с применением булевской переменной
Добавлено через 6 минут
Приношу свои извинения, работает, я ввел дважды одинаковые переменные поэтому вывело неправильно.
Источник
Pascal: Занятие № 5. Одномерные массивы в Паскале
Одномерные массивы в Паскале
Объявление массива
Массивы в Паскале используются двух типов: одномерные и двумерные.
Определение одномерного массива в Паскале звучит так: одномерный массив — это определенное количество элементов, относящихся к одному и тому же типу данных, которые имеют одно имя, и каждый элемент имеет свой индекс — порядковый номер.
Описание массива в Паскале (объявление) и обращение к его элементам происходит следующим образом:
var dlina: array [1..3] of integer; begin dlina[1]:=500; dlina[2]:=400; dlina[3]:=150; .
Объявить размер можно через константу:
Инициализация массива
Кроме того, массив может быть сам константным, т.е. все его элементы в программе заранее определены. Описание такого массива выглядит следующим образом:
const a:array[1..4] of integer = (1, 3, 2, 5);
Заполнение последовательными числами: 
var a: array of integer; var n:=readInteger; a:=new integer[n];
var a: array of integer; var n:=readInteger; SetLength(a,n); // устанавливаем размер
begin var a: array of integer; a := new integer[3]; a[0] := 5; a[1] := 2; a[2] := 3; end.
или в одну строку:
begin var a: array of integer; a := new integer[3](5,2,3); print(a) end.
Ввод с клавиатуры:
writeln (‘введите кол-во элементов: ‘); readln(n); <если кол-во заранее не известно, - запрашиваем его>for i := 1 to n do begin write(‘a[‘, i, ‘]=’); read(a[i]); . end; .
✍ Пример результата:
var a:=ReadArrInteger(5); // целые var a:=ReadArrReal(5); // вещественные
Вывод элементов массива
var a: array[1..5] of integer; <массив из пяти элементов>i: integer; begin a[1]:=2; a[2]:=4; a[3]:=8; a[4]:=6; a[5]:=3; writeln(‘Массив A:’); for i := 1 to 5 do write(a[i]:2); <вывод элементов массива>end.
Для работы с массивами чаще всего используется в Паскале цикл for с параметром, так как обычно известно, сколько элементов в массиве, и можно использовать счетчик цикла в качестве индексов элементов.
[Название файла: taskArray0.pas ]
В данном примере работы с одномерным массивом есть явное неудобство: присваивание значений элементам.
for var i:=0 to a.Length-1 do a[i] += 1;
Проход по элементам (только для чтения):
Пример:
foreach var x in a do Print(x)
Функция Random в Pascal
Для того чтобы постоянно не запрашивать значения элементов массива используется генератор случайных чисел в Паскаль, который реализуется функцией Random . На самом деле генерируются псевдослучайные числа, но суть не в этом.
Диапазон в Паскале тех самых случайных чисел от a до b задается формулой:
var f: array[1..10] of integer; i:integer; begin randomize; for i:=1 to 10 do begin f[i]:=random(10); < интервал [0,9] >write(f[i],’ ‘); end; end.
Для вещественных чисел в интервале [0,1]:
var x: real; . x := random(0.0,1.0);;
или с дополнительными параметрами (диапазон [5;15]):
[Название файла: taskArray1.pas ]
Числа Фибоначчи в Паскале
Наиболее распространенным примером работы с массивом является вывод ряда чисел Фибоначчи в Паскаль. Рассмотрим его.
Получили формулу элементов ряда.
var i:integer; f:array[0..19]of integer; begin f[0]:=1; f[1]:=1; for i:=2 to 19 do begin f[i]:=f[i-1]+f[i-2]; writeln(f[i]) end; end.
На данном примере, становится понятен принцип работы с числовыми рядами. Обычно, для вывода числового ряда находится формула определения каждого элемента данного ряда. Так, в случае с числами Фибоначчи, эта формула-правило выглядит как f[i]:=f[i-1]+f[i-2] . Поэтому ее необходимо использовать в цикле for при формировании элементов массива.
[Название файла: taskArray2.pas ]
Максимальный (минимальный) элемент массива
Псевдокод: 
Поиск максимального элемента по его индексу: 
// … var (min, minind) := (a[0], 0); for var i:=1 to a.Length-1 do if a[i]
[Название файла: taskArray_min.pas ]
[Название файла: taskArray4.pas ]
[Название файла: taskArray5.pas ]
[Название файла: taskArray6.pas ]
Пример:
[Название файла: taskArray7.pas ]
Поиск в массиве
Рассмотрим сложный пример работы с одномерными массивами:
Для решения поставленной задачи понадобится оператор break — выход из цикла.
Решение Вариант 1. Цикл for:
var f: array[1..10] of integer; flag:boolean; i,c:integer; begin randomize; for i:=1 to 10 do begin f[i]:=random(10); write(f[i],’ ‘); end; flag:=false; writeln(‘введите образец’); readln(c); for i:=1 to 10 do if f[i]=c then begin writeln(‘найден’); flag:=true; break; end; if flag=false then writeln(‘не найден’); end.
begin var a := new integer[10]; a := arrRandomInteger(5,0,5); //[1,3,5,4,5] print(a.IndexOf(3)) // 1 end.
или метод a.Contains(x) наравне с x in a :
begin var a := new integer[10]; a := arrRandomInteger(5,0,5); //[1,3,5,4,5] print(a.Contains(3)); // True print(3 in a)// True end.
Рассмотрим эффективное решение:
Задача: найти в массиве элемент, равный X , или установить, что его нет.
Алгоритм:
- начать с 1-го элемента ( i:=1 );
- если очередной элемент ( A[i] ) равен X , то закончить поиск иначе перейти к следующему элементу.
решение на Паскале Вариант 2. Цикл While:
Поиск элемента в массиве
Предлагаем посмотреть подробный видео разбор поиска элемента в массиве (эффективный алгоритм):
Пример:
[Название файла: taskArray8.pas ]
Циклический сдвиг
Решение:
Программа: 
// … var v := a[0]; for var i:=0 to a.Length-2 do a[i] := a[i+1]; a[a.Length-1] := v;
// … var v := a[a.Length-1]; for var i:=a.Length-1 downto 1 do a[i] := a[i-1]; a[0] := v;
[Название файла: taskArray9.pas ]
Перестановка элементов в массиве
Рассмотрим, как происходит перестановка или реверс массива.
Решение:
Псевдокод: 
Программа: 
begin var a: array of integer := (1,3,5,7); var n := a.Length; for var i:=0 to n div 2 — 1 do Swap(a[i],a[n-i-1]); End.
Решение 2 (стандартная процедура Reverse() ):
begin var a:=new integer[10]; a:=arrRandomInteger(10); print(a);// [41,81,84,63,12,26,88,25,36,72] Reverse(a); print(a) //[72,36,25,88,26,12,63,84,81,41] end.
[Название файла: taskArray10.pas ]
Выбор элементов и сохранение в другой массив
Решение:
Вывод массива B:
writeln(‘Выбранные элементы’); for i:=1 to count-1 do write(B[i], ‘ ‘)
// . for var i := 0 to a.length — 1 do if a[i]
[Название файла: taskArray11.pas ]
Сортировка элементов массива
- В таком типе сортировок массив представляется в виде воды, маленькие элементы — пузырьки в воде, которые всплывают наверх (самые легкие).
- При первой итерации цикла элементы массива попарно сравниваются между собой:предпоследний с последним, пред предпоследний с предпоследним и т.д. Если предшествующий элемент оказывается больше последующего, то производится их обмен.
- При второй итерации цикла нет надобности сравнивать последний элемент с предпоследним. Последний элемент уже стоит на своем месте, он самый большой. Значит, число сравнений будет на одно меньше. То же самое касается каждой последующей итерации.
| Pascal | PascalABC.NET |
| Pascal | PascalABC.NET |
