М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ПРИВЕТ174rus
ПРИВЕТ174rus
20.04.2020 18:40 •  Информатика

Посмотрите . образующая конуса l см составляет с плоскостью основания угол . найти объем конуса . надо составить программу в турбо паскаль посмотрите ,что там не ответ не получается program nomer_2; uses crt; var l,x: integer; h,r,v: real; begin clrscr; write('введите исходные данные'); readln(l,x); h: =l*sin(x); r: =l*cos(x); v: =(1/3)*h*pi*sqr(r); writeln('объем конуса равен =', v: 8: 2); readln; end.

👇
Ответ:
mirator91
mirator91
20.04.2020
L,x:integer; - вот это не так. Аргументы тригонометрических функций задаются в радианах и глупо их представлять целочисленными.
Лучше писать так:

Var L,x, h,R,V:real;
4,8(24 оценок)
Открыть все ответы
Ответ:
Tania1236
Tania1236
20.04.2020

ответ:

вопрос не правильно задан! но если вы хотели узнать именно значение этого слова, то

объяснение:

до сих пор мы рассматривали информацию в самом общем плане как снятую, устраняемую неопределенность. именно то, что устраняет, уменьшает любую неопределенность, и есть информация. но что такое неопределенность вообще? здесь мы не собираемся дать исчерпывающий ответ на этот вопрос, а обратим внимание читателя на некоторые существенные моменты использования понятия неопределенности в теории информации.

menu

§ 4. информация и разнообразие

до сих пор мы рассматривали информацию в самом общем плане как снятую, устраняемую неопределенность. именно то, что устраняет, уменьшает любую неопределенность, и есть информация. но что такое неопределенность вообще? здесь мы не собираемся дать исчерпывающий ответ на этот вопрос, а обратим внимание читателя на некоторые существенные моменты использования понятия неопределенности в теории информации.

во-первых, теория информации не занимается анализом самого понятия неопределенности, а дает преимущественно количественные методы ее измерения. само же понятие неопределенности считается интуитивно данным.

во-вторых, предполагается, что понятие неопределенности связано с процессами выбора, или отбора. этот выбор может осуществлять человек, машина или живое существо. но выбор, уже как отбор, может происходить и независимо от упомянутых воспринимающих информацию систем, например в форме случайных процессов неживой природы. наконец, в самом общем случае неопределенность связана с превращением возможностей в действительность, когда происходит их ограничение (редукция).

понимание информации как всего того, что устраняет неопределенность, достаточно хорошо «работает» во многих современных концепциях информации. как уже отмечалось, понятие неопределенности используется в статистической теории информации. все же было бы неверно считать, что неопределенность связана лишь со случайными процессами. такую точку зрения старается провести ст. бир. но и он вынужден признать, что неопределенность имеет относительный характер и то, что может оказаться неслучайным для исследователя, становится случайным для машины [‡‡‡‡‡]. необходимо, конечно, исходить из более общих представлений о понятии неопределенности, чем вероятностные. это, в частности, диктуется появлением невероятностных подходов в теории информации.

4,6(46 оценок)
Ответ:
kashlakova20031
kashlakova20031
20.04.2020

ответ:

uses graphabc;

var xx,yy,u: integer;

procedure growl(x,y,r: integer);

var i: byte;

begin

for i: =1 to r do

    begin

    circle(x,y,i);

    sleep(5);

    end;

end;

procedure growr(x,y: integer);

var i: byte;

begin

for i: =1 to 20 do

    begin

    ellipse(x-5,y-(i),x-(i*3),y+(i));

    ellipse(x+5,y-(i),x+(i*3),y+(i));

    ellipse(x-(i),y-5,x+(i),y-(i*3));

    ellipse(x-(i),y+5,x+(i),y+(i*3));

    sleep(3);

    end;

end;

procedure fall;

var r,prer,i: byte;

    x,y: integer;

begin

for i: =1 to 10 do

    begin

x: =random(160)-80+windowwidth div 2;

prer: =0;

r: =random(10)+10;

for y: =80+windowheight div 2 to windowheight+30 do

    begin

    setpencolor(clwhite);

    circle(x,y-1,prer);

    setpencolor(clblack);

    circle(x,y,r);

    prer: =r;

    sleep(3);

    end;

    end;

end;

procedure growd (x,y: integer);

var i: byte;

begin

for i: =20 downto 5 do

    begin

    clearwindow;

    setbrushcolor(clgreen);

    ellipse(x-5,y-(20),x-(60),y+(20));

    ellipse(x+5,y-(20),x+(60),y+(20));

    ellipse(x-(20),y-5,x+(20),y-(60));

    ellipse(x-(20),y+5,x+(20),y+(60));

    setbrushcolor(rgb(255,255-((20-i)*10),255-((20-i)*;

    circle(x-i,y-i,i);

    circle(x+i,y-i,i);

    circle(x+i,y+i,i);

    circle(x-i,y+i,i);

    sleep(5);

    end;

end;

var j: integer;

begin

repeat

setbrushcolor(clgreen);

growr(windowwidth div 2,windowheight div 2);

setbrushcolor(clwhite);

for j: =1 to 360 do

    if j mod 10=0 then

    begin

        xx: =round(windowwidth div 2+20*cos(pi*(u+(j*10))/180));

        yy: =round(windowheight div 2+20*sin(pi*(u+(j*10))/180));

    growl(xx,-j) div 10));

    end;

sleep(100);

fall;

growd (windowwidth div 2,windowheight div 2);

sleep(100);

until false;

end.

объяснение:

4,8(74 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