Невозможно явно преобразовать тип real к типу string

@Andrey198219 · Регистрация: 13.01.2020

Студворк — интернет-сервис помощи студентам

Как обойти?

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
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
uses graphABC;
 var gx,gy,x0,y0{м},x1,y1,y2{перепад на торцах}:integer;{переменным присваиваем целочисленный тип данных}
 r{м},x,k,n,{коэфф. расхода}Po{плотность кг/м^3},P0{давление в Па},Pab{перепад давлений на торцах},k2{для шкалы},i{для шкалы},
 k3 {коэффициент для перепада на торцах},
 L1,A1,Q1,S11,S12,S1,H1,dP1,
 L2,A2,Q2,S21,S22,S2,H2,dP2,
 L3,A3,Q3,B3,S31,S32,S3,H3,dP3,
 L4,A4,Q4,B4,S41,S42,S4,H4,dP4:real;
 begin
    gx:= 2000;{устанавливаем значения в пикселях}
    gy:= 1000;{устанавливаем значения в пикселях}
    setwindowsize (gx,gy);{устанавливаем размер окна}
    x0:=gx div 2;{центр х}
    y0:=gy div 2;{центр y}
    
    line(1000,0,1000,1000);
    line(0,500,2000,500);
    
    {шкала Х}
    line(400,480,400,520);
    line(460,480,460,520);
    line(520,480,520,520);
    line(580,480,580,520);
    line(640,480,640,520);
    line(700,480,700,520);
    line(760,480,760,520);
    line(820,480,820,520);
    line(880,480,880,520);
    line(940,480,940,520);
    line(1000,480,1000,520); 
    line(1060,480,1060,520);
    line(1120,480,1120,520);
    line(1180,480,1180,520);
    line(1240,480,1240,520);
    line(1300,480,1300,520);
    line(1360,480,1360,520);
    line(1420,480,1420,520);
    line(1480,480,1480,520);
    line(1540,480,1540,520);
    line(1600,480,1600,520);
    
    
    {шкала Y}
   
    line(980,50,1020,50);
    line(980,100,1020,100);
    line(980,150,1020,150);
    line(980,200,1020,200);
    line(980,250,1020,250);
    line(980,300,1020,300);
    line(980,350,1020,350);
    line(980,400,1020,400);
    line(980,450,1020,450);
    line(980,500,1020,500);
    line(980,550,1020,550);
    line(980,600,1020,600);
    line(980,650,1020,650);
    line(980,700,1020,700);
    line(980,750,1020,750);
    line(980,800,1020,800);
    line(980,850,1020,850);
    line(980,900,1020,900);
    line(980,950,1020,950);
    k:=300000;{масштаб х1}
    k3:=0.0002{масштаб y2};
    k2:=225;
    
    
    {Цикл для цены деления}
    i:=-2.0;
    while i<=2 do 
    begin
      textout(x0+20,y0+i*k2,string(i));
      i:=i+0.2;
    end;
    
    
    
    
    
    
    
    {параметры гидравлической системы}
    r:= 0.0045;{радиус золотника,метр}
    n:=0.6;{назначаем коэффициент расхода жидкости} 
    Po:= 900;{назначаем плотность жидкости}
    P0:=2000000;{давление в Па}
    x:=-0.002{метр};
    while x<=0.002 do
      begin;
         //writeln ('     Смещение плунжера x =',x:0:6);
          {Площадь первого отверстия как функция х}
          L1:=0.001-sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          if L1<0.001 then L1:=0.001;
          //writeln ('длина хорды L =',L1);
    
          A1 := arcsin(L1/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A1 =',A1);
          S11:=Pi*r*r*2*A1/(2*Pi)-0.5*Sqr(r)*sin(2*A1);{площадь сегмента} 
          //writeln ('площадь сегмента S11 =',S11);
   
          H1:= 0.0005-L1/2*(sin(A1/2)/cos(A1/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H =',H1);
          S12:=L1*H1;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S12 =',S12);
    
          S1:=S11+S12;
          //writeln ('Площадь отверстия f1 =',S1:0:15);
    
          {Падение давления на первом отверстии}
    
    
    
    
    
    
    
          {Площадь второго отверстия как функция х}
          L2:=0.001+sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          if L2<0.001 then L2:=0.001;
          // writeln ('длина хорды L2 =',L2);
    
          A2 := arcsin(L2/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A2 =',A2);
   
          S21:=Pi*r*r*2*A2/(2*Pi)-0.5*Sqr(r)*sin(2*A2);{площадь сегмента} 
          // writeln ('площадь сегмента S21 =',S21);
   
          H2:= 0.0005-L2/2*(sin(A2/2)/cos(A2/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H2 =',H2);
          S22:=L2*H2;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S22 =',S22);
    
          S2:=S21+S22;
          //writeln ('Площадь отверстия f2 =',S2:0:15);
    
          {Падение давления на втором отверстии}
    
   
   
    
    
    
    
    
    
    
    
    
    
          {Площадь третьего отверстия как функция х}
          L3:=0.00184+sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          B3:=arcsin(Abs(x+0.0015)/0.0005);
          if L3<0.00097 then L3:=0.0005*cos(B3)*2;
    
          //writeln ('длина хорды L3 =',L3);
    
          A3 := arcsin(L3/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A3 =',A3);
   
          S31:=Pi*r*r*2*A3/(2*Pi)-0.5*Sqr(r)*sin(2*A3);{площадь сегмента} 
          //writeln ('площадь сегмента S31 =',S31);
   
          H3:= 0.0005-L3/2*(sin(A3/2)/cos(A3/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H3 =',H3);
          S32:=L3*H3;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S32 =',S32);
    
          S3:=S31+S32;
          //writeln ('Площадь отверстия f3 =',S3:0:15);
    
          {Падение давления на третьем отверстии}
    
          dP3:= P0*sqr(S1)/(sqr(S1)+sqr(S3));
    
          //writeln ('Падение давления на третьем отверстии dP3 = ',dP3);
    
    
    
    
    
    
    
    
    
          {Площадь четвертого отверстия как функция х}
          L4:=0.00184-sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          B4:=arcsin(Abs(x-0.0015)/0.0005);
          if L4<0.00097 then L4:=0.0005*cos(B4)*2;
          //writeln ('длина хорды L4 =',L4);
    
          A4 := arcsin(L4/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A4 =',A4);
   
          S41:=Pi*r*r*2*A4/(2*Pi)-0.5*Sqr(r)*sin(2*A4);{площадь сегмента} 
          // writeln ('площадь сегмента S41 =',S41);
   
          H4:= 0.0005-L4/2*(sin(A4/2)/cos(A4/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H4 =',H4);
          S42:=L4*H4;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S42 =',S42);
    
          S4:=S41+S42;
          //writeln ('Площадь отверстия f4 =',S4:0:15);
    
          {Падение давления на четвертом отверстии}
          dP4:= P0*sqr(S2)/(sqr(S2)+sqr(S4));
          //writeln ('Падение давления на четвертом отверстии dP4 = ',dP4:0:15);
    
    
    
    
    
          Q1:=sqrt(P0*2*sqr(n)*sqr(S1)*sqr(S3)/(Po*sqr(S3)+Po*sqr(S1)));
          //writeln ('Расход Q1(м^3/с)=',Q1:0:15);
    
    
    
    
          Pab:= dP3-dP4;
          //writeln ('Перепад давлений на торцах плунжера золотника Pab = ',Pab);
          x1:=x0+round(x*k);
          y2:=y0+round(Pab*k3);
          //writeln ('y2 =',y2);
          circle(x1,y2,1);
          // writeln ('x1 = ',x1);
   
          x:=x+0.000001;
          end;
    
    
    
    
    
    
    
   
end.

@JuriiMW · 22.01.2020, 06:08

Что значит „обойти“?
Ошибки нужно исправлять, а не искать обходные пути!

У вас i действительные, которое преобразуется в строку с помощью функции FloatToStr или методом .ToString.

@Andrey198219 · 22.01.2020, 06:54 **[ТС]**

А сейчас что ему надо? Теперь i как строка и ,y0+i*k2 не отработает, правильно?

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
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
uses graphABC;
 var gx,gy,x0,y0{м},x1,y1,y2{перепад на торцах}:integer;{переменным присваиваем целочисленный тип данных}
 r{м},x,k,n,{коэфф. расхода}Po{плотность кг/м^3},P0{давление в Па},Pab{перепад давлений на торцах},k2{для шкалы},i{для шкалы},
 k3 {коэффициент для перепада на торцах},
 L1,A1,Q1,S11,S12,S1,H1,dP1,
 L2,A2,Q2,S21,S22,S2,H2,dP2,
 L3,A3,Q3,B3,S31,S32,S3,H3,dP3,
 L4,A4,Q4,B4,S41,S42,S4,H4,dP4:real;
 begin
    gx:= 2000;{устанавливаем значения в пикселях}
    gy:= 1000;{устанавливаем значения в пикселях}
    setwindowsize (gx,gy);{устанавливаем размер окна}
    x0:=gx div 2;{центр х}
    y0:=gy div 2;{центр y}
    
    line(1000,0,1000,1000);
    line(0,500,2000,500);
    
    {шкала Х}
    line(400,480,400,520);
    line(460,480,460,520);
    line(520,480,520,520);
    line(580,480,580,520);
    line(640,480,640,520);
    line(700,480,700,520);
    line(760,480,760,520);
    line(820,480,820,520);
    line(880,480,880,520);
    line(940,480,940,520);
    line(1000,480,1000,520); 
    line(1060,480,1060,520);
    line(1120,480,1120,520);
    line(1180,480,1180,520);
    line(1240,480,1240,520);
    line(1300,480,1300,520);
    line(1360,480,1360,520);
    line(1420,480,1420,520);
    line(1480,480,1480,520);
    line(1540,480,1540,520);
    line(1600,480,1600,520);
    
    
    {шкала Y}
   
    line(980,50,1020,50);
    line(980,100,1020,100);
    line(980,150,1020,150);
    line(980,200,1020,200);
    line(980,250,1020,250);
    line(980,300,1020,300);
    line(980,350,1020,350);
    line(980,400,1020,400);
    line(980,450,1020,450);
    line(980,500,1020,500);
    line(980,550,1020,550);
    line(980,600,1020,600);
    line(980,650,1020,650);
    line(980,700,1020,700);
    line(980,750,1020,750);
    line(980,800,1020,800);
    line(980,850,1020,850);
    line(980,900,1020,900);
    line(980,950,1020,950);
    k:=300000;{масштаб х1}
    k3:=0.0002{масштаб y2};
    k2:=225;
    
    
    {Цикл для цены деления}
    i:=-2.0;
    while i<=2 do 
    begin
      FloatToStr(i);
      textout(x0+20,y0+i*k2,i);
      i:=i+0.2;
    end;
    
    
    
    
    
    
    
    {параметры гидравлической системы}
    r:= 0.0045;{радиус золотника,метр}
    n:=0.6;{назначаем коэффициент расхода жидкости} 
    Po:= 900;{назначаем плотность жидкости}
    P0:=2000000;{давление в Па}
    x:=-0.002{метр};
    while x<=0.002 do
      begin;
         //writeln ('     Смещение плунжера x =',x:0:6);
          {Площадь первого отверстия как функция х}
          L1:=0.001-sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          if L1<0.001 then L1:=0.001;
          //writeln ('длина хорды L =',L1);
    
          A1 := arcsin(L1/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A1 =',A1);
          S11:=Pi*r*r*2*A1/(2*Pi)-0.5*Sqr(r)*sin(2*A1);{площадь сегмента} 
          //writeln ('площадь сегмента S11 =',S11);
   
          H1:= 0.0005-L1/2*(sin(A1/2)/cos(A1/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H =',H1);
          S12:=L1*H1;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S12 =',S12);
    
          S1:=S11+S12;
          //writeln ('Площадь отверстия f1 =',S1:0:15);
    
          {Падение давления на первом отверстии}
    
    
    
    
    
    
    
          {Площадь второго отверстия как функция х}
          L2:=0.001+sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          if L2<0.001 then L2:=0.001;
          // writeln ('длина хорды L2 =',L2);
    
          A2 := arcsin(L2/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A2 =',A2);
   
          S21:=Pi*r*r*2*A2/(2*Pi)-0.5*Sqr(r)*sin(2*A2);{площадь сегмента} 
          // writeln ('площадь сегмента S21 =',S21);
   
          H2:= 0.0005-L2/2*(sin(A2/2)/cos(A2/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H2 =',H2);
          S22:=L2*H2;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S22 =',S22);
    
          S2:=S21+S22;
          //writeln ('Площадь отверстия f2 =',S2:0:15);
    
          {Падение давления на втором отверстии}
    
   
   
    
    
    
    
    
    
    
    
    
    
          {Площадь третьего отверстия как функция х}
          L3:=0.00184+sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          B3:=arcsin(Abs(x+0.0015)/0.0005);
          if L3<0.00097 then L3:=0.0005*cos(B3)*2;
    
          //writeln ('длина хорды L3 =',L3);
    
          A3 := arcsin(L3/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A3 =',A3);
   
          S31:=Pi*r*r*2*A3/(2*Pi)-0.5*Sqr(r)*sin(2*A3);{площадь сегмента} 
          //writeln ('площадь сегмента S31 =',S31);
   
          H3:= 0.0005-L3/2*(sin(A3/2)/cos(A3/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H3 =',H3);
          S32:=L3*H3;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S32 =',S32);
    
          S3:=S31+S32;
          //writeln ('Площадь отверстия f3 =',S3:0:15);
    
          {Падение давления на третьем отверстии}
    
          dP3:= P0*sqr(S1)/(sqr(S1)+sqr(S3));
    
          //writeln ('Падение давления на третьем отверстии dP3 = ',dP3);
    
    
    
    
    
    
    
    
    
          {Площадь четвертого отверстия как функция х}
          L4:=0.00184-sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          B4:=arcsin(Abs(x-0.0015)/0.0005);
          if L4<0.00097 then L4:=0.0005*cos(B4)*2;
          //writeln ('длина хорды L4 =',L4);
    
          A4 := arcsin(L4/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A4 =',A4);
   
          S41:=Pi*r*r*2*A4/(2*Pi)-0.5*Sqr(r)*sin(2*A4);{площадь сегмента} 
          // writeln ('площадь сегмента S41 =',S41);
   
          H4:= 0.0005-L4/2*(sin(A4/2)/cos(A4/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H4 =',H4);
          S42:=L4*H4;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S42 =',S42);
    
          S4:=S41+S42;
          //writeln ('Площадь отверстия f4 =',S4:0:15);
    
          {Падение давления на четвертом отверстии}
          dP4:= P0*sqr(S2)/(sqr(S2)+sqr(S4));
          //writeln ('Падение давления на четвертом отверстии dP4 = ',dP4:0:15);
    
    
    
    
    
          Q1:=sqrt(P0*2*sqr(n)*sqr(S1)*sqr(S3)/(Po*sqr(S3)+Po*sqr(S1)));
          //writeln ('Расход Q1(м^3/с)=',Q1:0:15);
    
    
    
    
          Pab:= dP3-dP4;
          //writeln ('Перепад давлений на торцах плунжера золотника Pab = ',Pab);
          x1:=x0+round(x*k);
          y2:=y0+round(Pab*k3);
          //writeln ('y2 =',y2);
          circle(x1,y2,1);
          // writeln ('x1 = ',x1);
   
          x:=x+0.000001;
          end;
    
    
    
    
    
    
    
   
end.

@JuriiMW · 22.01.2020, 07:12

Andrey198219, какого типа у вас i?
А какого типа у вас k?
Так какого типа значение выражения y0+i*k2?
Ну и какого типа должны быть параметры данной процедуры?

@Puporev · 22.01.2020, 09:35

Pascal
1
2
3
4
5
6
7
{Цикл для цены деления}
    i:=-2.0;
    while i<=2 do 
    begin
      textout(x0+20,y0+round(i*k2),floattostr(i));
      i:=i+0.2;
    end;

@Andrey198219 · 22.01.2020, 10:22 **[ТС]**

А откуда берется такое значение?

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
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
 uses graphABC;
 var gx,gy,x0,y0{м},x1,y1,y2{перепад на торцах}:integer;{переменным присваиваем целочисленный тип данных}
 r{м},x,k,n,{коэфф. расхода}Po{плотность кг/м^3},P0{давление в Па},Pab{перепад давлений на торцах},k2{для шкалы},i{для шкалы},i1,
 k3 {коэффициент для перепада на торцах},
 L1,A1,Q1,S11,S12,S1,H1,dP1,
 L2,A2,Q2,S21,S22,S2,H2,dP2,
 L3,A3,Q3,B3,S31,S32,S3,H3,dP3,
 L4,A4,Q4,B4,S41,S42,S4,H4,dP4:real;
 begin
    gx:= 2000;{устанавливаем значения в пикселях}
    gy:= 1000;{устанавливаем значения в пикселях}
    setwindowsize (gx,gy);{устанавливаем размер окна}
    x0:=gx div 2;{центр х}
    y0:=gy div 2;{центр y}
    
    line(1000,0,1000,1000);
    line(0,500,2000,500);
    
    {шкала Х}
    line(400,480,400,520);
    line(460,480,460,520);
    line(520,480,520,520);
    line(580,480,580,520);
    line(640,480,640,520);
    line(700,480,700,520);
    line(760,480,760,520);
    line(820,480,820,520);
    line(880,480,880,520);
    line(940,480,940,520);
    line(1000,480,1000,520); 
    line(1060,480,1060,520);
    line(1120,480,1120,520);
    line(1180,480,1180,520);
    line(1240,480,1240,520);
    line(1300,480,1300,520);
    line(1360,480,1360,520);
    line(1420,480,1420,520);
    line(1480,480,1480,520);
    line(1540,480,1540,520);
    line(1600,480,1600,520);
    
    
    {шкала Y}
   
    line(980,50,1020,50);
    line(980,100,1020,100);
    line(980,150,1020,150);
    line(980,200,1020,200);
    line(980,250,1020,250);
    line(980,300,1020,300);
    line(980,350,1020,350);
    line(980,400,1020,400);
    line(980,450,1020,450);
    line(980,500,1020,500);
    line(980,550,1020,550);
    line(980,600,1020,600);
    line(980,650,1020,650);
    line(980,700,1020,700);
    line(980,750,1020,750);
    line(980,800,1020,800);
    line(980,850,1020,850);
    line(980,900,1020,900);
    line(980,950,1020,950);
    k:=300000;{масштаб х1}
    k3:=0.0002{масштаб y2};
    k2:=225;
    
    
    {Цикл для цены деления}
    {Цикл для цены деления}
    i:=-2.0;
    while i<=2 do
      begin
      textout(x0+20,y0-10+round(i*k2),floattostr(i));
      i:=i+0.2;
      end;
    
    
    
    
    
    
    
    {параметры гидравлической системы}
    r:= 0.0045;{радиус золотника,метр}
    n:=0.6;{назначаем коэффициент расхода жидкости} 
    Po:= 900;{назначаем плотность жидкости}
    P0:=2000000;{давление в Па}
    x:=-0.002{метр};
    while x<=0.002 do
      begin;
         //writeln ('     Смещение плунжера x =',x:0:6);
          {Площадь первого отверстия как функция х}
          L1:=0.001-sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          if L1<0.001 then L1:=0.001;
          //writeln ('длина хорды L =',L1);
    
          A1 := arcsin(L1/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A1 =',A1);
          S11:=Pi*r*r*2*A1/(2*Pi)-0.5*Sqr(r)*sin(2*A1);{площадь сегмента} 
          //writeln ('площадь сегмента S11 =',S11);
   
          H1:= 0.0005-L1/2*(sin(A1/2)/cos(A1/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H =',H1);
          S12:=L1*H1;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S12 =',S12);
    
          S1:=S11+S12;
          //writeln ('Площадь отверстия f1 =',S1:0:15);
    
          {Падение давления на первом отверстии}
    
    
    
    
    
    
    
          {Площадь второго отверстия как функция х}
          L2:=0.001+sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          if L2<0.001 then L2:=0.001;
          // writeln ('длина хорды L2 =',L2);
    
          A2 := arcsin(L2/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A2 =',A2);
   
          S21:=Pi*r*r*2*A2/(2*Pi)-0.5*Sqr(r)*sin(2*A2);{площадь сегмента} 
          // writeln ('площадь сегмента S21 =',S21);
   
          H2:= 0.0005-L2/2*(sin(A2/2)/cos(A2/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H2 =',H2);
          S22:=L2*H2;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S22 =',S22);
    
          S2:=S21+S22;
          //writeln ('Площадь отверстия f2 =',S2:0:15);
    
          {Падение давления на втором отверстии}
    
   
   
    
    
    
    
    
    
    
    
    
    
          {Площадь третьего отверстия как функция х}
          L3:=0.00184+sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          B3:=arcsin(Abs(x+0.0015)/0.0005);
          if L3<0.00097 then L3:=0.0005*cos(B3)*2;
    
          //writeln ('длина хорды L3 =',L3);
    
          A3 := arcsin(L3/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A3 =',A3);
   
          S31:=Pi*r*r*2*A3/(2*Pi)-0.5*Sqr(r)*sin(2*A3);{площадь сегмента} 
          //writeln ('площадь сегмента S31 =',S31);
   
          H3:= 0.0005-L3/2*(sin(A3/2)/cos(A3/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H3 =',H3);
          S32:=L3*H3;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S32 =',S32);
    
          S3:=S31+S32;
          //writeln ('Площадь отверстия f3 =',S3:0:15);
    
          {Падение давления на третьем отверстии}
    
          dP3:= P0*sqr(S1)/(sqr(S1)+sqr(S3));
    
          //writeln ('Падение давления на третьем отверстии dP3 = ',dP3);
    
    
    
    
    
    
    
    
    
          {Площадь четвертого отверстия как функция х}
          L4:=0.00184-sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
          B4:=arcsin(Abs(x-0.0015)/0.0005);
          if L4<0.00097 then L4:=0.0005*cos(B4)*2;
          //writeln ('длина хорды L4 =',L4);
    
          A4 := arcsin(L4/(2*r));{вычисление угла}
          //writeln ('Половинный угол в радианах A4 =',A4);
   
          S41:=Pi*r*r*2*A4/(2*Pi)-0.5*Sqr(r)*sin(2*A4);{площадь сегмента} 
          // writeln ('площадь сегмента S41 =',S41);
   
          H4:= 0.0005-L4/2*(sin(A4/2)/cos(A4/2));{высота прямоугольной части отверстия} 
          //writeln ('Высота прямоугольной части отверстия H4 =',H4);
          S42:=L4*H4;{площадь прямоугольной части отверстия}
          //writeln ('площадь прямоугольной части отверстия S42 =',S42);
    
          S4:=S41+S42;
          //writeln ('Площадь отверстия f4 =',S4:0:15);
    
          {Падение давления на четвертом отверстии}
          dP4:= P0*sqr(S2)/(sqr(S2)+sqr(S4));
          //writeln ('Падение давления на четвертом отверстии dP4 = ',dP4:0:15);
    
    
    
    
    
          Q1:=sqrt(P0*2*sqr(n)*sqr(S1)*sqr(S3)/(Po*sqr(S3)+Po*sqr(S1)));
          //writeln ('Расход Q1(м^3/с)=',Q1:0:15);
    
    
    
    
          Pab:= dP3-dP4;
          //writeln ('Перепад давлений на торцах плунжера золотника Pab = ',Pab);
          x1:=x0+round(x*k);
          y2:=y0+round(Pab*k3);
          //writeln ('y2 =',y2);
          circle(x1,y2,1);
          // writeln ('x1 = ',x1);
   
          x:=x+0.0000001;
          end;
    
    
    
    
    
    
    
   
end.

@JuriiMW · 22.01.2020, 10:29

Ну это вы его сделали.
Попробуйте представить значение –2 в двоичной системе счисления.
А потом попробуйте перевести в двоичную СС число 0.2
Ну и, наконец, попробуйте в двоичной СС десять раз прибавить к первому числу второе…

Ну или попробуйте воспользоваться форматированием:
FloatToStr(i) —> $'{i:f1}'

@Andrey198219 · 22.01.2020, 10:35 **[ТС]**

А можно просто десятый шаг цикла исключить?

Добавлено через 3 минуты
JuriiMW, ну или покажите, как эта запись в программе будет выглядеть?

@Puporev · 22.01.2020, 10:39

Эта что ли?

Pascal
1
textout(x0+20,y0+round(i*k2),$'{i:f1}');

@Andrey198219 · 22.01.2020, 10:46 **[ТС]**

Добавлено через 3 минуты
Все получилось.
А f1 какой смыл несет? Как $ называется? какой смысл он несет?

@ProMix0 · 22.01.2020, 11:27

Сообщение от Andrey198219

Как $ называется?

Доллар

Сообщение от Andrey198219

какой смысл он несет?

Форматная строка

Сообщение от Andrey198219

А f1 какой смыл несет?

Количество знаков для для целой части

@Соколиный глаз · 22.01.2020, 11:29

Сообщение от Andrey198219

$ называется?

Interpolated strings.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

Невозможно явно преобразовать тип real к типу string

Решение

Решение

Решение

@JuriiMW 5096 / 2662 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	22.01.2020, 06:08
	Сообщение было отмечено Andrey198219 как решение Решение Что значит „обойти“? Ошибки нужно исправлять, а не искать обходные пути! У вас `i` действительные, которое преобразуется в строку с помощью функции `FloatToStr` или методом `.ToString`. 1

@JuriiMW 5096 / 2662 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	22.01.2020, 07:12
	Andrey198219, какого типа у вас `i`? А какого типа у вас `k`? Так какого типа значение выражения `y0+i*k2`? Ну и какого типа должны быть параметры данной процедуры? 0

@JuriiMW 5096 / 2662 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	22.01.2020, 10:29
	Ну это вы его сделали. Попробуйте представить значение –2 в двоичной системе счисления. А потом попробуйте перевести в двоичную СС число 0.2 Ну и, наконец, попробуйте в двоичной СС десять раз прибавить к первому числу второе… Ну или попробуйте воспользоваться форматированием: `FloatToStr(i)` —> `$'{i:f1}'` 0

@Andrey198219 0 / 0 / 0 Регистрация: 13.01.2020 Сообщений: 19
	22.01.2020, 10:35 [ТС]
	А можно просто десятый шаг цикла исключить? Добавлено через 3 минуты JuriiMW, ну или покажите, как эта запись в программе будет выглядеть? 0

@Andrey198219 0 / 0 / 0 Регистрация: 13.01.2020 Сообщений: 19
	22.01.2020, 10:46 [ТС]
	Добавлено через 3 минуты Все получилось. А f1 какой смыл несет? Как $ называется? какой смысл он несет? 0