Question

Работа в Паскале. Банк начисляет на вклады 5% каждый месяц(т.е. каждый месяц вклад увеличивается на 5% без участия вкладчика). Напечатать таблицу увеличения суммы вклада по месяцам на год. Сумма вклада вводится с клавиатуры.

Answer 1

Program vklad;

Var

i: integer;

sum: real;

const k: array [1..12] of string=('январь','февраль','март','апрель','май','июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь');

Begin

write('Введите первоначальную сумму вклада: ');

readln (sum);  

writeln ('|     МЕСЯЦ     |       CУММА       |');

writeln ('|___________________________________|');

for i := 1 to 12 do

begin

sum:=sum*1.05;

writeln ('|   ', k[i]:8, '    |   ',sum:12:2 , '    |');

end;

end.

Answer 2

Для создания таблицы увеличения суммы вклада на год в Паскале, вы можете использовать следующий код:

pascalCopy code
program BankDeposit;

var
  initialDeposit, monthlyInterestRate, currentDeposit: real;
  month: integer;

begin
  // Запрос суммы вклада у пользователя
  write('Введите сумму вклада: ');
  readln(initialDeposit);

  // Установка начальных значений
  currentDeposit := initialDeposit;
  monthlyInterestRate := 0.05; // 5% в месяц

  // Вывод заголовка таблицы
  writeln('Месяц | Сумма вклада');

  // Цикл для расчета и вывода данных за каждый месяц в течение года
  for month := 1 to 12 do
  begin
    currentDeposit := currentDeposit + (currentDeposit * monthlyInterestRate);
    writeln(month:6, ' | ', currentDeposit:12:2);
  end;

  readln; // Ждем, пока пользователь нажмет Enter
end.

Этот код сначала запрашивает сумму вклада у пользователя, затем использует цикл для расчета увеличения суммы вклада каждый месяц и выводит данные в виде таблицы на экран.