В ходе аттестации студентов факультета «Кредит» получены следующие результаты.

(файл прикреплен)

Предусмотреть заливку соответствующим цветом: если студент получил от 51 до 70, то – синим, если от 71 до 85, то – желтым, если от 86 и выше, то красным цветом. В противном случае (если количество от 0 до 51) цвет оставить без изменения.

ОбъЗадача. Гражданка А.О. 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.

Задачу вводим в паскаль и тестируем.

- Хорошо, задачу решили, а теперь поиграем с ней.

- Назовите банки в Перми, которые вы знаете или там имеют вклады ваши родители? (сбербанк)

обяснение:

ну в жизни пригодится я думаю

PascalABC.NET (только под этим компилятором, в программе есть функции, которых нет в стандартном наборе) Если под TurboPascal или Free то будет выглядеть иначе

const     
s = 10;     
 var   
a : array of char;   
i,l : integer;   
r : real;    
begin 
SetLength (a,1); 
read (a[0]); 
i := 0;   
while a[i] <> ' ' do   
begin   
i := i +1;     
SetLength (a,i+1);   
read (a[i]);   
end;   
r := 0; 
l := i-1;    
for i := 0 to l do begin 
r := r + (ord(a[i]) - 48) * power (s,(l-i));   
end;    
 writeln (r);      
end.