Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/20: Рейтинг темы: голосов - 20, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 15.01.2009
Сообщений: 4
1

Дан одномерный массив. Вставьте в него элемент L в позицию K.

15.01.2009, 16:25. Просмотров 3715. Ответов 7
Метки нет (Все метки)

задача.
Дан одномерный массив. Вставьте в него элемент L в позицию K.
Плиз помогите.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2009, 16:25
Ответы с готовыми решениями:

Дан одномерный массив. Добавить в него элемент, вводимый с клавиатуры
Дан одномерный массив В(N). Добавить в него элемент b, вводимый с клавиатуры. сдавать завтра ....

Дан одномерный массив. Удалить все отрицательные элементы из него
Решите плз задачу. Дан одномерный массив. Удалить все отрицательные элементы из него.

Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого b[i]=a[1]+.+a[i]
Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого равен...

дан одномерный массив А. Поменять местами последний положите и второй элемент массива. Разделить все элементы с четными номерами на первый элемент.
дан одномерный массив А. Поменять местами последний положите и второй элемент массива. Разделить...

7
701 / 572 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
15.01.2009, 17:05 2
Код
var a : array[1..10] of integer;
...
K := 3;
L := 10;
a[K] := L;
1
0 / 0 / 0
Регистрация: 15.01.2009
Сообщений: 4
15.01.2009, 22:13  [ТС] 3
Код
program zad11;
uses crt;
var a: array[1..10] of integer;
k,l,i, n: integer;
begin
clrscr;
for i:=1 to 10 do
begin
read(a[i]);
end;
write('vvedite element '); readln(l);
write('vvedite poziciu '); readln(k);
a[k]:=l;
for i:=1 to 10 do
begin
write(a[i], ' ');
end;
readkey;
end.
Попробовал сделать, но здесь осуществляется замена..
А в задание говориться типа вставить нужно, помогите плиз подкорректировать..
0
701 / 572 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
15.01.2009, 23:37 4
Код
program zad11;
uses crt;
var a: array[1..[COLOR="Red"]11[/COLOR]] of integer;
k,l,i, n: integer;
begin
clrscr;
for i:=1 to 10 do
begin
read(a[i]);
end;
write('vvedite element '); readln(l);
write('vvedite poziciu '); readln(k);
[COLOR="Red"]for i:=10 downto k do
  a[i+1] := a[i];[/COLOR]
a[k]:=l;
for i:=1 to 10 do
begin
write(a[i], ' ');
end;
readkey;
end.
1
0 / 0 / 0
Регистрация: 15.01.2009
Сообщений: 4
16.01.2009, 14:32  [ТС] 5
Цитата Сообщение от GаlаX Посмотреть сообщение
Код
program zad11;
uses crt;
var a: array[1..[COLOR="Red"]11[/COLOR]] of integer;
k,l,i, n: integer;
begin
clrscr;
for i:=1 to 10 do
begin
read(a[i]);
end;
write('vvedite element '); readln(l);
write('vvedite poziciu '); readln(k);
[COLOR="Red"]for i:=10 downto k do
  a[i+1] := a[i];[/COLOR]
a[k]:=l;
for i:=1 to 10 do
begin
write(a[i], ' ');
end;
readkey;
end.
такая проблема теперь, сегодня узнал, что нужно чтобы работала так:
было 10 чисел в начальном массиве
потом при вставке числа, например
нач. массив
Код
1 2 3 4 5 6 7 8 9 10
число 9
позиция 3
конечн. резульат
Код
1 2 9 3 4 5 6 7 8 9
пробобую переделать получается так
Код
1 2 9 3 4 5 6 7 8 8
Добавлено через 1 минуту 9 секунд
Цитата Сообщение от GOOD Посмотреть сообщение
такая проблема теперь, сегодня узнал, что нужно чтобы работала так:
было 10 чисел в начальном массиве
потом при вставке числа, например
нач. массив
Код
1 2 3 4 5 6 7 8 9 10
число 9
позиция 3
конечн. резульат
Код
1 2 9 3 4 5 6 7 8 9
пробобую переделать получается так
Код
1 2 9 3 4 5 6 7 8 8
вот интересно где же здесь опять маленькая загвоздочка??
0
UNIX-way
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,721
16.01.2009, 15:32 6
Цитата Сообщение от GOOD Посмотреть сообщение
...вот интересно где же здесь опять маленькая загвоздочка??
Проверь ещё раз код, который компилишь. Возможно не сохранил файл. Я вставил код из процитированного мной поста в свой компилятор (TMT Pascal Lite) и всё правильно работает.
1
0 / 0 / 0
Регистрация: 15.01.2009
Сообщений: 4
16.01.2009, 15:53  [ТС] 7
Цитата Сообщение от Delphin_KKC Посмотреть сообщение
Проверь ещё раз код, который компилишь. Возможно не сохранил файл. Я вставил код из процитированного мной поста в свой компилятор (TMT Pascal Lite) и всё правильно работает.
Я знаю что все работает идеально...
просто товарищ препод доё... до меня вот с этой строчкой
Код
var a: array[1..11] of integer;
грит ему надо чтоб было
Код
var a: array[1..10] of integer;
а последний элемент прост 'улетал'
если делаешь так как он хочет, то работоспособность оставляет желать лучшего..
0
UNIX-way
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,721
16.01.2009, 17:55 8
Цитата Сообщение от GOOD Посмотреть сообщение
...
грит ему надо чтоб было
Код
var a: array[1..10] of integer;
а последний элемент прост 'улетал'
если делаешь так как он хочет, то работоспособность оставляет желать лучшего..
тогда сделай так:
Pascal
1
2
3
4
var a: array[1..10] of integer;
//...тут без изменений
for i:=9 downto k do
//...тут без изменений
Но самое главное - пойми почему так нужно поступить.
А в твоём варианте работоспособность оставляет желать лучшего изза того, что происходит выход за границы массива.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2009, 17:55

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дан одномерный массив чисел. Удалить последний четный элемент.
помогите составить программу...пожалуйста! Дан одномерный массив чисел. Удалить последний...

Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив из него каждый второй элемент
Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив из него каждый...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

Дан массив C(N). Создать новый массив, заменив положительные элементы на максимальный элемент, отрицательные – на минимальный элемент, нулевые оставив
Помогите решить несколько задач по одномерным массивам 1.Дан массив C(N). Создать новый массив,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.