Iteach WIKI - Внесок користувача [uk]

Футбол

2013-02-27T10:56:36Z

Мельниченко Кирилл:

Футбол (от англ. foot — нога, ball — мяч) — командный вид спорта, в котором целью является забить мяч в ворота соперника ногами или другими частями тела (кроме рук) большее количество раз, чем команда соперника. В настоящее время самый популярный и массовый вид спорта в мире.

[[Файл:images121.jpg]]

С 2005 года я болею за футбольный клуб "Ливерпуль",он ставал чемпионом Англии 18 раз,5 раз выигрывал Лигу Чемпионов и 8 кубок Англииской лиги. Но на данный момент, Ливерпуль выступает не очень успешно,так как сейчас он занимает 8 место в Лиге и вылетел в 1/16 финала Лиге Европы проиграв Зениту.

[[Файл:liverpool-1.jpg]]

Вставка елементов в одномерных масивах

2013-02-27T10:53:44Z

Мельниченко Кирилл:

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать по определенному условию.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,
все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,
на место (k+1)-го элемента записываем значение х;
увеличиваем количество элементов в массиве на единицу.

'''Задача.''' Вставить число 100 после пятого элемента массива.

Рассмотрим конкретный пример. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.
Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

'''Type'''

'''MyArray = array[1..n+1] of integer'''

Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем полный массив из N+1 элемента.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m - массив, в котором делаем преобразования;
n - количество элементов в массиве,
Mesto - номер элемента, после которого надо вставить данный,
Element - число, которое вставляем.

Кроме того, сдвиг элементов будем начинать с последнего элемента.

'''Program Vstavka1;

'''Const'''

'''n=10;'''

'''Type'''

'''MyArray = array [1..n+1] of integer;'''

'''Var'''

'''A : MyArray;'''

'''k, x : Integer;'''

'''Procedure InsertMas1(Var m : MyArray; n : integer);'''

'''Procedure InsertMas2(Var m : MyArray; n : integer);'''

'''Procedure PrintMas(m : MyArray; n : integer);'''

'''Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);'''

'''Var'''

'''i : integer;'''

'''Begin'''

'''for i := n downto Mesto+1 do'''

'''m[i+1] := m[i];'''

'''m[Mesto+1]:= Element;'''

'''Inc(n);'''

'''End;'''

'''Begin'''

'''Writeln('Номер элемента, после которого вставлять > ');'''

'''Readln(k);'''

'''Writeln('Вставляемое число > ');'''

'''Readln(x);'''

'''Insert1(A, n, k, x);'''

'''End.'''

Вставка елементов в одномерных масивах

2013-02-27T10:53:32Z

Мельниченко Кирилл:

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать по определенному условию.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,
все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,
на место (k+1)-го элемента записываем значение х;
увеличиваем количество элементов в массиве на единицу.
'''Задача.''' Вставить число 100 после пятого элемента массива.

Рассмотрим конкретный пример. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.
Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

'''Type'''

'''MyArray = array[1..n+1] of integer'''

Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем полный массив из N+1 элемента.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m - массив, в котором делаем преобразования;
n - количество элементов в массиве,
Mesto - номер элемента, после которого надо вставить данный,
Element - число, которое вставляем.

Кроме того, сдвиг элементов будем начинать с последнего элемента.

'''Program Vstavka1;

'''Const'''

'''n=10;'''

'''Type'''

'''MyArray = array [1..n+1] of integer;'''

'''Var'''

'''A : MyArray;'''

'''k, x : Integer;'''

'''Procedure InsertMas1(Var m : MyArray; n : integer);'''

'''Procedure InsertMas2(Var m : MyArray; n : integer);'''

'''Procedure PrintMas(m : MyArray; n : integer);'''

'''Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);'''

'''Var'''

'''i : integer;'''

'''Begin'''

'''for i := n downto Mesto+1 do'''

'''m[i+1] := m[i];'''

