Задача №8. Задача №9. Задача №10

Задача №8

На счет в банке на 5 лет была положена определенная денежная сумма под определенный годовой процент. Проценты начисляются каждый год в зависимости от суммы на счете. Вводятся начальная сумма и годовой процент (от 1 до 100). Какая сумма будет на счете через 5 лет. / S=A*(1+0,01*B)^5/

procedure TForm2.Button1Click(Sender: TObject); var A,B,S:extended; begin A:= StrToFloat(Edit1.Text); B:= StrToFloat(Edit2.Text); S:= A*Exp(5*Ln(1+0.01*B)); Edit3.Text:=FloatToStr(S); end; procedure TForm2.Button2Click(Sender: TObject); begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; end; procedure TForm1.Button3Click(Sender: TObject); begin close; end;

Задача №9

Дана длина ребра куба. Вычислить площадь его боковой поверхности.

procedure TForm1.Button1Click(Sender: TObject); var A,S:extended; begin A:= StrToFloat(Edit1.Text); S:= 4*A*A; Edit2.Text:=FloatToStr(S); end;

Задача №10

Дано вещественное число. Найти его вторую цифру в дробной части.

procedure TForm1.Button1Click(Sender: TObject); var N: integer; S:extended; begin N:= StrToFloat(Edit1.Text); S:=(N mod 0,1) div 10; Edit2.Text:=IntToStr(N); end;

⇐ Предыдущая 1 23