Перевернуть одномерный массив
помогите с программой
Дан массив из целых чисел. Напишите программу, которая вводит элементы массива с клавиатуры, печатает весь введенный массив, затем переставляет все элементы массива в обратном к исходному порядке и печатает полученный массив.
Лучшие ответы ( 1 )
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:
Дан двумерный массив, из него сделать одномерный. В одномерный массив сначала вписат четные строки потом нечетные
Здравствуйте,собственно задача в заголовке темы. никак не получается все это дело слит в одномерный.
Дан массив целых чисел. Перевернуть массив
дан массив целых чисел. перевернуть массив.
Перевернуть массив
Дан массив целых чисел упорядоченный по возрастанию.Сделать из него массив упорядоченный по.
Перевернуть массив
как из массива: 1,2,3,4,5; сделать: 5,4,3,2,1
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
Сообщение было отмечено dansy как решение
Решение
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
uses CRT; var a:array[1..10] of integer; i,n:integer; begin clrscr; writeln('введите размерность массива'); readln(n); writeln('введите элементы массива'); for i:=1 to n do begin readln(a[i]); end; writeln('исходный массив'); for i:=1 to n do begin write(a[i],' '); end; readln; writeln('перевернутый массив'); for i:=n downto 1 do write(a[i],' '); readln; end.
Платежеспособный зверь
8856 / 4286 / 1627
Регистрация: 28.10.2009
Сообщений: 11,434
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
var a:array[1..100]of integer; n,i,t:integer; begin writeln('vvedite kol-vo elementov'); readln(n); writeln('vvedite elementy'); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; writeln('ishodnyj massiv'); for i:=1 to n do write(a[i],' '); writeln; for i:=1 to n div 2 do begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t; end; writeln('novyj massiv'); for i:=1 to n do write(a[i],' '); readln; end.
Pascal-Паскаль
Исходники одномерных массивов Pascal-Паскаль. Переставить в обратном порядке элементы массива, расположенные между максимальным и минимальным элементами.
- Скачено бесплатно: 26859
- Куплено: 414
- Pascal-Паскаль->Исходники одномерных массивов Pascal-Паскаль
Исходники одномерных массивов Pascal-Паскаль. Переставить в обратном порядке элементы массива, расположенные между максимальным и минимальным элементами.
Текст задачи:
Дан одномерный массив. Переставить в обратном порядке элементы массива, расположенные между максимальным и минимальным элементами.
Входные данные
N — целого типа (количество элементов в массиве).
элементы массива.
Выходные данные
Вывод элементов массива в новом порядке.
В помощь:
Качество и ответственность
Мы гарантируем Вам что скаченный с нашего сервера исходник полностью работоспособен и отвечает условиям задачи.
В случае если это не так (Вы купили неработающий, или не отвечающий условиям задачи, исходник), то напишите пожалуйста на эту ветку форума. Мы обязательно разберемся.
Покупка исходного кода.
Покупка исходника осуществляется полностью в автоматическом режиме при помощи сервиса smszamok.ru -> обман с какой-либо стороны полностью исключен.
Программирование
Исходники Pascal (127)
Справочник
Справочник по паскалю: директивы, функции, процедуры, операторы и модули по алфавиту
Счетчики
2008—2023 © pascal.helpov.net | All Rights Reserved
Паскаль – Массивы
Язык программирования Pascal предоставляет структуру данных, называемую массивом, в которой можно хранить последовательную коллекцию элементов одного и того же типа. Массив используется для хранения коллекции данных, но часто более полезно думать о массиве как о коллекции переменных одного типа.
Вместо того, чтобы объявлять отдельные переменные, такие как number1, number2, … и number100, вы объявляете одну переменную массива, такую как числа, и используете числа [1], числа [2] и …, числа [100] для представления отдельные переменные. Определенный элемент в массиве доступен по индексу.
Все массивы состоят из смежных областей памяти. Самый низкий адрес соответствует первому элементу, а самый высокий адрес – последнему.
Обратите внимание, что если вы хотите, чтобы массив в стиле C начинался с индекса 0, вам просто нужно начать индекс с 0, а не с 1.
Объявление массивов
Чтобы объявить массив в Pascal, программист может либо объявить тип, а затем создать переменные этого массива, либо напрямую объявить переменную массива.
Общая форма объявления типа одномерного массива –
type array-identifier = array[index-type] of element-type;
- идентификатор массива – указывает имя типа массива.
- index-type – указывает индекс массива; это может быть любой скалярный тип данных, кроме реального
- element-type – определяет типы значений, которые будут сохранены
идентификатор массива – указывает имя типа массива.
index-type – указывает индекс массива; это может быть любой скалярный тип данных, кроме реального
element-type – определяет типы значений, которые будут сохранены
type vector = array [ 1..25] of real; var velocity: vector;
Теперь, скорость – это переменный массив векторного типа, которого достаточно для хранения до 25 действительных чисел.
Чтобы начать массив с индекса 0, объявление должно быть –
type vector = array [ 0..24] of real; var velocity: vector;
Типы Array Subscript
В Pascal индекс массива может иметь любой скалярный тип, например, целое число, логическое значение, перечисление или поддиапазон, кроме действительного. Индексы массива также могут иметь отрицательные значения.
type temperature = array [-10 .. 50] of real; var day_temp, night_temp: temperature;
Давайте рассмотрим еще один пример, где индекс имеет символьный тип –
type ch_array = array[char] of 1..26; var alphabet: ch_array;
Индекс может быть перечисляемого типа –
type color = ( red, black, blue, silver, beige); car_color = array of [color] of boolean; var car_body: car_color;
Инициализация массивов
В Pascal массивы инициализируются посредством присваивания, либо путем указания конкретного нижнего индекса, либо с помощью цикла for-do.
type ch_array = array[char] of 1..26; var alphabet: ch_array; c: char; begin . for c:= 'A' to 'Z' do alphabet[c] := ord[m]; (* the ord() function returns the ordinal values *)
Доступ к элементам массива
Доступ к элементу осуществляется путем индексации имени массива. Это делается путем помещения индекса элемента в квадратные скобки после имени массива. Например –
a: integer; a: = alphabet['A'];
Вышеприведенный оператор возьмет первый элемент из массива с именем alphabet и присвоит значение переменной a.
Ниже приведен пример, который будет использовать все три вышеупомянутых понятия, а именно. декларация, назначение и доступ к массивам –
program exArrays; var n: array [1..10] of integer; (* n is an array of 10 integers *) i, j: integer; begin (* initialize elements of array n to 0 *) for i := 1 to 10 do n[ i ] := i + 100; (* set element at location i to i + 100 *) (* output each array element's value *) for j:= 1 to 10 do writeln('Element[', j, '] = ', n[j] ); end.
Когда приведенный выше код компилируется и выполняется, он дает следующий результат –
Element[1] = 101 Element[2] = 102 Element[3] = 103 Element[4] = 104 Element[5] = 105 Element[6] = 106 Element[7] = 107 Element[8] = 108 Element[9] = 109 Element[10] = 110
Массивы Паскаля в деталях
Массивы важны для Паскаля и должны требовать больше подробностей. Существует несколько важных понятий, связанных с массивом, которые должны быть понятны программисту на Паскале:
Паскаль поддерживает многомерные массивы. Простейшей формой многомерного массива является двумерный массив.
В массивах этого типа начальная длина равна нулю. Фактическая длина массива должна быть установлена с помощью стандартной функции SetLength .
Эти массивы упакованы битами, т. Е. Каждый символ или значения истинности хранятся в последовательных байтах вместо использования одного блока хранения, обычно слова (4 байта или более).
Вы можете передать подпрограмме указатель на массив, указав имя массива без индекса.
Как перевернуть массив в pascal?
Для того чтобы перевернуть одномерный массив необходимо прочитать/перезаписать его с обратной стороны.
1 2 3 4 5 6 7 8 9 10 11 12
var mas1: array[1..10] of integer; // исходный массив mas2: array[1..10] of integer; // перевернутый массив i: integer; begin for i:= 10 downto 1 do begin mas2[10-i+1]:= mas1[i]; end; for i:= 1 to 10 do writeln(mas2[i]); end;
от marshall.cummings , 5 месяцев назад
Пример переворачивания массива в Pascal:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
var arr: array[1..5] of Integer; i, temp: Integer; begin arr[1] := 1; arr[2] := 2; arr[3] := 4; arr[4] := 3; arr[5] := 5; for i := 1 to (Length(arr) div 2) do begin temp := arr[i]; arr[i] := arr[Length(arr)-i+1]; arr[Length(arr)-i+1] := temp; end; for i := 1 to Length(arr) do begin WriteLn(arr[i]); end; end.
Это программа создает и заполняет массив arr , затем переворачивает его и выводит на экран:
1 2 3 4 5