Помогите!!! Зависит полугодовая оценка по информатике!
Нужно:

1). Программа pascal turbo

Приложения:

pavel501: Borland Pascal 7.01 это более дополненная версия обычного turbo pascal

Аноним: Это то же самое...

pavel501: Подойдет

Аноним: По крайней мере, для нужд Вашей задачи.

pavel501: Главное, чтобы программа была написана на примитивно-простой языке

pavel501: Используя цикл "for" и условие "if"

Аноним: Не нужен там никакой цикл for! Сложный процент это s=s0(1+p/100)^n

pavel501: Ок

Аноним: Эта формула даже может быть легко выведена, не говоря о том, что она готовая.

pavel501: ok

Ответы

Ответ дал: Аноним

uses Crt;
const
p=5; { ежегодный процент }
n100=100; { количество лет }
n200=200; { количество лет }
s0=1000; {начальная сумма }
soz=100000; { на постройку общественных зданий }
sb=1061000; { оставить жителям Бостона }
var
s,s100,s200:longint;
k100,k200:real;
begin
ClrScr;
k100:=exp(n100*ln(1+p/100)); {процент за 100 лет}
k200:=exp(n200*ln(1+p/100)); {процент за 200 лет}
s100:=Trunc(s0*k100);
Writeln('Через первые 100 лет сумма составит ',s100);
Writeln('На постройку общественных зданий: ',soz);
s:=s100-soz;
Writeln('Остаток: ',s);
s100:=Trunc(s*k100);
Writeln('Через вторые 100 лет сумма составит ',s100);
Writeln('Оставить бостонским жителям: ',sb);
Writeln('Правлению Массачусетской общины: ',s100-sb);
Writeln('*** За ',n200,' лет, если бы сумм не снимали: ',
Trunc(s0*k200));
Readkey;
end.

Тестовое решение:
Через первые 100 лет сумма составит 131501
На постройку общественных зданий: 100000
Остаток: 31501
Через вторые 100 лет сумма составит 4142421
Оставить бостонским жителям: 1061000
Правлению Массачусетской общины: 3081421
*** За 200 лет, если бы сумм не снимали: 17292580

Приложения:

ad7f48066908f454c647611cec5121e7.pas

pavel501: Тебе баллы пришли?

Аноним: Понятия не имею, да и не интересуют они меня))))

Аноним: В моем возрасте уже несколько иная шкала ценностей)))

pavel501: Ок. Спасибо большое. Ты меня выручил.)

pavel501: Извини, тут вопрос, я что-то забыл. Exp - это возведение в куб?

Аноним: exp - это экспонента.

Аноним: a^x = exp(x*ln(a))

Аноним: Это формула для нахождения любой степени любого положительного числа.

Аноним: Вытекает из свойств логарифмов.

Вас заинтересует