Задание
Вычислить сумму квадратов всех целых чисел, которые попадают в интервал (lnx, ex), x>1.
Выбор алгоритма решения задачи
В этой задаче нужно ввести любое значение x и применять математические функции вычисления lnx и ex. После этого из полученных результатов необходимо выбрать целочисленное значение и сделать цикл из этих значений.
Описание решения задачи
Вводим значение x (write('vvedite znacheniye X: ');) Проверяем оно больше 1 (if x>1 then). Вычисляем значение двух функций (a:=trunc(ln(x)); b:=trunc(exp(x));) Делаем цикл из этих значений и вычисляем сумму (sum:=sum+ a*a;). Выводим на экран (writeln('Sum = ',sum);)
Схема алгоритма решения задачи
Текст программы
program lab3;
var
x:integer;
a,b:word; {значение начального и конечного интервала}
sum:longint;
begin
sum:=0; {Обнуление счетчика}
write('vvedite znacheniye X: '); {ввод х}
readln(x);
if x>1 then begin {если x>1, тогда …}
a:=trunc(ln(x)); {целочисленное вичисление ln}
b:=trunc(exp(x)); {целочисленное вичисление ex}
for a:=a to b do {цикл от a до b}
sum := sum + a*a; {подсчет суммы}
writeln('Sum = ',sum); {вывод сумы}
end
else writeln('Vvedite znacheniye > 1'); {вывод, если х < 2}
readln;
end.
Результат работы программы