'''m[Mesto+1]:= Element;'''

'''Inc(n);'''

'''End;'''

'''Begin'''

'''Writeln('Номер элемента, после которого вставлять > ');'''

'''Readln(k);'''

'''Writeln('Вставляемое число > ');'''

'''Readln(x);'''

'''Insert1(A, n, k, x);'''

'''End.'''

Вставка елементов в одномерных масивах

2013-02-27T10:51:00Z

Мельниченко Кирилл:

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать по определенному условию.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,
все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,
на место (k+1)-го элемента записываем значение х;
увеличиваем количество элементов в массиве на единицу.
[['''Задача.''']] Вставить число 100 после пятого элемента массива.

Рассмотрим конкретный пример. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.
Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

'''Type
MyArray = array[1..n+1] of integer'''

Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем полный массив из N+1 элемента.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m - массив, в котором делаем преобразования;
n - количество элементов в массиве,
Mesto - номер элемента, после которого надо вставить данный,
Element - число, которое вставляем.

Кроме того, сдвиг элементов будем начинать с последнего элемента.

'''Program Vstavka1;

Const

n=10;

Type

MyArray = array [1..n+1] of integer;
Var

A : MyArray;

k, x : Integer;

Procedure InsertMas1(Var m : MyArray; n : integer);

Procedure InsertMas2(Var m : MyArray; n : integer);

Procedure PrintMas(m : MyArray; n : integer);

Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);
Var
i : integer;
Begin

for i := n downto Mesto+1 do

m[i+1] := m[i];

m[Mesto+1]:= Element;

Inc(n);

End;

Begin
Writeln('Номер элемента, после которого вставлять > ');

Readln(k);

Writeln('Вставляемое число > ');

Readln(x);

Insert1(A, n, k, x);
End.
'''

Вставка елементов в одномерных масивах

2013-02-27T10:50:20Z

Мельниченко Кирилл:

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать по определенному условию.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,
все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,
на место (k+1)-го элемента записываем значение х;
увеличиваем количество элементов в массиве на единицу.
[['''Задача.''']] Вставить число 100 после пятого элемента массива.

Рассмотрим конкретный пример. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.
Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

Type
MyArray = array[1..n+1] of integer
Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем полный массив из N+1 элемента.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m - массив, в котором делаем преобразования;
n - количество элементов в массиве,
Mesto - номер элемента, после которого надо вставить данный,
Element - число, которое вставляем.

Кроме того, сдвиг элементов будем начинать с последнего элемента.

Program Vstavka1;

Const

n=10;

Type

MyArray = array [1..n+1] of integer;
Var

A : MyArray;

k, x : Integer;

Procedure InsertMas1(Var m : MyArray; n : integer);

Procedure InsertMas2(Var m : MyArray; n : integer);

Procedure PrintMas(m : MyArray; n : integer);

Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);
Var
i : integer;
Begin

for i := n downto Mesto+1 do

m[i+1] := m[i];

m[Mesto+1]:= Element;

Inc(n);

End;

Begin
Writeln('Номер элемента, после которого вставлять > ');

Readln(k);

Writeln('Вставляемое число > ');

Readln(x);

Insert1(A, n, k, x);
End.

Вставка елементов в одномерных масивах

2013-02-27T10:49:58Z

Мельниченко Кирилл:

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать по определенному условию.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,
все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,
на место (k+1)-го элемента записываем значение х;
увеличиваем количество элементов в массиве на единицу.
[['''Задача.''']] Вставить число 100 после пятого элемента массива.

Рассмотрим конкретный пример. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.
Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

Type
MyArray = array[1..n+1] of integer
Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем полный массив из N+1 элемента.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m - массив, в котором делаем преобразования;
n - количество элементов в массиве,
Mesto - номер элемента, после которого надо вставить данный,
Element - число, которое вставляем.

Кроме того, сдвиг элементов будем начинать с последнего элемента.

Program Vstavka1;

Const

