Информатика | 10 - 11 классы
Объединить два случайным образом созданных массива в один упорядочить новый массив по убыванию Pascal ABC по теме : сортировка массива.
Дан массив А(40)?
Дан массив А(40).
Упорядочить элементы массива по убыванию.
Погите написать программу желательно на паскаль Abc.
Массив из 15 элементов заполнить случайным образом в диапазоне [0?
Массив из 15 элементов заполнить случайным образом в диапазоне [0.
100].
Вывести на экран все элементы массива меньшие 33.
(Pascal).
НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ?
НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ!
Задан целочисленный массив из 10 случайных целых чисел.
Выполнить сортировку элементов массива, стоящих на четных номерах по убыванию методом пузырька.
Выполнить переворот или сортировку массива с помощью процедур(pascal abc)?
Выполнить переворот или сортировку массива с помощью процедур(pascal abc).
Упорядочите элементы массива А в порядке убывания В Pascal ABC?
Упорядочите элементы массива А в порядке убывания В Pascal ABC.
Написать программу на Pascal - В одномерном массиве целых чисел, содержащем 20 элементов, удалить k - ый элемент массива?
Написать программу на Pascal - В одномерном массиве целых чисел, содержащем 20 элементов, удалить k - ый элемент массива.
Массив заполняется случайным образом числами от 0 до 50.
Сортировать нечетные элементы произвольного массива по убыванию?
Сортировать нечетные элементы произвольного массива по убыванию.
Для сортировки можно использовать любой метод.
Для работы с массивом использовать процедуры.
Плиз помогите, не получается Pascal.
Решать на Pascal ABC Объединить два массива A и B в массив C?
Решать на Pascal ABC Объединить два массива A и B в массив C.
Используя обменную сортировку, отсортировать массив по убыванию Сделать в динамическом массиве чтобы все элементы вводились с клавиатуры PascalABC?
Используя обменную сортировку, отсортировать массив по убыванию Сделать в динамическом массиве чтобы все элементы вводились с клавиатуры PascalABC.
Используя обменную сортировку, отсортировать массив по убыванию в динамическом массиве в паскале?
Используя обменную сортировку, отсортировать массив по убыванию в динамическом массиве в паскале.
На этой странице сайта вы найдете ответы на вопрос Объединить два случайным образом созданных массива в один упорядочить новый массив по убыванию Pascal ABC по теме : сортировка массива?, относящийся к категории Информатика. Сложность вопроса соответствует базовым знаниям учеников 10 - 11 классов. Для получения дополнительной информации найдите другие вопросы, относящимися к данной тематике, с помощью поисковой системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям. Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы помогут найти нужную информацию.
1. Примерно так учат писать программы в школе.
Const nn = 100 ; / / предельное кол - во элементов в массиве
type mas = array[1.
Nn] of integer ;
procedure RandomArray(var a : mas ; n, p, q : integer) ; / / Заполняет первые n элементов массива a / / случайными числами из интервала [p ; q]
var i : integer ;
begin for i : = 1 to n do a[i] : = Random(q - p + 1) + p
end ;
procedure PrintArray(a : mas ; n : integer) ; / / Выводит на экран первые n элементов массива a
var i : integer ;
begin for i : = 1 to n do Write(a[i], ' ') ; Writeln
end ;
procedure SortByDescending(var a : mas ; n : integer) ; / / Сортирует по невозрастанию первые n элементов массива a.
/ / Элементарная обменная сортировка
var i, j, t : integer ;
begin for i : = 1 to n - 1 do for j : = 1 to n - 1 do if a[j]< ; a[j + 1] then begin t : = a[j] ; a[j] : = a[j + 1] ; a[j + 1] : = t end
end ; / / Основная программа
var i, n1, n2, n3, x, y : integer ; a, b, c : mas ;
begin Randomize ; Write('Кол - во элементов в массиве и границы интервала из значений : ') ; Read(n1, x, y) ; RandomArray(a, n1, x, y) ; Write('Кол - во элементов в массиве и границы интервала из значений : ') ; Read(n2, x, y) ; RandomArray(b, n2, x, y) ; Write('Первый массив : ') ; PrintArray(a, n1) ; Write('Второй массив : ') ; PrintArray(b, n2) ; Writeln('Объединенный массив, отсортированный по невозрастанию') ; n3 : = n1 + n2 ; for i : = 1 to n1 do c[i] : = a[i] ; for i : = 1 to n2 do c[i + n1] : = b[i] ; SortByDescending(c, n3) ; PrintArray(c, n3)
end.
Тестовое решение
Кол - во элементов в массиве и границы интервала из значений : 8 10 60
Кол - во элементов в массиве и границы интервала из значений : 6 30 90
Первый массив : 41 56 14 57 52 51 30 54
Второй массив : 76 36 44 39 68 38
Объединенный массив, отсортированный по невозрастанию
76 68 57 56 54 52 51 44 41 39 38 36 30 14
2.
На самом деле эту же задачу можно написать гораздо короче / / PascalABC.
NET 3.
1, сборка 1246 от 23.
05. 2016
begin var n1, n2, x, y : integer ; Write('Кол - во элементов в массиве и границы интервала из значений : ') ; Read(n1, x, y) ; var a : = ArrRandom(n1, x, y) ; Write('Кол - во элементов в массиве и границы интервала из значений : ') ; Read(n2, x, y) ; var b : = ArrRandom(n2, x, y) ; Write('Первый массив : ') ; a.
Println ; Write('Второй массив : ') ; b.
Println ; Writeln('Объединенный массив, отсортированный по невозрастанию') ; var c : = (a + b).
SortedDescending ; c.
Println
end.