Помощь - Поиск - Пользователи - Календарь
Полная версия: Вроде бы простая задача на одномерный массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Dark Vova
Доброе время суток! Помогите пожалуйста разобраться.. Дана задача:
Сформируйте и выведите на экран массив из n элементов, где каждый элемент массива равен разнице первого и предыдущего элемента, деленной на порядковый номер элемента.
Решение, по идее, должно выглядеть так:

Uses Crt;
var
i,n:integer;
x:array [1..100] of real;
begin
ClrScr;
ReadLn(n);
For i:=1 to n do
ReadLn(x[i]);
For i:=2 to n do
begin
x[i]:=(x[1]-x[i-1])/i;
WriteLn(x[i]:5:2);
end;
ReadKey;
end.


Но если запустить программу, то она выдаст неверный результат. Но это ещё не всё.
Если записать формулу в команде WriteLn:
 
For i:=2 to n do
WriteLn((x[1]-x[i-1])/i:5:2);

то программа всё верно подсчитает.
В чём же ошибка?
klem4
Последовательность cтроится автоматически, все что тебе нужно ввести - первые 2 элемента.

write('x[1] = '); readln(x[1]);
write('x[2] = '); readln(x[2]);

for i := 3 to n do
x[i] := (x[1] - x[i - 1]) / i;
Dark Vova
klem4 Спасибо! Но на примере опять ошибка...
Если мы введем 4 числа: 9, 8, 7, 6 - то конечный массив (пока без деления, чтобы нагляднее было) по идее должен выглядеть как "9, 8, 1, 2". А паскаль выдаёт такой результат: "9, 8, 1, 8".
То бишь он первое действие да, делает как надо, то есть вычитает 9 - 8 = 1. а потом он же должен вычитать 9 - 7 = 3, а выдает 8..
klem4
Для 9, 8, 7, 6 результат должен быть такойже как и для 9, 8 то есть:

9, 8, (9-8)/3, [9 - (9 - 8)/3] / 4

тобишь

9, 8, ~0.3, ~2.1

ты забываешь о

Цитата
каждый элемент массива равен разнице первого и предыдущего элемента, деленной на порядковый номер элемента.
Dark Vova
klem4 Спасибо, что помог разобраться! Забыл, что элементы-то заменяются.. smile.gif Значит моя программа тоже верна. Ещё раз спасибо! good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.