Программа инвертирования компонентов вектора не работает - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Пишет Встречно 'div', а ожидался оператор (11 строка) Кто может помочь буду благодарен. P.S Что я должен был сделать линейный массив V[1..], n<=20 нужно создать рекурсивную процедуру которая будет инвертирвать компоненты вектора.

Решение задачи: «Программа инвертирования компонентов вектора не работает»

textual
Листинг программы
uses
  SysUtils;
const n=20;
 var
 aux: Real;
 i:Integer;
 x: array[1..n] of real;
 begin
 for i:= 1 to n do
   begin
    write('dati x[',i,']=');
     readln(x[i]);
     end;
      for i:=1 to n do
  write(x[i]:3:1);
  writeln;
   for i:=1 to 10 do // Здесь вместо 10 можно записать любую переменную, равную n/2 
       begin
         aux:=x[i];
          x[i]:=x [n+1-i];
           x[n+1-i]:=aux;
        end;
   for i:=1 to n do
  write(' ', x[i]:3:0);
      readln;
      end.

Объяснение кода листинга программы

  1. Подключается библиотека SysUtils.
  2. Объявляются переменные: n, aux, i, x.
  3. Создается массив x, вмещающий 20 элементов типа real.
  4. Запускается цикл for, который идет от 1 до n (количество элементов в массиве x).
  5. Внутри цикла выводится запрос на ввод данных для элемента x[i].
  6. После ввода данных выводится их преобразованный вид (в виде строки).
  7. Затем идет еще один цикл for, который идет от 1 до 10 (можно заменить на любое другое число, равное n/2).
  8. Внутри этого цикла происходит обмен элементов массива x[i] и x[n+1-i], а также копирование элемента x[i] в переменную aux.
  9. После окончания второго цикла выводится преобразованный вид элементов массива x.
  10. Программа завершается, ожидая ввода пользователя.

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы