Юрьевна174
?>

Составить программу (turbo pascal) вычисления величины дохода по вкладу. процентная ставка (в процентах годовых) и время хранения (в днях) во время работы программы. ниже представлен рекомендуемый вид диалога во время работы программы. данные, вводимые пользователем, выделены жирным шрифтом. величина вклада (р.) - 25000 срок вклада (дней) - 30 годовая процентная ставка (%) - 12 доход: 252 р. 80 коп. сумма по окончании срока вклада: 25252 р. 80 коп.

Информатика

Ответы

Кирилл_Гульницкий
{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.
mnogoz
Яне и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете. 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.
oliayur4encko

ответ:

program calc1;

var

  m, k, x, y: double;

begin

  write ('введите m, k, x: ');

  readln (m, k, x);

  if m * k - x > = 2 then

    y : = sqr (x) + sin (6 * x) - (k + 1)

  else

    y : = power (x, 3) - m * k + 3;

  writeln ('y = ', y : 20 : 10);

  readln;

end.

program calc2;

const

  e = 1;

  f = -2;

var

  x, y: double;

begin

  write ('введите x: ');

  readln (x);

  if x > pi then

    y : = sqr (pi) + e * x * ln (x)

  else if x < 0 then

    y : = 0

  else

    y : = pi / 4 - f * x;

  writeln ('y = ', y : 20 : 10);

  readln;

end.

abroskin2002

ответ:

program arraysumma;

procedure arrfill (a: array of integer);

var

  i: integer;

begin

  for i : = low (a) to high (a) do begin

    a [i] : = random (100);

    write (a [i], ' ');

  end;

end;

var

  a1, a2: array of integer;

  n1, n2: integer;

begin

  write ('введите размерность двух массивов: ');

  readln (n1, n2);

  setlength (a1, n1);

  setlength (a2, n2);

  randomize;

  writeln;

  writeln ('первый массив: ');

  arrfill (a1);

  writeln;

  writeln ('второй массив: ');

  arrfill (a2);

  readln;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составить программу (turbo pascal) вычисления величины дохода по вкладу. процентная ставка (в процентах годовых) и время хранения (в днях) во время работы программы. ниже представлен рекомендуемый вид диалога во время работы программы. данные, вводимые пользователем, выделены жирным шрифтом. величина вклада (р.) - 25000 срок вклада (дней) - 30 годовая процентная ставка (%) - 12 доход: 252 р. 80 коп. сумма по окончании срока вклада: 25252 р. 80 коп.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Boyaris
ВасилийКлимова1695
dimalihachew
obar1
demochkoo
alzheleshikov
Египтян2004
volkovaoksana19806037
pokrov777krest
admiralbany
nevasoundmsk36
Елена_Зайкин1665
proplenkusale88
vodoleytatyana
SlavaA99