Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 80 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

4
РАЗНОСТЬ [1, 3, 4] – [2, 4, 6]
3 4
Задача 2
Банк выплачивает р % годовых. В какую сумму обратит-
ся вклад величиной Х, положенный на n лет?
Lab8_2;
Uses Crt;
Var X: Extended; {начальная сумма}
n: Byte; {срок вклада}
{Описание процедуры Initialize}
Procedure Initialize;
Begin {1}
Write ('Введите сумму вклада:');
ReadLn (X);
Write ('Введите срок вклада:');
ReadLn (n);
End; {1}
{Описание процедуры Calculate}
Procedure Calculate;
Const p = 8; {процент годовых}
Var Хn: Extended;
Begin {2}
Xn: = X * Exp (n * Ln (1 + 0.01 * p));
Write ('Сумма составит: ', Xn: 10 : 3);
ReadLn;
End; {2}
{Исполнимая часть головной программы}
Begin {3}
Initialize;
Calculate;
End. {3}
Протокол работы программы:
Введите сумму вклада:
1000
Введите срок вклада: 5
Сумма составит: 1469.328
Опишем работу программы. В этой программе имеется
80
   4
   РАЗНОСТЬ [1, 3, 4] – [2, 4, 6]
   3 4

    Задача 2
    Банк выплачивает р % годовых. В какую сумму обратит-
ся вклад величиной Х, положенный на n лет?
    Lab8_2;
    Uses Crt;
    Var X: Extended; {начальная сумма}
    n: Byte;              {срок вклада}
    {Описание процедуры Initialize}
    Procedure Initialize;
    Begin {1}
    Write ('Введите сумму вклада:');
    ReadLn (X);
    Write ('Введите срок вклада:');
    ReadLn (n);
    End; {1}
    {Описание процедуры Calculate}
    Procedure Calculate;
    Const p = 8;          {процент годовых}
    Var Хn: Extended;
    Begin {2}
    Xn: = X * Exp (n * Ln (1 + 0.01 * p));
    Write ('Сумма составит: ', Xn: 10 : 3);
    ReadLn;
    End; {2}
    {Исполнимая часть головной программы}
    Begin {3}
    Initialize;
    Calculate;
    End. {3}
    Протокол работы программы:
    Введите сумму вклада: 1000
    Введите срок вклада: 5
    Сумма составит: 1469.328
    Опишем работу программы. В этой программе имеется
                            80

Страницы