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

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

Номер заказа
115963
Создан
24 декабря 2013
Выполнен
27 декабря 2013
Стоимость работы
350
Не получается сделать. Надо срочно сделать отчёт по практике по программированию. Есть буквально 3 дня. Тема работы «Изучение статистических характеристик дискретных сообщений».
Всего было
12 предложений
Заказчик выбрал автора
Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 72000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свой Отчёт по практике
Или вы можете купить эту работу...
Страниц: 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 минут!
Заказать отчёт по практике