n=10;

Type

MyArray = array [1..n+1] of integer;
Var

A : MyArray;

k, x : Integer;

Procedure InsertMas1(Var m : MyArray; n : integer);

Procedure InsertMas2(Var m : MyArray; n : integer);

Procedure PrintMas(m : MyArray; n : integer);

Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);
Var
i : integer;
Begin

for i := n downto Mesto+1 do

m[i+1] := m[i];

m[Mesto+1]:= Element;

Inc(n);
End;

Begin
Writeln('Номер элемента, после которого вставлять > ');

Readln(k);

Writeln('Вставляемое число > ');

Readln(x);

Insert1(A, n, k, x);
End.

Вставка елементов в одномерных масивах

2013-02-27T10:49:40Z

Мельниченко Кирилл:

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать по определенному условию.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,
все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,
на место (k+1)-го элемента записываем значение х;
увеличиваем количество элементов в массиве на единицу.
[['''Задача.''']] Вставить число 100 после пятого элемента массива.

Рассмотрим конкретный пример. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.
Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

Type
MyArray = array[1..n+1] of integer
Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем полный массив из N+1 элемента.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m - массив, в котором делаем преобразования;
n - количество элементов в массиве,
Mesto - номер элемента, после которого надо вставить данный,
Element - число, которое вставляем.

Кроме того, сдвиг элементов будем начинать с последнего элемента.

Program Vstavka1;
Const
n=10;
Type

MyArray = array [1..n+1] of integer;
Var

A : MyArray;

k, x : Integer;

Procedure InsertMas1(Var m : MyArray; n : integer);

Procedure InsertMas2(Var m : MyArray; n : integer);

Procedure PrintMas(m : MyArray; n : integer);

Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);
Var
i : integer;
Begin

for i := n downto Mesto+1 do

m[i+1] := m[i];

m[Mesto+1]:= Element;

Inc(n);
End;

Begin
Writeln('Номер элемента, после которого вставлять > ');

Readln(k);

Writeln('Вставляемое число > ');

Readln(x);

Insert1(A, n, k, x);
End.

Вставка елементов в одномерных масивах

2013-02-27T10:48:34Z

Мельниченко Кирилл:

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать по определенному условию.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,
все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,
на место (k+1)-го элемента записываем значение х;
увеличиваем количество элементов в массиве на единицу.
[['''Задача.''']] Вставить число 100 после пятого элемента массива.

Рассмотрим конкретный пример. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.
Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

Type
MyArray = array[1..n+1] of integer
Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем полный массив из N+1 элемента.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m - массив, в котором делаем преобразования;
n - количество элементов в массиве,
Mesto - номер элемента, после которого надо вставить данный,
Element - число, которое вставляем.

Кроме того, сдвиг элементов будем начинать с последнего элемента.

Program Vstavka1;
Const
n=10;
Type
MyArray = array [1..n+1] of integer;
Var
A : MyArray;
k, x : Integer;

Procedure InsertMas1(Var m : MyArray; n : integer);

Procedure InsertMas2(Var m : MyArray; n : integer);

Procedure PrintMas(m : MyArray; n : integer);

Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);
Var
i : integer;
Begin
for i := n downto Mesto+1 do
m[i+1] := m[i];
m[Mesto+1]:= Element;
Inc(n);
End;

Begin
Writeln('Номер элемента, после которого вставлять > ');
Readln(k);
Writeln('Вставляемое число > ');
Readln(x);
Insert1(A, n, k, x);
End.

Вставка елементов в одномерных масивах

2013-02-27T10:47:45Z

Мельниченко Кирилл:

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать по определенному условию.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,
все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,
на место (k+1)-го элемента записываем значение х;
увеличиваем количество элементов в массиве на единицу.
[['''Задача.''']] Вставить число 100 после пятого элемента массива.

Рассмотрим конкретный пример. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.
Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

