<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,h):=ReadReal3('Введите границы и шаг табуляции:');
if a>b then Swap(a,b); // если перепутали границы
var x:=a;
while x<=b+h/2 do begin
Write(x:10:5);
var y:=Ln(x)/Tan(x);
if real.IsNaN(y) or real.IsInfinity(y) then
Writeln(' значение не существует')
else Writeln(y:15:5);
x+=h
end
end.
<u>Примеры</u>
Введите границы и шаг табуляции: -5 5 1
-5.00000 значение не существует
-4.00000 значение не существует
-3.00000 значение не существует
-2.00000 значение не существует
-1.00000 значение не существует
0.00000 значение не существует
1.00000 0.00000
2.00000 -0.31722
3.00000 -7.70704
4.00000 1.19733
5.00000 -0.47609
Введите границы и шаг табуляции: -1 1 0.2
-1.00000 значение не существует
-0.80000 значение не существует
-0.60000 значение не существует
-0.40000 значение не существует
-0.20000 значение не существует
0.00000 значение не существует
0.20000 -7.93961
0.40000 -2.16723
0.60000 -0.74667
0.80000 -0.21672
1.00000 0.00000
11111(2)=1+2+4+8+16=31(10) =3*8+7=37(8)=16+15=1F(16)
111(8)=1+8+64=73(10)=4*16+9=49(16)=1+2^3+2^6=1+8+64=1001001(2)
256(10)=2^8=100000000(2)=4*8^2=400(8)=16^2=100(16)
AA(16)=10*16+10=170(10)=2*64+5*8+2=252(8)=2+2^3+2^5+2^7=2+8+32+128=10101010(2)
Программирование необходимо для реализации алгоритмов на машине, для ускорения или автоматизации работы. Пример: создания калькулятора, с помощью него скорость счёта возрастает во много раз.
Билл из Гравити Фолз пожирает оленя