Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
jumper423
3 / 3 / 1
Регистрация: 01.03.2011
Сообщений: 87
1

Перевод Pascal на Delphi

17.04.2012, 20:39. Просмотров 355. Ответов 0
Метки нет (Все метки)

Здравствуйте.
Дорогие форумчани.
Помогите перевести программу написанную на Pascal-e на Delphi

Pascal
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
92
93
94
95
96
97
98
99
100
Program SMO;
uses crt;
Function fact(f:byte):longint;   {funkciya vi4isleniya factoriala}
 var i:byte;
     a:longint;
begin
    a:=1;
    for i:=1 to f do
      a:=a*i;
    fact:=a;
end;
Procedure odn_SMO;      {p.1.1}         {procedura vichisleniya  odnokan. SMO}
 var l,t_ob,m,q,a,v_otk,ne_ob:real;
Begin
     gotoxy(1,3);
     writeln('Odnokanalnaya SMO s otkazami v obslujivanii');
     writeln;
     writeln('Rassmotrim sistemy obslujivaniya avtomobiley na avtomojke');
     write('Vvedite intensivnost potoka avto(avto/chas): l=');
     readln(l);
     write('Vvedite srednee vremya obslujivaniya(chas): t_ob= ');
     readln(t_ob);
     writeln('Intensivnost potoka obslujivaniya: ');
       m:=1/t_ob;
     writeln('m=',m:0:3);
     writeln('Otnositelnaya propusknaya sposobnost:');
       q:=m/(l+m);
     writeln('q=',q:0:3);
     writeln('Obsolutnaya propusknaya sposobnost:');
       a:=l*q;
     writeln('A=',a:0:3);
     writeln('Veroyatnost otkaza:');
       v_otk:=l/(l+m);
     writeln('V_otk=',v_otk:0:3);
       ne_ob:=l*l/(l+m);
     writeln('Obshee 4islo neobslujennih za9vok=  ',ne_ob:0:3);
end;
                                  {funkciya vi4isleniya mnogokan. SMO}
Procedure mn_SMO;   {p.1.2}
   var l,m,t_ob,w,sum_erl,p0,p_otk,q,A,absl,sredn_zan,k:real;
      n,i:byte;
    p_erlanga:array[0..256] of real;      {massiv dlya hraneniya vremennih vichisleniya po formulam erlanga dlya n-kanalov}
Begin
     gotoxy(1,3);
     writeln('Mnogokanalnaya SMO s otkazami v obslujivanii');
     writeln;
     writeln('Rassmotrim n-kanalnyua sistemy vichislitelnogo centra');
     writeln('  c n=? vzaimozamenyaemymi EVM dlya resheniya postupaushix zadach');
     write(' kanalov n=');
     readln(n);
     write('vvedite intensivnost obslujivaniya (zadachi/chas): l=');
     readln(l);
     write('vvedite srednyuyu prodoljitelnost obslujivaniya (chas): t_ob=');
     readln(t_ob);
     writeln('Intensivnost potoka obslujivaniya: ');
     m:=1/t_ob;
     writeln('m=',m:0:3);
     writeln('Privedennaya intensivnost potoka zayavok: ');
     w:=l/m;
     writeln('w=',w:0:3);
     writeln('Naydem predelnie vero9tnosti sosto9niy kanalov po formulam Erlanga:');
     for i:=1 to n do
           p_erlanga[i]:=exp(ln(w)*i)/fact(i); {zapisivaem s massiv vremennie dannie,t.k. n-kanalov zaranee ne izvestno}
      sum_erl:=1;
      for i:=1 to n do
        sum_erl:=sum_erl+p_erlanga[i]; {summa znamenatelya formuli dlya vichislenia "p0"}
      p0:=1/sum_erl;
      for i:=1 to n do
           writeln('P',i,'=',p_erlanga[i]*p0:0:3); {vivod predelnih vero9tnostey kanalov}
      writeln('Vero9tnost otkaza v obslujivanii zayavki');
      p_otk:=p0;
      writeln('P_otk=P',n,'=',p0:0:3);
      writeln('Otnositelnaya propusknaya sposobnost:');
      q:=1-p_otk;   {otnosit propusknaya sposobnost}
      writeln('q=',q:0:3);
      writeln('Obsolutnaya propusknaya sposobnost:');
      A:=l*q;       {obsolut prop sposobnost}
      writeln('A=',A:0:3);
      writeln('srednee 4islo zan9tih kanalov:');
      k:=w*(1-p_otk); {srednee chislo zan9tih kanalov}
      writeln('k=',k:0:3);
  End;
    {nachalo}
var
     model:byte;
Begin
clrscr;  {o4istka ekrana}
writeln('Viberite sistemy : ');
writeln('(1) - Odnokanalnaya SMO s otkazami v obslujivanii ');
writeln('(2) - Mnogokanalnaya SMO s otkazami v obslujivanii ');
gotoxy(19,1);
readln(model); {schitivaem nomer modeli}
clrscr;
case model of      {vibor modeli}
1: odn_SMO;  {perehodim v procedury vichisleniya odnokanalnoi SMO}
2: mn_SMO;   {perehodim v procedury vichisleniya mnogokanalnoi SMO}
else writeln('Error! vibor ne verniy');
end;
readkey;  {jdem najatiya klavishi}
End.
Заранее большое спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.04.2012, 20:39
Ответы с готовыми решениями:

Перевод из Pascal в Delphi
всем привет. ребят помогите плиз нужно перевести эту прогу с паскаля в...

Перевод из Pascal в Delphi
Добрый день, с паскалям знаком, а вот с делфи работать не приходилось, не могли...

Перевод с Pascal на Delphi
Ребят, переведите кому не сложно, буду благодарна. program z1; var n,s,i :...

Перевод из Pascal в Delphi
В Delphi мало понимаю, помогите перевести или скажите какой-то принцип, что на...

Перевод из Pascal в Delphi
uses crt; const max=30; type TStud=record fam:string; oc:arrayof byte;...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2012, 20:39

Перевод кода из Pascal в delphi
Var a: array of integer; n, m, i, j, d, rez, main_sum, line_sum,...

Перевод массивов из Pascal в Delphi.
Диалоговое окно построю сам мне только то что будет закреплено за кнопкой...

Перевод кода из Pascal в Delphi
Возникла проблема. Я умею решать задачи на pascal но на delphi у меня...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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