Вычисление заработка вкладчика. Написать функцию, которая вычисляет доход по вкладу. Исходными
Вычисление заработка вкладчика. Написать функцию, которая вычисляет доход по вкладу. Исходными данными для функции являются: величина вклада, процентная ставка (годичная) и срок вклада (количество дней). Количество дней в году принять одинаковым 365.
Примечание: Функция, которую нужно написать в задании, не обязана самостоятельно исполнять ввод либо вывод каких-или значений, а также не должна прерывать выполнение программки.
1 ответ
Яфизов Василий
//Pascal ABC.NET 3.1 сборка 1219
Va
rvv,days:integer;
p:real;
function vklad(vv,days:integer;p:real):real;
Var
i,ye:integer;
vvf:real;
begin
vvf:=vv;
ye:=round(days/365-frac(days/365));
for i:=1 to ye do
vvf:=vvf+vvf*(p/100);
vklad:=vvf-vv;
end;
begin
write('Величина вклада:');
readln(vv);
write('Количество дней:');
readln(days);
write('Процент:');
readln(p);
write('Прибыль=',vklad(vv,days,p));
end.
Пример ввода:
Величина вклада:100
Количество дней:365
Процент:33.3
Пример вывода:
Прибыль=33.3
Va
rvv,days:integer;
p:real;
function vklad(vv,days:integer;p:real):real;
Var
i,ye:integer;
vvf:real;
begin
vvf:=vv;
ye:=round(days/365-frac(days/365));
for i:=1 to ye do
vvf:=vvf+vvf*(p/100);
vklad:=vvf-vv;
end;
begin
write('Величина вклада:');
readln(vv);
write('Количество дней:');
readln(days);
write('Процент:');
readln(p);
write('Прибыль=',vklad(vv,days,p));
end.
Пример ввода:
Величина вклада:100
Количество дней:365
Процент:33.3
Пример вывода:
Прибыль=33.3
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов