Паскаль. Добавление элементов массива

[min@y™]

максимально приближено к турбопаскакалю...

1.png

program cp_284430;

{$apptype console}

const
  MAX_COUNT = 100;

type
  TArr = array[0..MAX_COUNT - 1] of LongInt;

procedure RandomArray(var X: TArr; const Count: Integer);
var
  Index: Integer;
begin
  for Index:= 0 to Count - 1 do
    X[Index]:= Random(101);
end;

procedure InsertValue(var X: TArr; const Place, Value: LongInt);
var
  Index: Integer;
begin
  for Index:= High(X) downto Place + 1 do
    X[Index]:= X[Index - 1];
  X[Place]:= Value;
end;

procedure OutArray(const X: TArr; const Count: Integer);
var
  Index: Integer;
begin
  for Index:= 0 to Count - 1 do
    begin
      Write(X[Index]: 4);
      if Index mod 11 = 10
        then WriteLn;
    end;

  WriteLn;
  WriteLn;
end;

function Search(var X: TArr; const Template, Count: Integer): Integer;
var
  Index, Found: Integer;
begin
  Found:= 0;
  Index:= 0;

  while (Index < Count + Found) { and (Index < MAX_COUNT) } do
    begin
      if X[Index] = Template
        then begin
               InsertValue(X, Index, Template * 2);
               Inc(Found);
               Inc(Index);
             end;
      Inc(Index);
    end;

  Search:= Found;
end;

var
  A: TArr;
  C, F: Integer;

begin
  Randomize;

  repeat
    Write('Enter the source array length [1..', MAX_COUNT div 2, ']: ');
    ReadLn(C);
  until (C > 0) and (C - 1 < MAX_COUNT div 2);

  RandomArray(A, C);
  WriteLn(' -------- Source: ----------');
  OutArray(A, C);

  Write('Enter the template to search: ');
  ReadLn(F);

  F:= Search(A, F, C);

  WriteLn(' -------- Modified (found: ', F ,' items): ----------');
  OutArray(A, C + F);

  Readln;
end.

всё, я спать.

[Stilet]

Сформировать массив a[1..n] случайным образом. Определить, содержит ли он заданное число. Если элемент найден, то вставить перед ним элемент вдвое больше найденного.

Обычно такие задачи мы решали так:

var a:array[1..1000] of integer; j,i,n,v:integer;
begin
 Write('Сколько элементов в массиве? '):readln(n);
 for i:=1 to n do begin
  write('a[',i,']: ');readln(a[i]);
 end;
 Write('Задавай число '):readln(v);
 for i:=1 to n do begin
  if a[i]=v then begin
   for j:=n downto i do a[j+1]:=a[j];
   a[i]:=v;
   inc(n);
  end;
 end;
 
end.

Т.е. просто напросто забором заведомо большего размера под массив.

[mira95]

Спасибо огромное, да, это что-то поближе к решению, точнее вроде бы оно, сейчас немного поковыряюсь:

немного подкорректировала, почти работает, вот единственное, что напрягает-это то, что элемент не только ставится перед искомым и становится в 2 раза больше, но и сам искомый элемент в новом массиве тоже становится в 2 раза больше, например, если мы нашли число 30 в массиве 40 50 30, то выводит 40 50 60 60,

program lab2;
uses crt;
var a:array[1..1000] of integer; j,i,n,v:integer;
begin
 Write('Задаем  размерность') ;
 readln(n);
 randomize;
 for i:=1 to n do begin
      a[i]:=random(81)+10;
      writeln(a[i]);

 end;
 Write('Задаем число для поиска ');
 readln(v);
 for i:=1 to n do begin
  if a[i]=v then begin
   for j:=n downto 1 do begin
    a[j+1]:=a[j];
    a[i]:=2*v;
     end;
   n:=n+1;
   for j:=1 to n do
   writeln(a[j]);
  end;
 end;

end.

[min@y™]

а чо, мой вариант не подошёл?
почему?

[Аватар]

Почему, почему. Небось вумный вариант сильно, Мире страшно стало, вот и в игнор

[min@y™]

вумный вариант сильно

вумный = плохой?

[Аватар]

Препод не поверит, что заслуга ТС. Да и ТС возможно не удалось разобраться в том варианте

[Stilet]

становится в 2 раза больше

Дык у тебя же там умножение приписано
Зачем?
И кстати. У меня там малость лажа:

 i:=1 while i<=n do begin
  if a[i]=v then begin
   for j:=n downto i do a[j+1]:=a[j];
   a[i]:=v;
   inc(n);
   inc(i);
  end;
  inc(i);
 end;

Вот так надежнее должно быть.

[min@y™]

Вот так надежнее должно быть.

под копирку

[mira95]

Сообщение от min@y™

а чо, мой вариант не подошёл?
почему?

Некоторые из перечисленных вариантов были слишком сильными с применением таких команд, которые мы даже за 2 года работы с Паскалем не проходили Некоторые были близки к нужному ходу решения, парочку я даже брала за основу и лепила из них пробные, в общем, задача решилась, прокатило, спасибо всем