М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
KrystallBlack
KrystallBlack
06.09.2022 08:08 •  Информатика

Вкодировке unicode на каждый символ отводится два байта. определи информационный объём текста из 39 символов в этой кодировке. в байтах.

👇
Ответ:
lexa123assasin
lexa123assasin
06.09.2022
Ту же простая математика 2*39=78
4,7(100 оценок)
Открыть все ответы
Ответ:

Роботтың айналу бұрышын немесе айналу жылдамдығын өлшеуге арналған. Датчик корпусының жоғарғы жағында сенсор жұмыс істейтін жазықтықты көрсететін екі көрсеткі бар. Сондықтан сенсорды роботқа дұрыс орнату маңызды. Сондай-ақ, дәлірек өлшеу үшін гироскопиялық сенсорды бекіту оның робот корпусына қатысты қозғалғыштығын болдырмауы керек. Роботтың түзу қозғалысы кезінде де гироскопиялық сенсор бұрыш пен айналу жылдамдығын өлшеу кезінде қате жинай алады, сондықтан өлшеудің алдында ток датчигінің көрсеткішін 0 қалпына келтіру керек. Роботты сағат тіліне қарсы айналдыру теріс өлшеу мәндерін тудырады, ал сағат тілімен айналдыру оң өлшемдерді тудырады. 2. Қозғалыс датчиктері

Объяснение:

4,4(22 оценок)
Ответ:
Nisson1
Nisson1
06.09.2022
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

Нулевой шаг: создание типизированного файла нужной структуры

begin
  var f:file of real;
  Assign(f,'MyReal.bin'); Rewrite(f);
  loop 2 do begin
    SeqRandomInteger(10,1,100).Select(t->t/10).ForEach(t->Write(f,t));
    SeqRandomInteger(10,-100,-1).Select(t->t/10).ForEach(t->Write(f,t));
    end;
  f.Seek(0); // начало файла
  var b:real;
  while not Eof(f) do begin Read(f,b); Print(b) end;
  Println;
  f.Close
end.

Пример:
9.7 1 4.1 8.3 5.6 9.3 2.2 9.3 5.8 8.8 -8.8 -7.7 -1.4 -5.2 -7.2 -8.3 -1.3 -8.9 -6.3 -4.8 3.5 3.8 3.2 6 3.2 4.5 10 4.5 6.1 0.7 -8 -0.8 -3.3 -9.5 -7.9 -0.9 -7.4 -9.4 -1.8 -4.6

Собственно, программа

begin
  var f1,f2:file of real;
  Assign(f1,'MyReal.bin'); Reset(f1);
  if f1.FileSize mod 20<>0 then begin
    Writeln('Количество компонент во входном файле не кратно 20');
    Exit
    end;
  Assign(f2,'MyReal2.bin'); Rewrite(f2);
  var buf:=new real[5];
  var b:real;
  while not Eof(f1) do begin
    // переписываем пять положительных
    loop 5 do begin Read(f1,b); Write(f2,b) end;
    // считываем пять положительных в буфер
    for var i:=0 to 4 do Read(f1,buf[i]);
    // переписываем пять отрицательных
    loop 5 do begin Read(f1,b); Write(f2,b) end;
    // пишем пять положительных из буфера
    foreach var t in buf do Write(f2,t);
    // переписываем пять отрицательных
    loop 5 do begin Read(f1,b); Write(f2,b) end
    end;
  f1.Close;
  // контрольное чтение 
  f2.Seek(0); // к началу 
  while not Eof(f2) do begin Read(f2,b); Print(b) end;
  Writeln; 
  f2.Close
end.

Пример
9.7 1 4.1 8.3 5.6 -8.8 -7.7 -1.4 -5.2 -7.2 9.3 2.2 9.3 5.8 8.8 -8.3 -1.3 -8.9 -6.3 -4.8 3.5 3.8 3.2 6 3.2 -8 -0.8 -3.3 -9.5 -7.9 4.5 10 4.5 6.1 0.7 -0.9 -7.4 -9.4 -1.8 -4.6
4,5(9 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