Машина тьюринга. решить. a={a,b,0,1}. определить, является ли слово p идентификатором (непустым словом, начинающимся с буквы). ответ: слово a (да) или пустое слово (нет).
Var A: array [0..3] of string; i: integer; begin A[0] := 'a'; A[1] := 'b'; A[2] := '0'; A[3] := '1'; for i := 0 to 3 do if ((length(a[i]) > 0) and (a[i][1] in ['a'..'z', 'A'..'Z'])) then writeln(A[i], '=> Yes') else writeln(A[i], '=> No'); end.
1) 108х40х56х2=483840 количество байт на страницах, +18х28+14х28х2=1792 дополнительные страницы, складываем это все получается...483840+1792=485632, переводим в мегобайты 0,46 мегобайт. (если есть вопросы по решению пиши) 2)1-бит вес одного символа, 2 бита в юникоде. 96х32х56=17203248х8х6=2304 количество символов которые отсуствует из-за иллюстаций. 172032-2304=169728 количество символов. Каждый рисунок весит 1.5 килобайта=1536 байт. 1536х6=9216 байт весят рисунки. 169728+9216=178944 байт, переводим в килобайты= 174,75 килобайт.
Все расчеты будем делать в битах 1 байт это 8 бит 512*8*2847= 11 661 312 бит всего на дискете
а) 8*8 000*1=64 000 бит за одну секунду (единица это канал звука) 11 661 312/64 000=182.208 отбросил дробную часть и получим 182 секунды звука низкого качества это 3 минуты 2 секунды
б) 16*48 000*2=1 536 000 двойка в примере это два канала звука т.е. стерео. 11 661 312/1 536 000=7.592 отбросил дробную часть и получим 7 секунд звука высокого качества.
в ответ записать или точный расчет вместе с дробной часть или примерный т.е. целые секунды.
i: integer;
begin
A[0] := 'a';
A[1] := 'b';
A[2] := '0';
A[3] := '1';
for i := 0 to 3 do
if ((length(a[i]) > 0) and (a[i][1] in ['a'..'z', 'A'..'Z']))
then writeln(A[i], '=> Yes') else writeln(A[i], '=> No');
end.
Вот Вас:))