Информатика (основы теории информатики), решите следующие задачи, даю максимальное кол-во !
1. Сколько информационных символов содержится в коде, исправляющем одиночную ошибку при числе информационных комбинации N=32.
2. Определить избыточность корректирующего кода при общем числе кодовых комбинаций коды по правилу четности: 010101100011, 111110001100 и 000010001010
4. Дана последовательность 10011010. Закодировать кодом Хэмминга.
Заранее
Ақпарат көзі – адам, ұжым және деректер. [1]. Деректерді жинау кезінде журналист ақпараттарды түрлі көздерден алады. Кейіпкер журналиске өзі немесе жолдастары жайында мәлімет беруге міндетті емес. Олардың экран алдында ашылулары үшін оған себеп, дәлел, сылтау керек. Егер олар жауап беруден бас тартқан жағдайда, қысым жасаудың қажеттігі жоқ. Мүмкін, сіз таңдаған кейіпкер туралы көпшілік пікірі басқаша болуы немесе сіз істейтін редакция жайындағы көзқарастың тым теріс бағытта да болуы мүмкін екенін ескеріңіз. Ақпарат алудың ұжымдық түріне формалды және формалды емес қатынас, жиналыс, мәжіліс, конференция, дөңгелек үстел, ба з конференциясы т.б. жатады. Мұның бағалылығы: онда шыншыл көзқарастардың үстемдік алып, журналистің проблема, оқиға туралы дәл, айқын ой түйіндеуіне жол ашатындығы. Ал айда, кей сәттерде шындықтан алып жататын деректердің де хабарланатынын ескеру керек. Журналист көпшілігінде деректерге жүгінеді. Деректермен танысуға автордың рұқсатымен кірісу қажет. Автордың рұқсаты бар екенін ескеру де қажеттілік және онда дәлдіктің кейде сәйкессіздіктің болатынын да аудиторияға қоса хабарлау шарттылық.
Объяснение:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(20,-99,99); a.Println;
a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.
Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3
Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(20,-99,99); a.Println;
a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
a.Println
end.