Turbo Pascal для начинающих




Задача 180


{ Вычисление степени числа с использованием свойств логарифмов }
function InStep(a,b:real):real;
begin
( А в сепени В равно С
Логарифмируем обе части равенства и получаем: В*In (A) = In (С)
Нас интересует значение С, поэтому вычисляем Е в степени В*In(А). Значение этого выражения равно С,что и требовалось вычислить. }
InStep:=exp(b*ln(a)); end;
var
a: real; { число }
b: real; { степень }
с: real; { число в степени } begin
writeln('Введите число и показатель степени');
readln(a,b);
c:=InStep(a,b);
writeln(a:6:3,' в степени ',Ь:6:3,' = ',с:б:3);
readln; end.
{ вычисляет доход по вкладу }
function Dohod(sum: real; { сумма вклада }
stavka: real; { процентная ставка (годовых) } srok: integer { срок вклада (дней) } ): real; begin
Dohod:=sum*(stavka/100/365)*srok; { 365 кол-во дней
в году } end;









Начало    Назад    Вперед