Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
2 / 2 / 0
Регистрация: 16.03.2012
Сообщений: 20
1

Модули в Паскале

10.06.2013, 21:31. Просмотров 345. Ответов 0
Метки нет (Все метки)


Здраствуйте, не могли бы Вы мне помочь. Мне нужно эту программу сделать только с модулями, но у меня не получается =( Помогите пожалуйста.
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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
Program RungeKytt;
Uses CRT,Graph;
Type
 Massiv=array [1..101] of double;
Const
 R1=8;
 R2=15;
 C=0.05;
 L=0.5;
 Uc=1;
 h=0.01;
 epsilon=0.01;
Var
 i: byte;
 s1: string;
 dt,y1,y2,y1p,y2p,y1k,y2k: Massiv;
 k11,k12,k21,k22,k31,k32,k41,k42,kx,ky,maxy,miny,a1,a2,a3,a4,b1,b2,b3,b4: double;
 grDriver,ErrCode,grMode: Integer;
 
BEGIN
 
 {Metod Runge-Kutta}
 ClrScr;
 dt[1]:=0;
 y1[1]:=Uc;
 y2[1]:=0;
 y1p[1]:=Uc;
 y2p[1]:=0;
 y1k[1]:=Uc;
 y2k[1]:=0;
 i:=1;
 writeln('dt':5,'y1':12,'y2':12,'y1p':12,'y2p':12,'y1k':12,'y2k':12);
 window(1,2,79,24);
 writeln(dt[1]:6:2,y1[1]:12:4,y2[1]:12:4,y1p[1]:12:4,y2p[1]:12:4,y1k[1]:12:4,y2k[1]:12:4);
 repeat
  k11:=-y1[i]/(C*(R1+R2))+R2*y2[i]/(C*(R1+R2));
  k12:=(-1/L+R1/(L*(R1+R2)))*y1[i]-R1*R2*y2[i]/(L*(R1+R2));
  k21:=-1*(y1[i]+h*k11/2)/(C*(R1+R2))+R2*(y2[i]+h*k12/2)/(C*(R1+R2));
  k22:=(-1/L+R1/(L*(R1+R2)))*(y1[i]+h*k11/2)-R1*R2*(y2[i]+h*k12/2)/(L*(R1+R2));
  k31:=-1*(y1[i]+h*k21/2)/(C*(R1+R2))+R2*(y2[i]+h*k22/2)/(C*(R1+R2));
  k32:=(-1/L+R1/(L*(R1+R2)))*(y1[i]+h*k21/2)-R1*R2*(y2[i]+h*k22/2)/(L*(R1+R2));
  k41:=-1*(y1[i]+h*k31)/(C*(R1+R2))+R2*(y2[i]+h*k32)/(C*(R1+R2));
  k42:=(-1/L+R1/(L*(R1+R2)))*(y1[i]+h*k31)-R1*R2*(y2[i]+h*k32)/(L*(R1+R2));;
  i:=i+1;
  dt[i]:=dt[i-1]+h;
  y1[i]:=y1[i-1]+h/6*(k11+2*k21+2*k31+k41);
  y2[i]:=y2[i-1]+h/6*(k12+2*k22+2*k32+k42);
  {writeln(i:8,dt[i]:9:2,y1[i]:13:5,y2[i]:12:5);}
 until i>100;
 
 {Metod Prognoza i Korrektsii}
 for i:=2 to 4 do
 begin
  y1p[i]:=y1[i];
  y2p[i]:=y2[i];
  y1k[i]:=y1[i];
  y2k[i]:=y2[i];
 end;
 y1p[1]:=Uc;
 y2p[1]:=0;
 y1k[1]:=Uc;
 y2k[1]:=0;
 for i:=2 to 4 do
  writeln(dt[i]:6:2,y1[i]:12:4,y2[i]:12:4,y1p[i]:12:4,y2p[i]:12:4,y1k[i]:12:4,y2k[i]:12:4);
 repeat
  i:=i+1;
  a1:=-y1p[i-1]/(C*(R1+R2))+R2*y2p[i-1]/(C*(R1+R2));
  a2:=-y1p[i-2]/(C*(R1+R2))+R2*y2p[i-2]/(C*(R1+R2));
  a3:=-y1p[i-3]/(C*(R1+R2))+R2*y2p[i-3]/(C*(R1+R2));
  a4:=-y1p[i-4]/(C*(R1+R2))+R2*y2p[i-4]/(C*(R1+R2));
  b1:=(-1/L+R1/(L*(R1+R2)))*y1p[i-1]-R1*R2*y2p[i-1]/(L*(R1+R2));
  b2:=(-1/L+R1/(L*(R1+R2)))*y1p[i-2]-R1*R2*y2p[i-2]/(L*(R1+R2));
  b3:=(-1/L+R1/(L*(R1+R2)))*y1p[i-3]-R1*R2*y2p[i-3]/(L*(R1+R2));
  b4:=(-1/L+R1/(L*(R1+R2)))*y1p[i-4]-R1*R2*y2p[i-4]/(L*(R1+R2));
  y1p[i]:=y1p[i-1]+h/24*(55*a1-59*a2+37*a3-9*a4);
  y2p[i]:=y2p[i-1]+h/24*(55*b1-59*b2+37*b3-9*b4);
  a1:=-y1k[i-1]/(C*(R1+R2))+R2*y2k[i-1]/(C*(R1+R2));
  a2:=-y1k[i-2]/(C*(R1+R2))+R2*y2k[i-2]/(C*(R1+R2));
  a3:=-y1k[i-3]/(C*(R1+R2))+R2*y2k[i-3]/(C*(R1+R2));
  a4:=-y1k[i-4]/(C*(R1+R2))+R2*y2k[i-4]/(C*(R1+R2));
  b1:=(-1/L+R1/(L*(R1+R2)))*y1k[i-1]-R1*R2*y2k[i-1]/(L*(R1+R2));
  b2:=(-1/L+R1/(L*(R1+R2)))*y1k[i-2]-R1*R2*y2k[i-2]/(L*(R1+R2));
  b3:=(-1/L+R1/(L*(R1+R2)))*y1k[i-3]-R1*R2*y2k[i-3]/(L*(R1+R2));
  b4:=(-1/L+R1/(L*(R1+R2)))*y1k[i-4]-R1*R2*y2k[i-4]/(L*(R1+R2));
  y1k[i]:=y1k[i-1]+h/24*(9*a1+19*a2-5*a3+a4);
  y2k[i]:=y2k[i-1]+h/24*(9*b1+19*b2-5*b3+b4);
  writeln(dt[i]:6:2,y1[i]:12:4,y2[i]:12:4,y1p[i]:12:4,y2p[i]:12:4,y1k[i]:12:4,y2k[i]:12:4);
  if i mod 22 = 0 then
   readln;
 until i>100;
 readln;
 
 {Postroenie Grafikov}
 
 y1[1]:=Uc;
 y2[1]:=0;
 maxy:=y1[1];
 for i:=1 to 100 do
  if abs(y1[i])>maxy then
   maxy:=abs(y1[i]);
 grDriver := Detect;
 InitGraph(grDriver, grMode,'c:\tp\bgi');
 ErrCode := GraphResult;
 if ErrCode = grOk then
 begin
  Line(50,GetMaxY div 2,GetMaxX-50,GetMaxY div 2);
  Line(50,30,50,GetMaxY-30);
  Line(50,30,45,35);
  Line(50,30,55,35);
  Line(GetMaxX-50,GetMaxY div 2,GetMaxX-55,(GetMaxY div 2)-5);
  Line(GetMaxX-50,GetMaxY div 2,GetMaxX-55,(GetMaxY div 2)+5);
  kx:=540/3;
  ky:=180/maxy;
  OutTextXY(50,15,'Y');
  OutTextXY(GetmaxX-45,(GetMaxY div 2)-10,'T');
  str(round(maxy),s1);
  OutTextXY(40,240-round(ky*maxy),s1);
  OutTextXY(50+round(kx*dt[20]),(GetMaxY div 2)+10,'0.6');
  OutTextXY(50+round(kx*dt[40]),(GetMaxY div 2)+10,'1.2');
  OutTextXY(50+round(kx*dt[60]),(GetMaxY div 2)+10,'1.8');
  OutTextXY(50+round(kx*dt[80]),(GetMaxY div 2)+10,'2.4');
  OutTextXY(50+round(kx*dt[100]),(GetMaxY div 2)+10,'3.0');
  SetLineStyle(0,0,3);
  for i:=2 to 100 do
  begin
   SetColor(red);
   Line(50+round(kx*dt[i-1]),240-round(ky*y1[i-1]),50+round(kx*dt[i]),240-round(ky*y1[i]));
   SetColor(LightBlue);
   Line(50+round(kx*dt[i-1]),240-round(ky*y1k[i-1]),50+round(kx*dt[i]),240-round(ky*y1k[i]));
  end;
 end
  else
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));
 Readln;
 CloseGraph;
 
 maxy:=y2[1];
 miny:=y2[1];
 for i:=1 to 100 do
 begin
  if abs(y2[i])>maxy then
   maxy:=abs(y2[i]);
  if y2[i]<miny then
   miny:=y2[i];
 end;
 grDriver := Detect;
 InitGraph(grDriver, grMode,'c:\tp\bgi');
 ErrCode := GraphResult;
 if ErrCode = grOk then
 begin
  Line(50,GetMaxY div 2,GetMaxX-50,GetMaxY div 2);
  Line(50,30,50,GetMaxY-30);
  Line(50,30,45,35);
  Line(50,30,55,35);
  Line(GetMaxX-50,GetMaxY div 2,GetMaxX-55,(GetMaxY div 2)-5);
  Line(GetMaxX-50,GetMaxY div 2,GetMaxX-55,(GetMaxY div 2)+5);
  kx:=540/3;
  ky:=180/maxy;
  OutTextXY(50,15,'Y');
  OutTextXY(GetmaxX-45,(GetMaxY div 2)-10,'T');
  str(miny:2:1,s1);
  OutTextXY(15,240-round(ky*miny),s1);
  OutTextXY(50+round(kx*dt[20]),(GetMaxY div 2)+10,'0.6');
  OutTextXY(50+round(kx*dt[40]),(GetMaxY div 2)+10,'1.2');
  OutTextXY(50+round(kx*dt[60]),(GetMaxY div 2)+10,'1.8');
  OutTextXY(50+round(kx*dt[80]),(GetMaxY div 2)+10,'2.4');
  OutTextXY(50+round(kx*dt[100]),(GetMaxY div 2)+10,'3.0');
  SetColor(LightGreen);
  SetLineStyle(0,0,3);
  for i:=2 to 100 do
  begin
   SetColor(red);
   Line(50+round(kx*dt[i-1]),240-round(ky*y2[i-1]),50+round(kx*dt[i]),240-round(ky*y2[i]));
   SetColor(LightBlue);
   Line(50+round(kx*dt[i-1]),240-round(ky*y2k[i-1]),50+round(kx*dt[i]),240-round(ky*y2k[i]));
  end;
 end
  else
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));
 Readln;
 CloseGraph;
END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2013, 21:31
Ответы с готовыми решениями:

модули в паскале
вот такая вот объемная программка,может кто сделает.Буду очень благодарен! Реализовать в виде...

Программа на паскале. на модули и структуры
Всем доброго времени суток! Пишу задание для практики на Паскале, по такому заданию Программа...

Как работает join и split в Паскале? И есть ли такие аналоги Питону в Паскале?
a=input() #из ' Hello world ' делаю 'Hello, world' a.strip(' ') a=', '.join(a.split(' ')) В...

Модули
Добрый день, такой вопрос , есть какая то литература или может кто подсказать где искать в...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2013, 21:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Модули
подскажите пожалуйста, какой модуль в режиме форума надо от ключить, чтобы не было частых лагов......

модули
Задание: http://pic.ipicture.ru/uploads/090516/VZPmBlJDLZ.jpg

Модули
Помогите пожайлуста: • оформить в виде модуля подпрограммы, получающие в качестве ...

Модули
помогите плиз завтро надо сдавать ваще хз как сделать... создать функции MyVal – преобразовать...


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

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

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