Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 45000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свою работу

Изучение статистических характеристик дискретных сообщений

Номер заказа
115963
Создан
24 декабря 2013
Выполнен
4 января 1970
Стоимость работы
350
Не получается сделать. Надо срочно сделать отчёт по практике по программированию. Есть буквально 3 дня. Тема работы «Изучение статистических характеристик дискретных сообщений».
Всего было
12 предложений
Заказчик выбрал автора
Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 45000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свою работу
Или вы можете купить эту работу...
Страниц: 5
Оригинальность: Неизвестно
350
Не подошла
данная работа?
Вы можете заказать учебную работу
на любую интересующую вас тему
Заказать новую работу

Цель работы: Изучить статистические характеристики и освоить
методы расчета энтропии дискретных сообщений.
Язык Object Pascal
Задание на лабораторную работу:
1. Подготовить текст, содержащий не менее 1500 символов.
2. Подготовить программу, вычисляющую количество каждого
символа в данном тексте и их вероятности. Результаты
вычислений занести в таблицу 1.
3. Подсчитать количество пар символов. Результат занести в
таблицу 2.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ComCtrls,Math;
...
нет
Лист№ докум.ПодписьДатаЛист3s2,s3:integer;procedure Proverka;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin if OpenDialog1.Execute then begin Memo1.Lines.Clear; Memo1.Lines.LoadFromFile(OpenDialog1.FileName); a:=AnsiUpperCase(Memo1.Lines.Text); Proverka; end;end;procedure Proverka;beginfor i := 1 to length(a) dobeginif ((a[i]>='А') and (a[i]<='Я')) or (a[i]=' ') or (a[i]=',') or (a[i]='.') or (a[i]='-') or (a[i]=':') thenbegininc(m);end;end;if (m<1500) or (m=0) thenbeginShowMessage('Исходные текст не введен, либо текст содержит менее 1500 символов! Загрузите текст, содержащий не менее 1500 символов');Exit;endelsebeginShowMessage('Текст загружен');end;end;procedure TForm1.Button2Click(Sender: TObject);begins:=0;s1:=0;b:=' ,.-:АБВГ Показать все
Автор24 - это фриланс-биржа. Все работы, представленные на сайте, загружены нашими пользователями, которые согласились с правилами размещения работ на ресурсе и обладают всеми необходимыми авторскими правами на данные работы. Скачивая работу вы соглашаетесь с тем что она не будет выдана за свою, а будет использована исключительно как пример или первоисточник с обязательной ссылкой на авторство работы. Если вы правообладатель и считаете что данная работа здесь размещена без вашего разрешения - пожалуйста, заполните форму и мы обязательно удалим ее с сайта. Заполнить форму
Оценим бесплатно
за 10 минут
Эта работа вам не подошла?
У наших авторов вы можете заказать любую учебную работу от 200 руб.
Оформите заказ и авторы начнут откликаться уже через 10 минут!
Заказать отчёт по практике