Program Scheme;
Var xn,xk,dx,x,s,p,k,y: Extended;
Label rep;
Begin
write('Enter xn: ');
readln(xn);
write('Enter xk: ');
readln(xk);
write('Enter dx: ');
readln(dx);
s:=0; p:=1; x:=xn; k:=0;
rep:
If x <= xk then
Begin
y:=exp(sin(x))*cos(x);
writeln('x = ',x:0:3, ' y = ', y:0:3);
if y >= 0 then
s:=s+y;
if y <> 0 then
p:=p*y;
x:=x+dx;
goto rep;
End
else
Begin
writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);
exit;
End;
End.
Объяснение: Если есть вопросы, пишите в лс.
Чтобы найти информационный объем размер текста, находим количество символов в этом самом документе:
60*20*2=2400 символов;
2400*2=4800 бит=600 байт размер текстового документа
2)Мощность алфавита - 8 символов, значит вес одного символа равен 3 бит
360/3=120 символов в сообщении
3)Мощность алфавита 1024, вес одного символа 10 бит
сообщение "ветер" несет в себе 5 символов(без учета кавычек), значит информационный объем сообщения равен 10*5=50 бит