Написать подпрограмму для вставки элемента в одномерный массив на указанное место.
Я просто неочень разбираюсь с процедурами.. и вот..чет сидела думала, какую-то хрень сделала, ток ниче не понимаю.... сделала, как сказать, как подсказывала интуиция)) хехех.. вот а под конец проги интуиция замолчала и он не получился...
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 |
ну, во-первых пользуйся тегами, когда выкладываешь программки.
во-вторых, мне это не нравится:
var t:array[1..n] of real;
...
procedure vstavka(k:integer;var t:integer);
vstavka(t[i],k);
ну про k я видимо не доглядела.... я хочу так 0 2 3 4 5. там же не надо сам массив сдвигать... надо просто как я поняла заменить допустим символ на первом месте на другой.
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(a,t[i]);
writeln('element vstavlen');
for i:=1 to n do
begin
writeln(t[i]:7:3);
end;
readln
end.
ну, это называется не вставка, а замена.
ладно, дело твое...
var t:array[1..n] of real;{массив из real}
...
procedure vstavka(k:integer;var t:integer);{надо передать 2 integer'а}
...
vstavka(a,t[i]);{а что ты передаешь?}