Cоставить программу вычисления значений функций f(x) на отрезке a; b с шагом h. результат представить в виде таблицы , первый столбец которой - значения аргумента, второй - соответствующие значения функции. f(x)=x^2 *sin^2x +1
Var a,b,h,f,x:real; begin write('Введите а и b: '); readln(a,b); write('Введите h: '); readln(h); x:=a; write('x:':8); while x<=b do begin write(x:8:2); x:=x+h; end; writeln; write('F(x):':8); x:=a; while x<=b do begin f:=x*x*sqr(sin(x))+1; write(f:8:3); x:=x+h; end; end.
в кинозале всего 16×32=512 мест. Сообщение о купленном билете однозначно определяет выбор одного из этих мест. Из уравнения 2 i = 512=29получаем: i=9 бит. Но эту же задачу можно решать иначе. Сообщение о номере ряда несет 4 бита информации, т.к. 24=16. Сообщение о номере места несет 5 бит информации, т.к. 25=32. В целом сообщение про ряд и место несет: 4+5=9 бит информации. Данный пример иллюстрирует выполнение закона активности информации (правило сложения): количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016 begin var n:=ReadInteger('n='); if n<0 then Writeln(n,'! не определено: n<0') else if n=0 then Writeln('0!=1') else begin var p:BigInteger:=1; for var i:=2 to n do p*=i; Writeln(n,'!=',p) end end.
begin
write('Введите а и b: ');
readln(a,b);
write('Введите h: ');
readln(h);
x:=a;
write('x:':8);
while x<=b do
begin
write(x:8:2);
x:=x+h;
end;
writeln;
write('F(x):':8);
x:=a;
while x<=b do
begin
f:=x*x*sqr(sin(x))+1;
write(f:8:3);
x:=x+h;
end;
end.