Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Массивы (http://www.tehnari.ru/f41/t48963/)

Помогите решить задачу по Массивам.

Написать программу размещения элементов заданного вектора в обратном порядке (без использования дополнительного массива).

P.S. задача по паскалю.

Цитата:

Сообщение от Gizmo364 (Сообщение 486882)

Легко:

Код:

Const

 N=16;

VAR

 A:Array[0..N] of Byte;

 i,d:Byte;



BEGIN

 Randomize;

 For i:=0 to N do

  begin

   A[i]:=Random(100);

   Write(A[i]:4);

  end;

 Writeln;

 Writeln;

 For i:=0 to (N div 2) do

  begin

   d:=A[i];

   A[i]:=A[N-i];

   A[N-i]:=d;

  end;

 For i:=0 to N do

  Write(A[i]:4);

 Writeln;

 ReadLn;

END.

не могли бы ли вы мне пояснить, как работает данная программа...?

Цитата:

Сообщение от Gizmo364 (Сообщение 495527)

не могли бы ли вы мне пояснить, как работает данная программа...?

Да просто попарно меняет местами члены массива: первый - с последним, второй - с предпоследним и т.д. до середины.

большое спасибо)

а не подскажете еще, как сделать "ввод размерности вектора?"

никак. только через ассемблер в паскале нету динамических массивов

показал преподу данную программу и он меня спросил - "Почему нет ввода размерности вектора?"

вот что нашел
Попробуйте создавать их динамически, в куче - Heap (GetMem, FreeMem). Работать с ними нужно через указатели.
или

Цитата:

ype TIntMassiv = array of Integer;
var intMassiv: TIntMassiv; здесь создан новый тип TIntMassiv, это динамический массив, его размер не известен, и переменная данного типа intMassiv. Размер динамического массива неизвестен, но для работы с таким массивом размер надо установить. Устанавливают размер динамического массива в Паскаль с помощью функции SetLength
SetLength(intMassiv, 2);
здесь установлен размер два для массива intMassiv. Отсчет индексов динамического массива в Паскале всегда ведут с нуля.

хотя последнее скорее всего не правильное.
еще скачайте книгу
В.В. Фаронов. Turbo Pascal в подлиннике. Наиболее полное руководство

Цитата:

Сообщение от kreol (Сообщение 499942)

никак. только через ассемблер в паскале нету динамических массивов

Здрасьте пожалуйста приехали! Нету, стало быть? И указателей нету? И с каких это пор? И что же тогда в нем есть?
А вот и вариант программы, использующий как раз то, чего в Паскале якобы нет:

Код:

TYPE

 T=Array[0..1] of Byte;

VAR

 A:^T;

 d:^Byte;

 i,N:Byte;



BEGIN

 {$R-}

 Write('N= ');

 ReadLn(N);

 GetMem(A, SizeOf(Byte)*(N+1));

 Randomize;

 For i:=0 to N do

  begin

   A^[i]:=Random(100);

   Write(A^[i]:4);

  end;

 Writeln;

 Writeln;

 New(d);

 For i:=0 to (N div 2) do

  begin

   d^:=A^[i];

   A^[i]:=A^[N-i];

   A^[N-i]:=d^;

  end;

 Dispose(d);

 For i:=0 to N do

  Write(A^[i]:4);

 Writeln;

 FreeMem(A, SizeOf(Byte)*(N+1));

 ReadLn;

END.