Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/25: Рейтинг темы: голосов - 25, средняя оценка - 4.76
-1 / 0 / 0
Регистрация: 03.06.2011
Сообщений: 13
1

Известен начальный вклад клиента в банк и процент годового дохода

27.10.2011, 09:43. Показов 5039. Ответов 1
Метки нет (Все метки)

Известен начальный вклад клиента в банк и процент годового дохода определите через сколько лет превысит заданный размер в 2 раза
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2011, 09:43
Ответы с готовыми решениями:

Ввести с клавиатуры данные годового дохода в массив, отсортировать записи в массиве по убыванию годового дохода
Как отсортировать записи по убыванию?

Как ввести процент годового дохода
Ввести начальный вклад клиента в банк и процент годового дохода. Определить через сколько лет вклад...

Начальный вклад в банк составляет a рублей. Через сколько лет он станет больше b рублей? (Repeat-until)
Найти алгоритм решения задачи и реализовать ею в виде Паскаль-програмы с помощью оператора...

Определить процент выполнения плана по каждому месяцу и процент выполнения годового плана
Известны плановый и фактический выпуск продукции (в тоннах) по месяцам года. Определить процент...

1
13067 / 5853 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
27.10.2011, 10:02 2
Лучший ответ Сообщение было отмечено Deni как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program Project1;
 
{$N+} //Подключаем математический сопроцессор.
 
var
  Sum, Sum1, Sum2, Percent : Extended;
  Years : Word;
  S : String;
begin
  repeat
    Write('Задайте начальную сумму: ');
    Readln(Sum1);
    Write('Задайте процент: ');
    Readln(Percent);
 
    Sum2 := Sum1 * 2;
    Sum := Sum1;
    Years := 0;
    while Sum <= Sum2 do begin
      Inc(Years);
      Sum := Sum + (Sum * Percent) / 100;
    end;
 
    Writeln('Сумма вклада превысит более, чем вдвое начальную сумму за ', Years, ' лет.');
    Writeln('Сумма вклада на конец указанного периода составит: ', Sum:0:6);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2011, 10:02

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

БД "Учет совокупного годового дохода" - MS Access
Доброе время суток!!! ) Подскажите, пожалуйста, как установить связь между главной и подчиненной...

[В банк был положен вклад]
В банк был положен вклад в размере &quot;X&quot; рублей, через год он увеличиться на 3%, а еще через год на...

Задача на вклад в банк. Вывод суммы, которая начислится на год
Запрашивает с клавиатуры сумму вклада и процент по вкладу, затем выводит на экран сумму за год (...

Определить, через сколько месяцев накопленная сумма превысит B руб., при условии, что начальный вклад равен нулю
Задача: Клиент переводит на банковский счёт в начале каждого месяца A руб., банковская ежемесячная...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.