,   CyberForum.ru

++


 
Yur4a
: n/a
#1

Basic - C++

19.01.2013, 11:08. 190. 0
( )

-, Basic

PureBasic
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
10 PRINT'   '
20 INPUT' R3,RC,R'R1,R2,R3
30 INPUT' R,RH,R'R4,R5,R8
40 INPUT' ,,'C1,C2,C3
45 INPUT' 1,2,'C4,C5,C6
50 INPUT' S='S
60 LET R6=R1:LET R7=R3*R2/(R3+R2)
70 PRINT'R ='R6:PRINT'R ='R7
80 LET A=R2*R3*R5/(R2*R3+R2*R5+R3*R5)
90 LET K=(R1/(R1+R4))*S*A:PRINT'KU='K
100 LET K1=S*A:LET T1=(C1+C2*(1+K1))*R4*R1/(R4+R1)
110 LET T2=(C2+C3)*A:LET T3=R4*(C1+C2*C3/(C2+C3))
115 PRINT'TBX='T1,'T='T2
120 LET T4=T1+T2:LET M=T3*T2/T4^2
130 PRINT'H(P)=1/(1+P*T4+P^2*T4^2*M),'
140 PRINT'T4='T4:PRINT'M='M
150 LET T5=2.2*T4*SQR(1-2*M):LET D=S/2.2/(C1+C3)
160 PRINT'T ='T5:PRINT' ='D
170 PRINT'   '
180 LET T6=(R4+R1)*C4:LET T7=(R2+R5)*C5
190 LET T8=C6*R8/(R8*S+1)
200 PRINT'='T6,'T='T7,'T .='T8
210 INPUT'  ='T0
220 LET Z1=T0/T6:LET Z2=T0/T7:LET Z3=0:IF T8>0 THEN LET Z3=T0/T8
230 LET Z=Z1+Z2+Z3
240 PRINT'    Z='Z
250 GOTO 210:END
Similar
41792 / 34177 / 6122
: 12.04.2006
: 57,940
19.01.2013, 11:08     Basic
:

C++ Basic vs C++
Basic . C++
C++ Visual Basic ++
Visual basic C++ C++
C++ C++, C# Visual Basic
C++
Basic ++ C++
C++ visual basic C++
Basic C++
C++ C++
C++



:
.

: 13:25. GMT +3.
- , ,
-
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
@Mail.ru