IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Процедуры, массивы
gryzlik
сообщение 25.11.2006 11:51
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Женский
Реальное имя: Катя

Репутация: -  0  +


Ребят,нужна помощь.Очень!!!

Написать подпрограмму для вставки m элементов в одномерный массив на указанное место

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

Program Zad_1;
type a=array [1..100] of real;
var l:a;
k, m,n: integer;
procedure Vstavka (var l:a; var n:integer; k,m:integer );
var i:integer;
begin
for i:= k+m to n do
a[i+m]:=a[i];
n:=n+m;
end;
begin
writeln('Vvedite razmer massiva');
readln(n);
writeln ('Vvedite poziciu nachala vstavki i kol-vo vstavlaemih elementov');
readln(k,m);
for i:=1 to n do begin
a[i]:=random(40)+10;
writeln(a[i]: 4:1);
end;
Vstavka(l,n,k,m);
writeln('Rezultat vstavki ');
for i:=1 to n do
writeln (a[i]: 4:1);
end.


Подскажите, в чем ошибка!
М
Пожалуйста, используй правильные теги! Lapp

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 25.11.2006 15:14
Сообщение #2


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


я б тоже на такое название обиделась... :-/
по теме.
ты пишешь:
a[i+m]:=a[i];

но a - это тип!
ты же не пишешь integer:=2, правда?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
gryzlik
сообщение 26.11.2006 14:55
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Женский
Реальное имя: Катя

Репутация: -  0  +


Цитата(мисс_граффити @ 25.11.2006 15:14) *

я б тоже на такое название обиделась... :-/
по теме.
ты пишешь:
a[i+m]:=a[i];

но a - это тип!
ты же не пишешь integer:=2, правда?

Спасибо! Это я усвоила...
Нужно l[i+m]:=l[i]?
Только вот теперь мне нужно разобраться, почему вставляет числа программа только с последней позиции? Я немного не поняла...если я ввожу начало вставки 1, то она все равно только в конце 2 числа повторяет. Подскажи , пожалуйста, в чем ошибка.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.07.2025 11:03
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"