Напишите программу в паскале ?

Akiin12 6 июн. 2020 г., 21:50:27

Решение быстрой сортировкой , вводим длину начальных массивов и 2 массива.

Получаем ответ.

Bjrovcova141051 6 июн. 2020 г., 21:50:31

1. Классическая "школьная" реализация на Паскале / / PascalABC.

NET 3.

0, сборка 1076

const nn = 50 ; { максимальная длина массивов 1, 2 }

var a, b : array[1.

Nn] of integer ; c : array[1.

2 * nn] of integer ; n1, n2, n3, i, j, t, k : integer ;

begin Randomize ; Write('Размер первого массива (1 - 50) : ') ; Read(n1) ; Write('Размер второго массива (1 - 50) : ') ; Read(n2) ; { Шаг 1.

Инициализация первого массива случайными числами } Writeln(' * * * Первый массив * * * ') ; for i : = 1 to n1 do begin a[i] : = Random(51) - 25 ; Write(a[i], ' ') end ; Writeln ; { Шаг 2.

Инициализация второго массива случайными числами } Writeln(' * * * Второй массив * * * ') ; for i : = 1 to n2 do begin b[i] : = Random(51) - 25 ; Write(b[i], ' ') end ; Writeln ; { Шаг 3.

Сортировка первого массива } for i : = 1 to n1 - 1 do for j : = 1 to n1 - 1 do if a[j]> ; a[j + 1] then begin t : = a[j] ; a[j] : = a[j + 1] ; a[j + 1] : = t end ; { Шаг 4.

Сортировка второго массива } for i : = 1 to n2 - 1 do for j : = 1 to n2 - 1 do if b[j]> ; b[j + 1] then begin t : = b[j] ; b[j] : = b[j + 1] ; b[j + 1] : = t end ; { Шаг 5.

Слияние } n3 : = n1 + n2 ; i : = 1 ; j : = 1 ; k : = 1 ; while (i< ; = n1) and (j< ; = n2) do begin if a[i]< ; = b[j] then begin c[k] : = a[i] ; Inc(i) end else begin c[k] : = b[j] ; Inc(j) end ; Inc(k) ; end ; if i> ; n1 then for j : = j to n2 do begin c[k] : = b[j] ; Inc(k) end else if j> ; n2 then for i : = i to n1 do begin c[k] : = a[i] ; Inc(k) end ; { Шаг 6.

Вывод результата } Writeln(' * * * Третий массив * * * ') ; for i : = 1 to n3 do Write(c[i], ' ') ; Writeln

end.

Тестовое решение :

Размер первого массива (1 - 50) : 10

Размер второго массива (1 - 50) : 7 * * * Первый массив * * *

11 - 9 20 - 8 - 1 13 25 23 5 24 * * * Второй массив * * *

20 - 4 - 14 - 19 19 - 23 10 * * * Третий массив * * * - 23 - 19 - 14 - 9 - 8 - 4 - 1 5 10 11 13 19 20 20 23 24 25

2.

Реализация современными средствами программирования / / PascalABC.

NET 3.

0, сборка 1076

begin var n1 : = ReadInteger('Размер первого массива (1 - 50) : ') ; var n2 : = ReadInteger('Размер второго массива (1 - 50) : ') ; var a : = ArrRandom(n1, - 25, 25) ; Writeln(' * * * Первый массив * * * ') ; a.

Println ; var b : = ArrRandom(n2, - 25, 25) ; Writeln(' * * * Второй массив * * * ') ; b.

Println ; var c : = (a + b).

Sorted ; Writeln(' * * * Третий массив * * * ') ; c.

Println

end.

Тестовое решение :

Размер первого массива (1 - 50) : 10

Размер второго массива (1 - 50) : 7 * * * Первый массив * * *

1 22 - 22 - 16 - 1 - 10 24 - 22 - 18 - 8 * * * Второй массив * * *

15 23 - 12 12 17 - 8 13 * * * Третий массив * * * - 22 - 22 - 18 - 16 - 12 - 10 - 8 - 8 - 1 1 12 13 15 17 22 23 24.

Раид 26 мар. 2020 г., 18:49:42 | 10 - 11 классы

Напишите программу, которая вводит четырехзначное число и вырезает из него вторую цифру(на языке паскаль)?

Напишите программу, которая вводит четырехзначное число и вырезает из него вторую цифру(на языке паскаль).

Лизок123456 3 авг. 2020 г., 18:53:34 | 5 - 9 классы

Дан массив из 10 целых чисел от - 20 до 20 и целое число (вводится с клавиатуры)?

Дан массив из 10 целых чисел от - 20 до 20 и целое число (вводится с клавиатуры).

Напишите программу, определяющую, сколько в массиве чисел.

Madam1violi 19 дек. 2020 г., 02:16:46 | 5 - 9 классы

В Паскале написать программу?

В Паскале написать программу.

Вводите число и по ней таблица умножения выводится.

Tu110380 2 апр. 2020 г., 21:14:42 | 10 - 11 классы

50 Баллов?

50 Баллов.

Пожалуйста.

В Паскаль.

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

Tarker 4 июл. 2020 г., 12:07:35 | 5 - 9 классы

Напишите программу , которая вводит элементы цельночисленного массива размерностью 10 с клавиатуры и выводит номер этого элемента , равного 15?

Напишите программу , которая вводит элементы цельночисленного массива размерностью 10 с клавиатуры и выводит номер этого элемента , равного 15.

На паскале.

Lidiya85 25 сент. 2020 г., 04:08:36 | 5 - 9 классы

Составьте программу для ввода с клавиатуры в массив 10 целых чисел и вывода первых 5 - и чисел в обратном порядке в первую строку, во вторую строку – последние четыре числа в обычном порядке, а в трет?

Составьте программу для ввода с клавиатуры в массив 10 целых чисел и вывода первых 5 - и чисел в обратном порядке в первую строку, во вторую строку – последние четыре числа в обычном порядке, а в третьей строке – первый и девятый элементы массива (.

Mazinvanya 11 сент. 2020 г., 18:31:31 | 10 - 11 классы

ПАСКАЛЬ?

ПАСКАЛЬ!

ПОМОГИТЕ!

Ввод и вывод одномерных массивов, кусок программы, блок - схема.

Алина886980 6 дек. 2020 г., 14:00:50 | 10 - 11 классы

Нужна помощь ребят, в паскале нужно написать программу которая вводит 5 фамилий ( с клавиатуры) и выводит их в порядке возрастания?

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

Nirah35 9 нояб. 2020 г., 00:10:09 | 5 - 9 классы

Напишите пожалуйста программы на языке Паскаль?

Напишите пожалуйста программы на языке Паскаль!

Очень нужно!

Первая программа : ввод и вывод рандомного числа))) вторая программа : надо вывести самое наименьшее число(на основе первой)) пожалуйста!

Lera8939 6 нояб. 2020 г., 06:48:04 | 5 - 9 классы

Написать программу, которая вводит массив из N целых чисел и выводит на экран этот же массив в прямом и обратном порядке?

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

Протестировать :

программу на поизвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.