Захаров-Иванович
?>

Составить программу на паскале по блок-схеме

Информатика

Ответы

vis-lyubov8832

1) решаем по формуле хартли:

- вероятность, что достали красный клубок

бит

 

2)пусть в коробке было х белых карандашей.

вероятность того, что достали белый карандаш, равна – х/64.

количество информации сообщения о том, что достали белый карандаш, равно i= - log2 (х/64) бит, что по условию составляет 4 бита, т.е. имеет место уравнение:

 

 

 

 

значит, в коробке было 4 белых карандаша.

 

3)пусть в корзине - х белых перчаток

тогда всего перчаток – (х + 2).

вероятность того, что достали пару черных перчаток равна – 2/(х+2).

количество информации сообщения о том, что достали черные перчатки, равно

i= - log2 (2/(х+2)) бит, что по условию составляет 4 бита, т.е. имеет место уравнение:

 

 

 

x=30

 

в корзине было 30 белых пар перчаток.

следовательно, всего в корзине – (30+2)=32 пары перчаток

Валентина980

комментарии:

вот описание своего типа данных:

typeparray = array [1..15] of integer;

 

вот проверка на правильно введенноее значение от 1 до 15:

while (n< 1) or (n> 15) do, если введешь неправильно спросит еще раз

 

подпрограммы:

 

 

ввод элементов массива с клавиатуры здесь:   procedure inputarray

функции возвращающей сумму четных элементов массива:   function summofeven

функции выводящей на экран минимальный элемент массива:   function minimalelement

program arrayproccessor; uses crt; type parray = array [1..15] of integer;

var myarray: parray; n: integer;

procedure inputarray(var arraytoinput: parray; n: integer); var i: integer; begin for i: =1 to n do begin write('vvedite a[',i,']='); readln(arraytoinput[i]); end; end;

function summofeven(arraytoprocess: parray; n: integer): integer; var i: integer; res: integer; begin res: =0; for i: =1 to n do begin if not odd( arraytoprocess[i]) then res: =res+arraytoprocess[i];

end; summofeven: =res; end;

function minimalelement(arraytoprocess: parray; n: integer): integer; var i: integer; res: integer; beginres: = arraytoprocess[1]; for i: =2 to n dobegin if(res> arraytoprocess[i]) then res: =arraytoprocess[i]; end; minimalelement: =res; writeln('minimal element: ', res); end;

beginclrscr; n: =0; while (n< 1) or (n> 15) dobeginwrite('vvedite kol-vo elementov massiva ot 1 do 15: '); readln(n); end; inputarray(myarray, n); writeln('summa chetnih: ', summofeven(myarray, n)); minimalelement(myarray, n);

readln; end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составить программу на паскале по блок-схеме
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

vasiliyglukhov
dmitryshigin
kate1610
Bella Sergei
blackpoint2020273
yahottabych201379
mnogoz
Rubber-soul
evada2
siger06297
Ivanovich-A.V
Drugov_Vladimirovna
VadimovichSvetlana622
Rinatum1978
Tanyamitia