ОбъЗадача. Гражданка А.О. 1 марта 2018 открыла счёт в банке, вложив 1000 рублей. Через каждый месяц размер её вклада увеличивается на 2% от имеющейся суммы. Определить: Сумму вклада через один, два, …, двенадцать месяцев.
Построение математической модели решения:
Первоначальный вклад а0=1000
1 месяц: а1=а0+а0*0,02
2 месяц: а2=а1+а1*0,02
10 месяц: а10=а9+а9*0,02
Общий случай: an=an-1+an-1*0,02
Составим программу и протестируем ее. Программа составляется совместно с ребятами на доске.
Program vklad;
Var i: integer;
a: real;
Begin Writeln (‘введите значение первоначального вклада’);
Readln (а);
i:=1;
while i<=12 do
begin a:= a+a*0,02;
writeln (a);
i:=i+1; end;
end.
Задачу вводим в паскаль и тестируем.
- Хорошо, задачу решили, а теперь поиграем с ней.
- Назовите банки в Перми, которые вы знаете или там имеют вклады ваши родители? (сбербанк)
обяснение:
ну в жизни пригодится я думаю
1. Чтобы выбрать фоновый цвет необходимо взять ведро, выбрать цвет , нажать на то место где хочешь раскрасить и всё!
2. Чтобы выбрать основной цвет необходимо взять ведро, выбрать цвет, нажать на то место где хочешь раскрасить и всё!
3. Чтобы нарисовать прямоугольник необходимо взять эту фигуру и сделать, или нарисовать при прямых линий или кисточек.
4. Тоже самое что и 3.
5. Чтобы нарисовать овал необходимо взять эту фигуру и сделать, или нарисовать при кривых линий или кисточек.
6. Тоже самое что и 5.
Всё это через PAINT.
Для каждого из пяти чисел:
Пока число больше нуля, увеличиваем счётчик количества цифр на 1 и прибавляем последнюю цифру к счётчику суммы.
Необходимо учесть, что для K=0 количество цифр C=1.
Код (Pascal)
var
x, i, anc, ans: integer;
procedure Sum(k: integer; var c, s: integer);
begin
c := 0;
if k = 0 then c := 1;
s := 0;
while (k > 0) do
begin
c := c + 1;
s := s + (k mod 10);
k := k div 10;
end
end;
begin
for i := 1 to 5 do
begin
read(x);
Sum(x, anc, ans);
writeln(anc, ' ', ans);
end;
end.
Файл решения прикреплён.