Информатика
1. Зашифровать данный текст, используя таблицу ASCII-кодов:
Pentium 100 -
50 65 6E 74 69 75 60 20 31 30 30
2. Дешифровать данный текст, используя таблицу ASCII-кодов:
91 A8 E1 E2 A5 AC A0
20 E1 E7 A8 E1 AB A5 AD A8 EF - Система счисления
3. Записать
прямой код числа, интерпретируя его как восьмибитовое целое без знака: Для
этого нужно число делить на 2,а остатки записать в обратном порядке:
а) 178(10) =10110010
2
б) 218(10
)= 110110102
в) 222(10)=110111102
4. Записать
дополнительный код числа, интерпретируя его как восьмибитовое целое со знаком.
Дополнительный код положительного числа совпадает с его прямым кодом. Прямой
код целого числа может быть получен следующим образом: число переводится в двоичную систему счисления, а затем его
двоичную запись слева дополняют таким количеством незначащих нулей, сколько
требует тип данных, к которому принадлежит число.
Дополнительный код целого отрицательного
числа может быть получен по следующему алгоритму:
записать прямой код модуля числа;инвертировать его (заменить единицы
нулями, нули — единицами);прибавить к инверсному коду единицу.
а) 33(10) = 00100001
б) -97(10)
=10011110+1= 10011111
в) -20(10)
= 11101011 +1 = 11101100
3a. Записать
прямой код числа, интерпретируя его как шестнадцатибитовое целое без знака
а) 21115(10) = 0101001001111011
б) 20225(10) = 0100111100000001
4a. Записать дополнительный код
числа, интерпретируя его как шестнадцатибитовое целое со знаком:
а) 25019(10) =
0110000110111011
б) -21083(10) = 1010110110100101
Программирование
Написать
алгоритм для решения задачи:
5
x + x3/3!
+ x5/5! +…+ x2n-1/(2n-1)!
sh(x)
·
стандартный
диапазон значений x
=0.1...0.9, шаг 0.1. Убедиться, что на
этом диапазоне элемент суммы ряда стремится к 0, при необходимости
скорректировать диапазон
ответ:
(действительно,
это видно из результатов программы)
·
вычислить
значения суммы ряда и контрольной функции, к которой он сходится,
с точностью до 4
знаков после запятой
ответ: (x= 0.1 a=1
n=1 funk=0.1000000000 summa=0.1000000000
·
исходя
из полученного значения n
и формулы ряда объяснить различную скорость сходимости для разных x».
ответ: Формула члена ряда - x2n-1/(2n-1)!.Чем больше n(т.е.чем больше номер
члена ряда, тем он(член ряда ) меньше
Программа:
program xxx;
var a,i,n,f:longint;
x,s,h,e:real;
begin
x:=0.1;
s:=0.1;
n:=1;
a:=1;
writeln ('x= ',x:3:1, '
a=',a,' n=',n, '
funk=',x:12:10 ,'
summa=',s:12:10);
repeat
n:=n+1;
x:= x + 0.1;
a:=2*n-1;
h:=
exp(ln(x)*a);
f:=1;
for i:=2 to a do
f:=f*i;
e:= h/f;
s:=s+e;
writeln ('x= ',x:3:1, '
a=',a,' n=',n, '
funk=',e:12:10 ,'
summa=',s:12:10);
until x >0.9 ;
readln;
end.
Borland Pascal
Version 7.0 Copyright (c) 1983,92
Borland International
x= 0.1
a=1 n=1 funk=0.1000000000 summa=0.1000000000
x= 0.2
a=3 n=2 funk=0.0013333333 summa=0.1013333333
x= 0.3
a=5 n=3 funk=0.0000202500 summa=0.1013535833
x= 0.4
a=7 n=4 funk=0.0000003251 summa=0.1013539084
x= 0.5
a=9 n=5 funk=0.0000000054 summa=0.1013539138
x= 0.6
a=11 n=6 funk=0.0000000001 summa=0.1013539139
x= 0.7
a=13 n=7 funk=0.0000000000 summa=0.1013539139
x= 0.8
a=15 n=8 funk=0.0000000000 summa=0.1013539139
x= 0.9
a=17 n=9 funk=-0.0000000006 summa=0.1013539133
Напишите программу для решения задачи:
«Заменить
в строке принятое в Си обозначение символа с заданным
кодом (например, \101) на
сам символ (в данном случае -
A)».
program
xxx;
var a:integer;
ar b: char;
begin
writeln ( '
vvedite kod ');
readln (a);
b:= chr(a);
writeln ( ' kod -',a,' simvol-',b);
readln;
end.
Borland Pascal Version 7.0
Copyright (c) 1983,92 Borland International
vvedite kod
123
kod -123 simvol-{
234
vvedite kod
456
kod -456
simvol-L
3.Напишите программу для решения задачи:
«Выделить
в массиве возрастающую последовательность, начиная с первого элемента и
перенести ее в другой массив (например, 3 ,2,1, 4 , 6 ,3, 8 ,1,1,
12 -> 3,4,6,8,12).»
program xxx;
var n,i,k,j: integer;
a: array [1..100] of integer;
b: array [1..100] of integer;
label 2,3,4,5,6,7,8,9,10,11;
begin
readln(n);
for i:=1 to n do
begin
write ('a[',i,']=');
readln (a[i]);
end;
k:=0;
i:=1 ;
j:=2;
2: if a[i]<a[j] then goto 3 else goto 4;
3: k:=k+1;b[k]:=a[i];i:=j; goto 6;
4: J:=J+1; goto 5;
5: if j<=n then goto 2 else goto 8;
6: if i<=n-1 then goto 4 else goto 7;
7: k:=k+1; b[k]:=a[i] ; goto 8;
8: if k<=1 then
goto 10 else goto 9;
9: for i:=1 to
k do begin writeln ('b[',i,']=',b[i]);end;goto
11;
10:writeln (' no massiva' ); goto 11;
11:readln;
end.