Найти наименьшее положительное и меньше отрицательное значение функции и соответствующее им значение аргумента: A=(1+a^x)/((b-x)
sin^3(x)) a=3.45 b=1.62. Аргумент х изменяется от начального значения 0.1 с шагом 0.15 до конечного 3.1 (радиан<span>)</span> (а^x-то имеется ввиду что а в степени "х" так же и синус в степени) на языке Pascal!!!
var x := 0.1; xe := 3.1; h := 0.15; y, xn, yn, xp, yp: double;
begin yp := MaxDouble; yn := yp; repeat y := F(a, b, x); if y > 0 then begin if y < yp then begin yp := y;xp := x end end else if y < 0 then begin if y < yn then begin yn := y;xn := x end end; x += h; until x > xe; Writeln('Минимальное отрицательное ', yn, ' при х=', xn); Writeln('Минимальное положительное ', yp, ' при х=', xp) end.
<em><u>Тестовое решение:</u></em> Минимальное отрицательное -446219.37704747 при х=3.1 Минимальное положительное 11.837734702392 при х=0.85
function F(a,b,x:double):double; begin F:=(1+exp(x*ln(a)))/((b-x)*exp(3*ln(sin(x)))) end;
const a = 3.45; b = 1.62; var x,xe,h,y,xn,yn,xp,yp:double; begin ClrScr; x := 0.1; xe := 3.1; h := 0.15; yp := 1E308; yn := yp; repeat y := F(a, b, x); if y > 0 then begin if y < yp then begin yp := y; xp := x end end else if y < 0 then begin if y < yn then begin yn := y; xn := x end end; x := x + h; until x > xe; Writeln('Минимальное отрицательное ', yn, ' при х=', xn); Writeln('Минимальное положительное ', yp, ' при х=', xp); ReadKey end.
<em><u>Тестовое решение:</u></em> Минимальное отрицательное -4.46219377047470E+0005 при х= 3.10000000000000E+0000 Минимальное положительное 1.18377347023920E+0001 при х= 8.50000000000000E-0001
Program znanija3; var i, number:integer; begin number:=0; while i <> 10 do begin Inc(number); if (number mod 10) = 7 then begin writeln(number); Inc(i); end; end; end.
Определяем мощность (количество символов) использующегося алфавита. 12 букв и 10 цифр составляют 22 символа. В 1 байте допустимо запоминать 256 комбинаций, поэтому "минимальное количество байтов" для кодирования символа равно 1. Номер из 6 символов займет 6 байт.
А для 32 номеров потребуется 32×6 = <em>192 байта.</em>
Я встречал эту задачу в несколько ином виде: Каждый символ кодируется одинаковым и минимально возможным количеством не байтов, а бит. А номер кодируется минимально возможным количеством байт. Тогда получается 5 бит на символ (2⁴ < 22 < 2⁵), 6 символов требуют 5×6 = 30 бит = 30/8 ≈ 4 байта. А 32 номера занимают 32×4 = 128 байт.