Составить программу (turbo pascal) вычисления величины дохода по вкладу. процентная ставка (в процентах годовых) и время хранения (в днях) во время работы программы. ниже представлен рекомендуемый вид диалога во время работы программы. данные, вводимые пользователем, выделены жирным шрифтом. величина вклада (р.) - 25000 срок вклада (дней) - 30 годовая процентная ставка (%) - 12 доход: 252 р. 80 коп. сумма по окончании срока вклада: 25252 р. 80 коп.
273
476
Ответы на вопрос:
{pascal, консольный ввод} var velichina_vklada, srok_vklada, godovaya_procentnaya_stavka: integer; vklad_s_procentami: real; vklad_s_procentami_rub, vklad_s_procentami_kop: integer; dohod_rub, dohod_kop: integer; begin write('величина вклада (р.) - '); readln(); write('срок вклада (дней) - '); readln(srok_vklada); write('годовая процентная ставка (%) - '); readln(godovaya_procentnaya_stavka); vklad_s_procentami : = velichina_vklada * ((real(100) + real(godovaya_procentnaya_stavka)*real(srok_vklada)/365)/100); dohod_rub : = (velichina_vklada - integer(vklad_s_procentami)); dohod_kop : = (velichina_vklada*100 - integer(vklad_s_procentami*100)) mod 100; vklad_s_procentami_rub : = integer(vklad_s_procentami); vklad_s_procentami_kop : = integer((vklad_s_procentami*100)) mod 100; writeln('доход: ', dohod_rub,' р. ', dohod_kop, ' 80 коп.'); writeln('сумма по окончании срока вклада: ', vklad_s_procentami_rub, ' р. ', vklad_s_procentami_kop, ' коп.'); end.
Яне и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете. var vklad, dohod, summa, stavka: real; srok: integer; begin write('величина вклада (р.) - '); readln(vklad); write('срок вклада (дней) - '); readln(srok); write('годовая процентная ставка (%) - '); readln(stavka); dohod : = (vklad*stavka)/(100*365) * srok; summa : = vklad + dohod; writeln('доход: ', trunc(dohod), ' р.', frac(dohod)*100: 3: 0, ' коп.'); writeln('сумма по окончании срока вклада: ', trunc(summa), ' р.', frac(summa)*100: 3: 0, ' коп.'); end.
1) 2 ответ потому что будет равно x 2)4 ответ потому что это логическое умножение, а умножив на 0,м мы получим ложь во всем выражении 3)a ответ поскольку это логическое сложение, а сложив 1+0=1, отсюда получаем что выражение равняется одному
Популярно: Информатика
-
danpro323.03.2023 17:56
-
unucozi11.01.2022 19:08
-
tinakristina123401.06.2023 00:37
-
Cfynks18.09.2021 19:30
-
Leonid02super13.11.2022 18:57
-
Наргиз1ппп24.01.2022 09:26
-
moldabaevamaria20.10.2022 20:11
-
nazipovadk08.08.2022 17:21
-
vip36084228.11.2020 14:37
-
Елизаветакотовамимар25.01.2022 20:34