Type
MyArray = array[1..n+1] of integer
Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем полный массив из N+1 элемента.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m - массив, в котором делаем преобразования;
n - количество элементов в массиве,
Mesto - номер элемента, после которого надо вставить данный,
Element - число, которое вставляем.

Кроме того, сдвиг элементов будем начинать с последнего элемента.

Program Vstavka1;
Const
n=10;
Type
MyArray = array [1..n+1] of integer;
Var
A : MyArray;
k, x : Integer;

Procedure InsertMas1(Var m : MyArray; n : integer);

Procedure InsertMas2(Var m : MyArray; n : integer);

Procedure PrintMas(m : MyArray; n : integer);

Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);
Var
i : integer;
Begin
for i := n downto Mesto+1 do
m[i+1] := m[i];
m[Mesto+1]:= Element;
Inc(n);
End;

Begin
Writeln('Номер элемента, после которого вставлять > ');
Readln(k);
Writeln('Вставляемое число > ');
Readln(x);
Insert1(A, n, k, x);
End.

Файл:Liverpool-1.jpg

2013-02-27T10:46:26Z

Мельниченко Кирилл:

Футбол

2013-02-27T10:46:03Z

Мельниченко Кирилл:

Футбол

2013-02-27T10:44:27Z

Мельниченко Кирилл:

Файл:Liverpool-6.jpg

2013-02-27T10:44:06Z

Мельниченко Кирилл:

Футбол

2013-02-27T10:43:34Z

Мельниченко Кирилл:

Футбол (от англ. foot — нога, ball — мяч) — командный вид спорта, в котором целью является забить мяч в ворота соперника ногами или другими частями тела (кроме рук) большее количество раз, чем команда соперника. В настоящее время самый популярный и массовый вид спорта в мире.

[[Файл:images121.jpg]]
С 2005 года я болею за футбольный клуб "Ливерпуль",он ставал чемпионом Англии 18 раз,5 раз выигрывал Лигу Чемпионов и 8 кубок Англииской лиги.

[[Файл:liverpool-6.jpg]]

Користувач:Мельниченко Кирилл

2013-02-27T10:26:05Z

Мельниченко Кирилл: /* Обо мне */

==Обо мне==
''Фамилия'' Мельниченко

''Имя'' Кирилл

''Отчество'' Сергеевич

==Мои увлечения==
[[Футбол]]

==Мои проекты==
[[Вставка елементов в одномерных масивах]]

Футбол

2013-02-27T10:25:31Z

Мельниченко Кирилл:

Файл:Images121.jpg

2013-02-27T10:24:24Z

Мельниченко Кирилл:

Футбол

2013-02-27T10:23:52Z

Мельниченко Кирилл:

Футбол

2013-02-27T10:23:44Z

Мельниченко Кирилл: Створена сторінка: Футбол (от англ. foot — нога, ball — мяч) — командный вид спорта, в котором целью является за...

Користувач:Мельниченко Кирилл

2013-02-27T10:18:57Z

Мельниченко Кирилл: /* Мої проекти */

==Обо мне==
''Фамилия'' Мельниченко
''Имя'' Кирилл
''Отчество'' Сергеевич

==Мои увлечения==
[[Футбол]]

==Мои проекты==
[[Вставка елементов в одномерных масивах]]

Користувач:Мельниченко Кирилл

2013-02-27T10:18:41Z

Мельниченко Кирилл: /* Мої захоплення */

==Обо мне==
''Фамилия'' Мельниченко
''Имя'' Кирилл
''Отчество'' Сергеевич

==Мои увлечения==
[[Футбол]]

==Мої проекти==
[[Вставка елементов в одномерных масивах]]

Користувач:Мельниченко Кирилл

2013-02-27T10:18:25Z

Мельниченко Кирилл: /* Про мене */

==Обо мне==
''Фамилия'' Мельниченко
''Имя'' Кирилл
''Отчество'' Сергеевич

==Мої захоплення==
[[Футбол]]
==Мої проекти==
[[Вставка елементов в одномерных масивах]]

Вставка елементов в одномерных масивах

2013-02-27T10:17:03Z

Мельниченко Кирилл:

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать по определенному условию.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,
все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,
на место (k+1)-го элемента записываем значение х;
увеличиваем количество элементов в массиве на единицу.
[['''Задача.''']] Вставить число 100 после пятого элемента массива.

Рассмотрим конкретный пример. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.
Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

Type
MyArray = array[1..n+1] of integer
Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем полный массив из N+1 элемента.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m - массив, в котором делаем преобразования;
n - количество элементов в массиве,
Mesto - номер элемента, после которого надо вставить данный,
Element - число, которое вставляем.

Кроме того, сдвиг элементов будем начинать с последнего элемента.

Program Vstavka1;
Const
n=10;
Type
MyArray = array [1..n+1] of integer;
Var
A : MyArray;
k, x : Integer;

Procedure InsertMas1(Var m : MyArray; n : integer);

Procedure InsertMas2(Var m : MyArray; n : integer);

Procedure PrintMas(m : MyArray; n : integer);

Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);
Var
i : integer;
Begin
for i := n downto Mesto+1 do
m[i+1] := m[i];
m[Mesto+1]:= Element;
Inc(n);
End;

Begin
Writeln('Номер элемента, после которого вставлять > ');
Readln(k);
Writeln('Вставляемое число > ');
Readln(x);
Insert1(A, n, k, x);
End.

Вставка елементов в одномерных масивах

2013-02-27T10:14:27Z

Мельниченко Кирилл: Створена сторінка: Вставлять элемент можно до или после данного элемента, номер этого элемента можно ввод...

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать по определенному условию.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,
все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,
на место (k+1)-го элемента записываем значение х;
увеличиваем количество элементов в массиве на единицу.
[['''Задача.''']] Вставить число 100 после пятого элемента массива.

Рассмотрим конкретный пример. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.
Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:
''
Type
MyArray = array[1..n+1] of integer''
Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем полный массив из N+1 элемента.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m - массив, в котором делаем преобразования;
n - количество элементов в массиве,
Mesto - номер элемента, после которого надо вставить данный,
Element - число, которое вставляем.

Кроме того, сдвиг элементов будем начинать с последнего элемента.

''Program Vstavka1;
Const
n=10;
Type
MyArray = array [1..n+1] of integer;
Var
A : MyArray;
k, x : Integer;

Procedure InsertMas1(Var m : MyArray; n : integer);
. . .

Procedure InsertMas2(Var m : MyArray; n : integer);
. . .

Procedure PrintMas(m : MyArray; n : integer);
. . .

Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);
Var
i : integer;
Begin
for i := n downto Mesto+1 do
m[i+1] := m[i];
m[Mesto+1]:= Element;
Inc(n);
End;

Begin
. . .
Writeln('Номер элемента, после которого вставлять > ');
Readln(k);
Writeln('Вставляемое число > ');
Readln(x);
Insert1(A, n, k, x);
. . .
End.''

Користувач:Мельниченко Кирилл

2013-02-27T10:11:26Z

Мельниченко Кирилл: /* Мої проекти */

==Про мене==
''Прізвище'' Мельниченко
''Ім'я'' Кирил
''По батькові'' Сергійович
==Мої захоплення==
[[Футбол]]
==Мої проекти==
[[Вставка елементов в одномерных масивах]]

Користувач:Мельниченко Кирилл

2013-02-27T10:03:12Z

Мельниченко Кирилл: Створена сторінка: ==Про мене== ''Прізвище'' Мельниченко ''Ім'я'' Кирил ''По батькові'' Сергійович ==Мої захоплен...

==Про мене==
''Прізвище'' Мельниченко
''Ім'я'' Кирил
''По батькові'' Сергійович
==Мої захоплення==
[[Футбол]]
==Мої проекти==
[[Одномірні масиви]]