Исправить программу вычисления элементов вектора

@Nikita45635 · Регистрация: 28.02.2023

Студворк — интернет-сервис помощи студентам

Составить программу для вычисления элементов вектора Х по формуле:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> x_j\ =\ \cos ^2x_{j-1}+\sqrt{\left| \ln x_{j-2}\right|},\ \ j\ =\ 2,\,3,\,...,\,n<br />$

Pascal

program Project1;
var
  x: array [1..100] of real; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  j: integer; { Вспомогательные переменные для организации циклов.}
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  write('Введите значение первого элемента массива: ');
  Readln(x[1]);
  write('Введите значение второго элемента массива: ');
  Readln(x[2]);
   for j:= 2 to n do
    begin
       x[j]:= sqr(cos(x[j-1]))+sqrt(abs(ln(x[j-2])));
    end;
  writeln('Исходный массив: ');
  for j:= 1 to n do
    begin
      write(x[j]:8:4);
      if j mod 10 = 0 then
        writeln;
    end;
 
  Readln;
end.

Замечания и ошибки:

Исправить программу вычисления элементов вектора

Что нужно исправить?

@Cyborg Drone · 01.03.2023, 17:51

Нужно исправить задание. Так как в рекуррентной формуле используются x_j-1 и x_j-2, значения j обязаны начинаться с 3, а не с 2. Или же индексация вектора X должна начинаться с 0, и вводить надо x[0] и x[1]. К примеру, по первому варианту должно быть

j = 3, 4, ..., n

и

Pascal

13	for j := 3 to n do

Строки 14 и 16 лишние: незачем один оператор заключать в операторные скобки.

Может быть, следует сделать контроль корректности ввода n, а 100 определить константой, но это как пожелаете.

На первые две "ошибки" (параметры цикла for и так далее) внимания не обращайте, это не ошибки, а замечания, и связаны они с тем, что Вы Pascal ABC.NET не изучали от слова совсем.

На самом деле, Вас обучают Turbo Pascal. Вариант Вашей программы на Pascal ABC.NET:

Pascal

##
  var a := ArrGen(ReadlnInteger('n ='), ReadlnReal('x[1] ='), ReadlnReal('x[2] ='), (a, b) -> sqr(cos(b))+sqrt(abs(ln(a))));
  'Вектор X:'.Println;
  a.Println

На всякий случай: это полный аналог Вашей исправленной программы. Можете вставить это безо всяких изменений в среду Pascal ABC.NET и наслаждаться.

@Nikita45635 · 01.03.2023, 18:24 **[ТС]**

Получается код у меня правильно написан? Из-за неправильных условий не работает ?

@Cyborg Drone · 01.03.2023, 22:44

Ну да, из-за неправильных условий, которые определены заданием, содержащим разночтения. По заданию неясно: то ли ошибка в j = 2, 3, ..., n, то ли индексация вектора x должна начинаться с 0.

Про j = 3, 4, ..., n я уже написал.

Если же индексация вектора x начинается с 0, то исправьте

Pascal

3	x: array [0..100] of real; { Переменная для хранения массива.}

Pascal

  write('Введите значение нулевого элемента массива: ');
  Readln(x[0]);
  write('Введите значение первого элемента массива: ');
  Readln(x[1]);

@Nikita45635 0 / 0 / 0 Регистрация: 28.02.2023 Сообщений: 16
	01.03.2023, 18:24 [ТС]	3
	Получается код у меня правильно написан? Из-за неправильных условий не работает ? 0

Опции темы

Исправить программу вычисления элементов вектора

Решение