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

Технічні умови. Програма Time2021 читає з пристрою стандартного введення в першому рядку 2 числа через пропуск Нd, Мd (0 ≤ HD ≤ 23, 0 ≤ Мd ≤ 59) - час вильоту, в другому рядку Нf. Мf. (0 SH ≤ 10^9, 0 ≤ Mf ≤ 59) - час польоту, в третьому рядку 2 цілих числа D, A (-11 ≤ D, A ≤ 14) - часові пояси аеропортів вильоту та прильоту. Програма виводить на пристрiй стандартного виведення три числа в одному рядку через пропуски НА, МА, Days час польоту в година та хвилинах, а різницю в датах вильоту та прильоту.

Показать ответ
Ответ:
Lisaezhik
Lisaezhik
01.05.2023 21:14
Информацию, существенную и важную в настоящий момент, называют: б) актуальной;

Известно, что наибольший объём информации физически здоровый человек получает при б) органов зрения;

Укажите «лишний» объект с точки зрения вида письменности: в) китайский язык;

По форме представления информацию можно условно разделить на следующие виды: г) визуальную, аудиальную, тактильную, обонятельную, вкусовую;

Дискретизация информации - это: в) процесс преобразования информации из непрерывной формы в дискретную;

Дайте самый полный ответ.При двоичном кодировании используется алфавит, состоящий из: г) любых двух символов (не вполне уверена); 

В какой строке единицы измерения информации расположены по возрастанию? г) бит, байт, килобайт, мегабайт, гигабайт;

Объём сообщения равен 11 Кбайт. Сообщение содержит 11 264 символа. Какова мощность алфавита, с которого записано сообщение? в) 256, т.к. мощность алфавита можно найти по формуле 2^i. i = 11 * 1024 * 8 / 11264 = 8 бит, 2^8 = 256.;

Дан текст из 600 символов. Известно, что символы берутся из таблицы размером 16 х 32. Определите информационный объём текста в битах. г) 5400, т.к. дано: 600 символов; размер таблицы равен 16*32=512; 512=2^i=2^9, 9 бит приходится на 1 символ. Всего бит: 600*9=5400;

Два текста содержат одинаковое количество символов. Первый текст составлен из символов алфавита мощностью 16, а'второй текст - из символов алфавита мощностью 256. Во сколько раз количество информации во втором тексте больше, чем в первом? б) в 2 раза, т.к. на символ в алфавите с мощностью 16 требуется 4 бита (2^4 степени), а на символ алфавита мощностью 256 требуется 8 бит (2^8), 8/4=2. 

Информационные процессы — это: в) процессы сбора, хранения, обработки, поиска и передачи информации;

В какой строке верно представлена схема передачи информации? б) источник → кодирующее устройство → канал связи → декодирующее устройство → приёмник.
0,0(0 оценок)
Ответ:
Alina21112001
Alina21112001
11.12.2020 16:54
Type
  tR = real;
  tF = file of tR;

procedure SwapFile(fn1, fn2: string);
var
  r: tR;
  fin, fout: tF;
begin
  Assign(fin, fn1); Reset(fin);
  Assign(fout, fn2); Rewrite(fout);
  while (not Eof(fin)) do begin Read(fin, r); Write(fout, r) end;
  Close(fin); Close(fout)
end;

var
  f1, f2, f3, f4, f5, fh: string;

begin
  f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
  f4 := 'f4.bin'; f5 := 'f5.bin'; fh := 'tmp.bin';
  { f2 <-> f4 }
  SwapFile(f2, fh); SwapFile(f4, f2); SwapFile(fh, f4);
  { f5->h, f3->f5, f1->f3, h->f1 }
  SwapFile(f5, fh); SwapFile(f3, f5); SwapFile(f1, f3); SwapFile(fh, f1)
end.

Для тестирования
Можно создать тестовые файлы с следующей программы:
type
  tR = real;
  tF = file of tR;

procedure WF(fn: string; m, n: integer);
var
  fout: tF;
  i: integer;
begin
  Assign(fout, fn); Rewrite(fout);
  for i := m to n do Write(fout, i / 2);
  Close(fout)
end;

var
  f1, f2, f3, f4, f5: string;

begin
  f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
  f4 := 'f4.bin'; f5 := 'f5.bin';
  WF(f1, 3, 7); WF(f2, 11, 19); WF(f3, -6, 9); WF(f4, 0, 11); WF(f5, 14, 22);   
end.

Далее можно просмотреть содержимое созданных файлов с следующей программы:
type
  tR = real;
  tF = file of tR;

procedure WF(fn: string);
var
  fin: tF;
  r: tR;
begin
  Writeln(fn);
  Assign(fin, fn); Reset(fin);
  while (not Eof(fin)) do
  begin Read(fin, r); Write(r:0:1, ' ') end;
  Writeln;
  Close(fin)
end;

var
  f1, f2, f3, f4, f5: string;

begin
  f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
  f4 := 'f4.bin'; f5 := 'f5.bin';
  WF(f1); WF(f2); WF(f3); WF(f4); WF(f5)
end.

Затем выполнить основную программу по перезаписи и снова запустить программу для просмотра обновленнных файлов.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота