Процедуры и функции, не могу закончить прогу.... Опции

[Танкистка]

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

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

const n=20;
var t:array[1..n] of real;
i,a:integer;
procedure vstavka(k:integer;var t:integer);
begin
t:=k;
end;
begin
randomize;
for i:=1 to n do
begin
t[i]:=random(40);
writeln(t[i]:7:3);
end;
writeln('vvedite chislo');
readln(a);
writeln('vvedite nomer elementa v massive');
readln(i);
vstavka(t[i],k);
writeln('element vstavlen');
for i:=1 to n do
begin
writeln(t[i]:7:3);
end;
readln
end.

М

Теги, теги! ТЕГИ!! Подумай о тех, кто читает! Lapp

Сообщение отредактировано: lapp - 25.11.2006 15:49

[мисс_граффити]

ну, во-первых пользуйся тегами, когда выкладываешь программки.
во-вторых, мне это не нравится:

var t:array[1..n] of real;
...
procedure vstavka(k:integer;var t:integer);

дальше.
вызываешь ты ее вот так:

vstavka(t[i],k);

то есть по сути делаешь k:=t[i]
что такое k для головной программы - я не поняла. где объявлено - не нашла.

кроме того
в моем понимании вставка - это вот так:
было: 1 2 3 4 5
вставить: 0 на 1 позицию
стало: 0 1 2 3 4 5
а у тебя будет: 0 2 3 4 5
ты так и хочешь?