комментарии:
вот описание своего типа данных:
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.
Поделитесь своими знаниями, ответьте на вопрос:
Составить программу на паскале по блок-схеме
1) решаем по формуле хартли:
- вероятность, что достали красный клубок
бит
2)пусть в коробке было х белых карандашей.
вероятность того, что достали белый карандаш, равна – х/64.
количество информации сообщения о том, что достали белый карандаш, равно i= - log2 (х/64) бит, что по условию составляет 4 бита, т.е. имеет место уравнение:
значит, в коробке было 4 белых карандаша.
3)пусть в корзине - х белых перчаток
тогда всего перчаток – (х + 2).
вероятность того, что достали пару черных перчаток равна – 2/(х+2).
количество информации сообщения о том, что достали черные перчатки, равно
i= - log2 (2/(х+2)) бит, что по условию составляет 4 бита, т.е. имеет место уравнение:
x=30
в корзине было 30 белых пар перчаток.
следовательно, всего в корзине – (30+2)=32 пары перчаток