// PascalABC.NET 3.2, сборка 1427 от 24.04.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ArrRandom(ReadInteger('n='),-20,20); m.Println; (var k,var s):=(0,0); for var i:=1 to m.Length-2 do if (m[i]<m[i-1]) and (m[i]<m[i+1]) then (k,s):=(k+1,s+m[i]); Writeln('Свойство А: кол-во=',k,', сумма=',s); var mb:=m.Where(x->x<0).ToArray; Write('Свойство Б: '); mb.Println; var z:=ReadInteger('Z1='); var mmin:=m.Min; m.Transform(x->x=mmin?z:x); Writeln('Свойство B:'); m.Println; m.Sort; Writeln('Упорядоченность по неубыванию:'); m.Println; var p,q:integer; Write('Введите P Q: '); Read(p,q); m:=m.Where(x->(x mod p<>0) and (x mod q<>0)).ToArray; Writeln('Свойство Г:'); m.Println; z:=ReadInteger('Z2='); p:=m.FindIndex(x->x>=z); if m[p]<>z then m:=(m[:p]+Arr(z)+m[p:]).ToArray; Writeln('После попытки вставки:'); m.Println end.
1 )В кодовых таблицах КОИ-8 и Windows сначала расположены прописные русские буквы, а затем строчные. Русские прописные буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 223. Русские буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 225.
2)
film
face
fine
fire
3)3
4) i = 1 байт
k = «Речь вести - не лапти плести.»
Найти:
V - ?
Решение
i = 1 байт = 8 бит
В предложении «Речь вести - не лапти плести.»- 29 символов
V = k * i (формула нахождение объёма текстовой информации)
Где, к – количество символов в тексте
V = 29 * 8 = 232 бит = 29 байт
ответ: текст содержит 29 байт информации
5 )Слово занимает 14 байт =14*8=112 бит памяти. Решение: Переведем Кб в байты: 0, 25 Кб * 1024 =256 байт. Так как текст занимает объем 256 байт, а каждый символ – 1 байт, то в тексте 256 символов.
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ArrRandom(ReadInteger('n='),-20,20); m.Println;
(var k,var s):=(0,0);
for var i:=1 to m.Length-2 do
if (m[i]<m[i-1]) and (m[i]<m[i+1]) then (k,s):=(k+1,s+m[i]);
Writeln('Свойство А: кол-во=',k,', сумма=',s);
var mb:=m.Where(x->x<0).ToArray;
Write('Свойство Б: '); mb.Println;
var z:=ReadInteger('Z1=');
var mmin:=m.Min;
m.Transform(x->x=mmin?z:x); Writeln('Свойство B:'); m.Println;
m.Sort; Writeln('Упорядоченность по неубыванию:'); m.Println;
var p,q:integer; Write('Введите P Q: '); Read(p,q);
m:=m.Where(x->(x mod p<>0) and (x mod q<>0)).ToArray;
Writeln('Свойство Г:'); m.Println;
z:=ReadInteger('Z2=');
p:=m.FindIndex(x->x>=z);
if m[p]<>z then m:=(m[:p]+Arr(z)+m[p:]).ToArray;
Writeln('После попытки вставки:'); m.Println
end.
Пример
n= 17
3 5 -5 12 -15 6 11 -7 -13 -3 -17 8 -7 8 -5 -15 -7
Свойство А: кол-во=6, сумма=-72
Свойство Б: -5 -15 -7 -13 -3 -17 -7 -5 -15 -7
Z1= -33
Свойство B:
3 5 -5 12 -15 6 11 -7 -13 -3 -33 8 -7 8 -5 -15 -7
Упорядоченность по неубыванию:
-33 -15 -15 -13 -7 -7 -7 -5 -5 -3 3 5 6 8 8 11 12
Введите P Q: 3 7
Свойство Г:
-13 -5 -5 5 8 8 11
Z2= 0
После попытки вставки:
-13 -5 -5 0 5 8 8 11
1 )В кодовых таблицах КОИ-8 и Windows сначала расположены прописные русские буквы, а затем строчные. Русские прописные буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 223. Русские буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 225.
2)
film
face
fine
fire
3)3
4) i = 1 байт
k = «Речь вести - не лапти плести.»
Найти:
V - ?
Решение
i = 1 байт = 8 бит
В предложении «Речь вести - не лапти плести.»- 29 символов
V = k * i (формула нахождение объёма текстовой информации)
Где, к – количество символов в тексте
V = 29 * 8 = 232 бит = 29 байт
ответ: текст содержит 29 байт информации
5 )Слово занимает 14 байт =14*8=112 бит памяти. Решение: Переведем Кб в байты: 0, 25 Кб * 1024 =256 байт. Так как текст занимает объем 256 байт, а каждый символ – 1 байт, то в тексте 256 символов.
6)31 управляющие
7)4
8)576 битов тоесть :576/8=72 бита