Question

Пропускная способность канала связи 10мбит/с . Канал подвержен воздействию шума , поэтому избыточность кода передачи составляет 20%.Опрделите за сколько времени по каналу будет передан текст , информационный объём которого составляет 100кб. ПО ДАННОЙ ЗАДАЧЕ НУЖНО НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ.ДАННЫЕ ЬУДЕТ ВВОДИТЬ ПОЛЬЗОВАТЕЛЬ

Answer 1

Ответ:

на запиши EXZEL у будеть

Answer 2

Sure, I can help you with that! Below is a Pascal program to calculate the time it takes to transmit a text with a given information size over a communication channel with a specified capacity and code redundancy.

pascalCopy code
program ChannelTransmissionTime;

var
  channelCapacity, codeRedundancy, infoSize, transmissionTime: real;

begin
  writeln('Enter the channel capacity (in Mbit/s): ');
  readln(channelCapacity);

  writeln('Enter the code redundancy (in decimal, e.g., 0.2 for 20%): ');
  readln(codeRedundancy);

  writeln('Enter the information size (in kB): ');
  readln(infoSize);

  // Convert information size to bits
  infoSize := infoSize * 8 * 1024; // 1 byte = 8 bits, 1 kB = 1024 bytes

  // Calculate the effective channel capacity with code redundancy
  channelCapacity := channelCapacity * (1 - codeRedundancy);

  // Calculate the transmission time
  transmissionTime := infoSize / channelCapacity;

  writeln('Transmission time: ', transmissionTime:0:2, ' seconds');
end.

Copy and paste this code into your Pascal compiler, and it will prompt you to enter the channel capacity, code redundancy, and information size. After you provide the inputs, it will calculate and display the transmission time in seconds.