Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
AC13
7 / 7 / 0
Регистрация: 13.09.2009
Сообщений: 264
#1

JPSS Word - C++

20.05.2010, 12:17. Просмотров 620. Ответов 0
Метки нет (Все метки)

Очень нужна помощь в переводе программы на GPSS Word из С++ или из GPSS/H.
Или подскажите, где можно помотреть, как это сделать.
Буду очень благодарна!!!

Вот задание:
В системе передачи цифровой информации передается речь в цифровом виде.
Речевые пакеты передаются через два транзитных канала, буферируясь в накопителях перед каждым каналом.
Время передачи пакета по каналу составляет 5 мс.
Пакеты поступают через 6+3мс.
Пакеты, передававшиеся более 10 мс, на выходе системы уничтожаются, так как их появление в декодере значительно снизит качество передаваемой речи.
Уничтожение более 30% пакетов недопустимо.
При достижении такого уровня система за счет ресурсов ускоряет передачу до 4 мс на канал.
При снижении уровня до приемлемого происходит отключение ресурсов.
Смоделировать 10с работы системы.
Определить частоту уничтожения пакетов и частоту подключения ресурса.

Код программы на С++:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
#include <iostream.h>
#include <conio.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
void main()
{
clrscr();
randomize();
//============================
float m[4],t=0,tk=1000,ocher[4][100],pered[100],r,fdel=0,fob=0,fobr=0,rez=0;
int speed=5,priwlo=0,obsl=0,obslr=0,del=0,i,k,l[4];
//============================
m[1]=0;
m[2]=m[1]+5;
m[3]=m[2]+5;
for(k=0;k<5;l[k++]=0);
//============================
_1: if(t<tk){
//============================
i=1;
t=m[1];
for(int j=2;j<=3;j++){
    if (m[j]<t){
         t=m[j];
         i=j;
       };
   };
//============================
if(i==1){
  priwlo++;
  l[1]++;
  ocher[1][l[1]]=m[1];
  l[3]++;
  pered[l[3]]=m[1];
    r=rand()%1000;
    r=r/1000;
    m[1]+=6+3*(2*r-1);
  goto _1;
  }else{
//============================
  fdel=del;
  fob=obsl;
  fobr=obslr;
  if((fob!=0)||(fobr!=0)){rez=(fdel/(fob+fobr))*100;}else{rez=0;};
  if(rez<=30){speed=5;}else{speed=4;};
  if(i==2){
      if(l[1]!=0){
        m[2]+=speed;
        l[2]++;
        ocher[2][l[2]]=m[2];
        l[1]--;
        for(k=1;k<l[1];ocher[1][k]=ocher[1][k+1],k++);
        }else{m[2]=m[1];};
      goto _1;
    }else{
      if(l[2]!=0){
        //=======================================
          m[3]+=speed;
          l[2]--;
          for(k=1;k<l[2];ocher[2][k]=ocher[2][k+1],k++);
          if((m[3]-pered[1])>10){
              del++;
             }else{
               if(speed==5){obsl++;}
          else{obslr++;};
             };
         l[3]--;
         for(k=1;k<l[3];pered[k]=pered[k+1],k++);
         goto _1;
        //=======================================
        }else{m[3]=m[2];};
      goto _1;
    };
 };
//============================
}; 
  fdel=del;
  fob=obsl;
  fobr=obslr;
//============================
cout<<"VREMYA RABOTI SISTEMI................"<<t<<endl;
cout<<"VSE ZAYAVKI......................... "<<priwlo<<endl;
cout<<"UNIZTOCHENO......................... "<<del<<endl;
cout<<"PEREDANO BEZ REZERVA................ "<<obsl<<endl;
cout<<"PEREDANO S REZERVOM................. "<<obslr<<endl;
cout<<"CHASTOTA UNIZTOCHENIYA PACETOV.."<<fdel/(fob+fobr)<<endl;
cout<<"CHASTOTA PODKLUCHENIA RESURSA..."<<fobr/(fob+fobr)<<endl;
//============================
getche();
Код программы на GPSS/H:
Perl 6
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
SIMULATE
    REAL &SCF
    REAL &FLD
    REAL &ADV
    REAL &SUM
    REAL &TEM
    REAL &VRE
    GENERATE 6,3
    MARK
    BLET &SUM=&SUM+1
    BLET &TEM=&FLD/&SUM
    TEST GE &SUM,5,NOR
    TEST GE &TEM,0.3,NOR
    LET &ADV=4
    TRANSFER ,OCH
NOR BLET &ADV=5
OCH TRANSFER .5,QU1,QU2
QU1 ADVANCE &ADV
    TEST LE M1,10,T1
    TRANSFER ,T2
QU2 ADVANCE &ADV
    TEST LE M1,10,T1
    TRANSFER ,T2
T2  BLET &SCF=&SCF+1
    BLET &VRE=M1
    SEIZE DCDR
    RELEASE DCDR
    TERMINATE 1
T1  BLET &FLD=&FLD+1
    BLET &VRE=M1
    TERMINATE
    START 10000
    TERMINATE 1
    END
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2010, 12:17     JPSS Word
Посмотрите здесь:

Outlook word-wrap & word-break в таблице - HTML, CSS
Суть проблемы: есть таблица и в её ячейке есть однословный длинный текст, который своей чистой длиной превосходит ширину таблицы. По логике...

1C 8.x Сохранение макета в Word (MXL --> таблица в Word) - 1С
Есть такой код: ............запрос ТаблицаДанных = Запрос.Выполнить().Выгрузить(); Режим =...

word-wrap: break-word и ячейки таблицы - HTML, CSS
Вот код: &lt;table style=&quot;width: 300px;&quot;&gt; &lt;tr&gt;&lt;td&gt;LALALA&amp;nbsp;&lt;/td&gt;&lt;td style=&quot;word-wrap: break-word; background:...

При копировании и сохранении в Word появляется "Microsoft Office Word - обнаружена ошибка" - MS Office
При копировании и сохранении в Word появляется &quot;Microsoft Office Word - обнаружена ошибка&quot;, предлагает пересохранить документы и все...

Создать стек из 6 элементов, типы Word+Char, вывести поле Char, если word>100 - Turbo Pascal
Здравствуйте, помогите пожалуйста решить зачачу. Нужно создать стек из 6 элементов, типы Word+Char, вывести поле Char, если word&gt;100 ...

Умножение word*word - Assembler
Доброго всем времени суток. Есть такой вопрос: Собственно при умножении word*word= dword. Результат храниться в dx:ax, как старшая...

Умножение Byte на Word и Word на Byte - Assembler
Есть ли какая-то разница при умножении 1) Байта на Ворд 2) Ворда на Байт ???? во втором случае я применил для Байта СBW в...

Проблема с $word=new COM("word.application") or die("Couldn ''t start Word!"); - PHP
Наблюдаю такую штуку - создаю объект Word $word=new COM(&quot;word.application&quot;) or die(&quot;Couldn ''t start Word!&quot;);выполяню всякие там приблуды...

MS Word 2003: как открыть файлы более новых версий Word? - MS Word
У меня стоит мс офис ворд 2003 года и то, что написано на намного более новых, просто не читает - вместо текста какие-то каракули. Что...

Работа метода Word.Selection.Find при поиске в документе Word - Delphi
Дорого времени суток! никак не могу разобраться в механизме работы range.find Запускаю: ......................... ...

Конвертирование PDF в Word. Word документ получился с режимом ограниченной функциональности - MS Word
Добрый день! Конвертировал я PDF документ в Word документ через Adobe Acrobate pro DC. Получился документ с текстом нанесённым на...

Нарушение форматирования документов word 2010 при открытии в word 2013 - MS Word
Здравия коллеги! Столкнулся с такой проблемой у человека W8+office2013 всё легальное, документы от офиса 2010 криво открываются, все!...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru