В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
HappyPerson23
HappyPerson23
22.05.2021 19:24 •  Информатика

ИНФОРМАТИКИ В двоичной системе связи под воздействием шума каждый из
входных символов изменяет независимым образом свое значение с
вероятностью (1 q). Четыре статистически независимых сообщения
могут передаваться по системе с одинаковой вероятностью в виде кодовых
векторов {0,0}; {0,1}; 1 2 x  x  {1,0}; {1,1}. 3 4 x  x  На выходе регистрируются
сигналы: y y 1 2  {0,0};  {0,1}; {1,0}; {1,1}. 3 4 y  y  Определить распределение
вероятностей входного алфавита Px и выходного алфавита y P .

Показать ответ
Ответ:
даниля3
даниля3
19.09.2022 04:23
//Pascal ABC.NET v3.1 сборка 1172

Const
 n=6;

Var
 f,h:text;
 i,maxi:integer;
 ar:array[1..n] of real;
begin
 ar[6]:=real.MinValue;
 assign(f,'text.txt');
 rewrite(f);
 for i:=1 to n-1 do
  begin
   readln(ar[i]);
   if ar[i]>ar[6] then
    begin
     ar[6]:=ar[i];
     maxi:=i;
    end;
 end;
 ar[maxi]:=ar[maxi]/2;
 writeln('F:');
 for i:=1 to n do
  begin
   write(f,ar[i],' ');
   write(ar[i],' ');
  end;
 close(f);
 writeln;
 i:=0;
 writeln('H:');
 assign(h,'text1.txt');
 rewrite(h);
 while i<n do
 begin
 i:=i+2;
 write(h,ar[i],' ');
 write(ar[i]:4);
 end;
 close(h);
end.

Пример ввода:
1
2
3
4
5
Пример вывода:
F:
1 2 3 4 2.5 5
H:
  2   4   5
0,0(0 оценок)
Ответ:
maryam124
maryam124
19.04.2022 19:56
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
{
программа, вычисляющая площадь прямоугольника.
}
var
  a,b: real;

begin
  write('Стороны прямоугольника ');
  read(a,b);
  writeln(' Площадь фигуры = ',a*b:10:3);
end.

Тестовое решение:
Стороны прямоугольника 5.3 6.7
 Площадь фигуры =     35.510

{
С клавиатуры вводятся 3 целых числа.
Определить количество положительных чисел
в этом наборе.
}
var
  a,i,n: integer;

begin
  for i:=1 to 3 do begin
  write(i,'число = ');readln(a);
  if a>0 then n:=n+1;
  end;
  writeln(' Положительных :',n);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота