Question

Людина поклала у банк певну суму грошей. Щорічно банк додає до суми А наперед визначений відсоток від суми, що зберігається на рахунку після попереднього року. Яка сума буде на рахунку через N років? (Програму написати мовою Delphi).

Answer 1

Відповідь:procedure TForm1.Button2Click (Sender: TObject);  

var a: array [1..10] of integer; i, j, min, nmin: integer;  

begin  

for i : 1 to 10 do

a[i] : StrToInt (Memo1.Lines[i-1]);  

for i : 1 to 9 do  

begin  

min : a[i];  

nmin : i;  

for j : i+1 to 10 do  

if a[j] < min then  

begin  

min : a[j]; nmin : j;  

end;  

a[nmin] : a[i];  

a[i] : min;  

end;  

Memo2.Lines.Clear;  

for i : 1 to 10 do

Memo2.Lines.Append (IntToStr (a[i]))  

end;

Пояснення:

Answer 2

Звісно, ось приклад коду на мові Delphi, який обчислює суму на рахунку через N років з врахуванням річних відсотків:

delphiCopy code
program BankAccount;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  InitialAmount, InterestRate: Double;
  Years: Integer;

function CalculateFinalAmount(initialAmount, interestRate: Double; years: Integer): Double;
var
  i: Integer;
begin
  Result := initialAmount;
  for i := 1 to years do
    Result := Result + Result * interestRate / 100;
end;

begin
  Write('Введіть початкову суму грошей: ');
  Readln(InitialAmount);

  Write('Введіть річний відсоток (%): ');
  Readln(InterestRate);

  Write('Введіть кількість років: ');
  Readln(Years);

  if (InitialAmount >= 0) and (InterestRate >= 0) and (Years >= 0) then
  begin
    Writeln('Сума на рахунку через ', Years, ' років: ',
            CalculateFinalAmount(InitialAmount, InterestRate, Years):0:2);
  end
  else
    Writeln('Будь ласка, введіть коректні значення.');

  Readln;
end.

Цей код запитує користувача про початкову суму грошей, річний відсоток та кількість років. Потім він використовує функцію CalculateFinalAmount, яка обчислює суму на рахунку через N років з врахуванням відсотків. Результат виводиться на екран.