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

JPSS Word - C++

Восстановить пароль Регистрация
 
AC13
 Аватар для AC13
7 / 7 / 0
Регистрация: 13.09.2009
Сообщений: 264
20.05.2010, 12:17     JPSS Word #1
Очень нужна помощь в переводе программы на 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
Посмотрите здесь:

C++ чтение из документа word
C++ Чтение Word файлов в C++
Hello Word C++
Работа с документами word C++
C++ запись в word,excel
C++ Создание ms word файла (*.doc) из c++
C++ и Word/Excel. Библиотеки C++

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

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

Текущее время: 13:04. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru