Begin
write('A':4, 'B':6, 'F1':6);writeln;
for A:= false to true do begin
for B:= false to true do begin
F1:= (not(A) or B) and (not(A) or not(A));
write(A:6, B:6, F1:6);writeln;end; end;writeln;write('X':4, 'Y':6, 'Z':6, 'F2':6);
writeln;
for X:= false to true do begin
for Y:= false to true do begin
for Z:= false to true do begin
F2:= (not(X) and Y) or not(Z);write(X:6, Y:6, Z:6, F2:6);writeln;end; end;end;<span>end.</span>
Итак создай табличку с заголовками что-то типа "Необходимая сумма через 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-евский документ. В нем в начале - два примера, в конце - просчитанный вариант под твои параметры.
Это произведение
var p,i:integer;
begin
p:=1;
for i:=2 to 11 do
p;=p*i;
writeln (p);
end.
Это подсчёт i
var k,i:integer;
begin
k:=0;
for i:=2 to 11 do
k;=k+1i;
writeln (k);
end.
сумму не понятно чего?
<u><em>Для стека:</em></u>
const
<span> MAX_SIZE = 100;
</span>var
size, n: integer;
stack: array[1..MAX_SIZE] of integer;
procedure push(a: integer);
begin
inc(size);
stack[size] := a;
<span>end;
procedure view;
var
i: integer;
begin
for i := 1 to size do
write(stack[i], ' ');
writeln;
end;
<u><em>Для очереди:</em></u>
const
MAX_SIZE = 100;
var
head, tail: integer;
queue: array[1..MAX_SIZE] of integer;
procedure push(a: integer);
begin
queue[tail] := a;
inc(tail);
<span>end;
procedure view;
var
i: integer;
begin
for i := head to tail - 1 do
write(queue[i], ' ');
writeln;
<span>end;
<em><u>И стек и очередь реализованы с помощью массива. Нужно следить, чтобы размер структуры не был больше размера массива</u></em></span></span></span>
1. jpg, png, gif, bmp
2. Векторые/растровые
3. Растровый