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;

Пояснення: