створіть проєкт у якому створюється одновимірний масив з банківськиз вкладів 10 клієнтів. через рік вклад кожного збільшуется на 8%. виведіть суми які зможуть забрати ці клієнти через рік. Це треба робити в Лазарусі..
Ответы
Ответ:
Для реалізації цього проєкту в Lazarus можна скористатись таким алгоритмом:
Створити новий проект у Lazarus.
Створити масив з 10 елементів типу Real, який представлятиме вклади клієнтів.
Заповнити масив вкладами клієнтів, наприклад, використовуючи функцію Random для генерації випадкових чисел в діапазоні від 1000 до 10000.
Застосувати цикл for для обчислення нових вкладів кожного клієнта через рік. Для цього необхідно змінити значення кожного елемента масиву на вихідний вклад * 1.08.
Застосувати цикл for для виведення нових вкладів кожного клієнта через рік. Для цього можна використати функцію WriteLn для виведення значення кожного елемента масиву на новому рядку.
Запустити проєкт і переконатись, що суми вкладів кожного клієнта були збільшені на 8% і виведені на екран.
Ось приблизний код, який можна використати для цього проєкту:
pascal
program BankDeposits;
var
deposits: array[0..9] of Real;
i: Integer;
begin
// заповнюємо масив вкладами клієнтів
Randomize;
for i := 0 to 9 do
deposits[i] := Random(9000) + 1000;
// збільшуємо вклади на 8% через рік
for i := 0 to 9 do
deposits[i] := deposits[i] * 1.08;
// виводимо суми вкладів кожного клієнта через рік
for i := 0 to 9 do
WriteLn('Клієнт ', i+1, ': ', deposits[i]:0:2);
ReadLn;
end.
Цей код створює масив з 10 випадкових вкладів, збільшує кожен вклад на 8% через рік і виводить нові суми вкладів кожного клієнта на екран. Кожна сума виводиться з точністю до двох знаків після коми, що можна налаштувати за допомогою параметра :0:2 у функції WriteLn. Після виведення результатів програма чекає на введення даних з консолі, щоб не закриватись одразу після виконання.