1 ) Аққан әліппесі жоғалтты хабарында 4бит ақпарат бар .Аққанның қанша оқулығы болған 2) өлшемі 8×8 шахмат тақтасын кодтау үшін ақпарат көлемі қандай 3) Көлемі 10 бит болған хабар қабылданды .Алынған деректен қанша мөлшерде ақпарат құруда болады .4) қорапта түрлі түсті 16шар бар .кораптан ақ шар алынды деген хабар қандай ақпарат көлемін көрсетеді 5) 64тен ықтималдыоқиғаның болуы жайлы хабардын көлемі қанша .6) оқушыны қызықтырды кітап 5суреде орналасқан деген хабар 3бит ақпарат болды . Стеллажда қанша сурет бар .7) қорапта ақ және 32 көк шардан тұратын жалпы 40шар бар. қораптан ақ шарды көк шарды алды деген хабарда қандай ақпарат бар .8) қорапта 64түрлі түсті қалам бар .қораптан қызыл қалам алынды деген хабар 4 бит ақпарат береді.қораптаға қызыл қаламдар саны неше .9) Nаралығындағы санды табуда 6бит ақпарат қабылданған болса . N саны нешеге тең.10) көлемы 8битболған хабар қабылданды .аланған деректен қанша мөлшерде ақпарат қарауға болады .11) мектеп кітапханасында кітап орналасқан стелаждар саны 5бит ақпарат, ал бір стелаждағф сөреге саны 4бит ақпарат береді мэ.мектеп кітапханасында неше стилаж бар және әр стилажда қанша сөре бар .
Ответы
Первая программа:
Var S,A:integer;
Begin
S:=0;
For A:= 5 to 45 do
if A mod 4 = 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 260
Вторая программа:
Var A,S:integer;
Begin
S:=0;
For A:= 79 to 205 do
if A mod 2 <> 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 9088
Третья программа:
Var
x:byte;
Begin
WriteLn('f(x) = x^2');
For x:= 1 to 20 do
WriteLn('f(',x/2:3,') = ',Sqr(x/2))
End.
Результат работы программы:
f(x) = x^2
f(0.5) = 0.25
f( 1) = 1
f(1.5) = 2.25
f( 2) = 4
f(2.5) = 6.25
f( 3) = 9
f(3.5) = 12.25
f( 4) = 16
f(4.5) = 20.25
f( 5) = 25
f(5.5) = 30.25
f( 6) = 36
f(6.5) = 42.25
f( 7) = 49
f(7.5) = 56.25
f( 8) = 64
f(8.5) = 72.25
f( 9) = 81
f(9.5) = 90.25
f( 10) = 100
Var S,A:integer;
Begin
S:=0;
For A:= 5 to 45 do
if A mod 4 = 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 260
Вторая программа:
Var A,S:integer;
Begin
S:=0;
For A:= 79 to 205 do
if A mod 2 <> 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 9088
Третья программа:
Var
x:byte;
Begin
WriteLn('f(x) = x^2');
For x:= 1 to 20 do
WriteLn('f(',x/2:3,') = ',Sqr(x/2))
End.
Результат работы программы:
f(x) = x^2
f(0.5) = 0.25
f( 1) = 1
f(1.5) = 2.25
f( 2) = 4
f(2.5) = 6.25
f( 3) = 9
f(3.5) = 12.25
f( 4) = 16
f(4.5) = 20.25
f( 5) = 25
f(5.5) = 30.25
f( 6) = 36
f(6.5) = 42.25
f( 7) = 49
f(7.5) = 56.25
f( 8) = 64
f(8.5) = 72.25
f( 9) = 81
f(9.5) = 90.25
f( 10) = 100
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Зинформатики опиши переміщення файлів з папки. d: \папка 1 до папки c: \папка 2
Автор: Irinalobanowa
Составить блок-схему для нахождения суммы всех натуральных чисел, кратных 10.
Автор: denbelousov963
Const
N = 100;
Var
A:array[1..N] of real;
i,k:integer;
S:real;
Begin
ClrScr;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=Sin(i)*Cos(i);
Write(' ',A[i]:0:3);
if A[i] <> 0 then
Begin
k:=k+1;
S:=S+A[i]
End;
End;
WriteLn;
WriteLn('Sr = ',S/k);
ReadLn
End.
Результат работы программы:
Исходный массив: Исходный массив: 0.455 -0.378 -0.140 0.495 -0.272 -0.268 0.495 -0.144 -0.375 0.456 -0.004 -0.453 0.381 0.135 -0.494 0.276 0.265 -0.496 0.148 0.373 -0.458 0.009 0.451 -0.384 -0.131 0.493 -0.279 -0.261 0.496 -0.152 -0.370 0.460 -0.013 -0.449 0.387 0.127 -0.493 0.283 0.257 -0.497 0.157 0.367 -0.462 0.018 0.447 -0.390 -0.123 0.492 -0.287 -0.253 0.497 -0.161 -0.364 0.463 -0.022 -0.445 0.392 0.118 -0.491 0.290 0.249 -0.498 0.165 0.361 -0.465 0.027 0.443 -0.395 -0.114 0.490 -0.294 -0.246 0.498 -0.169 -0.357 0.467 -0.031 -0.441 0.398 0.110 -0.489 0.297 0.242 -0.499 0.173 0.354 -0.468 0.035 0.439 -0.401 -0.105 0.488 -0.301 -0.238 0.499 -0.177 -0.351 0.470 -0.040 -0.437
Sr = -0.00136006072493969