Алгоритм действий на псевдокоде:
пока дробная часть ≠ 0:
>>> умножить дробную часть на 2
>>> добавить цифру слева от точки к ответу
Const N = 50;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/N);
End.
Пример:
Исходный массив: 4 2 -2 -4 -7 7 -9 6 -10 10 -4 -4 -5 3 0 -2 -3 0 -4 9 -1 -4 -2 -4 -9 2 2 -10 -8 -2 -8 -7 6 2 -9 7 2 -10 -10 -4 -9 -7 -2 -10 2 1 -3 6 0 0
Sr = -2.04
Итак создай табличку с заголовками что-то типа "Необходимая сумма через 3 года", "Процентная ставка за год", "количество лет, требуемое для достижение указанной суммы" и "средства, необходимые для вложения"
Если такие ячейки создавать подряд, то пусть первая будет в a1, вторая в b1 и т.д.
Отворматируй весь столбец A в денежный с долларамми США (выдели стобец нажав на название столбюца "A", правой кнопкой мыши щелкни по выделенному стобцу(вызови контекстное меню) и выбери там "Формат ячеек", во вкладке число выбери "Денежный" и в Обозначении выбери "$ Английский (США)" ), столбец B в "Процентный" (делается так же только выберается не денежный а процентный), столбец C сделай числовым и уменьши кол-во знаков после запятой до 0(все там же), D должен быть опять-таки денежным в долларах США.
После этого напиши простой пример - в b2 занеси 3 (%), в с2 - 1 (год), в D2 - 1000 ($). Попробуй постоить формулу для вычисления первого столбца. Она будет естественной равна =D2+(D2*B2)*C2. Соотевественно она и будет использоваться в ячейке a2.
После этого выделяем на ячейку А2(с формулой), после этого для офиса 2007 надо зайти во вкладку "данные", в комбо-боксе "Работа с данными" выбрать "Анализ "что-если", и в меню выбрать "Подбор параметров". В 2003 кажется это делается в меню "Сервис/подбор параметров"
Появится окошко, изображенное на рисунке 1.
В верней части(верхнем поле, верхнем текстбоксе) расположена ячейка, в которой будет храниться результат(ее менять не надо, ибо с нее же и берется формула для подбора аргументов)
В сренем поле находится то значение, до каторого нужно подогнать формулу, в нашем случае 50000 - вводим данное значение в поле.
В нижнее поле нужно ввести те ячейки, которые будут подгоняться под значение. В нашем случае это D2. Для выбора именно этой ячейки кликнем на иконку рядом с полем и выделим ячейку D2, потом еще раз кликнем на иконку в изменившемся окошкке и оно вернется к первоначальному виду с уже введенной информацией. Жмем ОК и автоподбор пошел. При обнаружении решения эксель выдаст сообщение об этом событии окошком, изображенном на втором рисунке. Нажми ок - и все!
Если не понятно - скинул еще и EXEL-евский документ. В нем в начале - два примера, в конце - просчитанный вариант под твои параметры.
cls
rem
input "введите расстояние до школы"; s
input "введите скорость ходьбы"; v
t=s/v
print t
end.