3 / 3 / 0
Регистрация: 11.09.2015
Сообщений: 96
1

Не могу найти ошибку в программе

28.12.2016, 18:34. Показов 450. Ответов 1
Метки нет (Все метки)

Не могу найти ошибку в программе

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
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
#include "stdafx.h" 
#include <iostream.h> 
#include <math.h> 
#include <fstream.h> 
#include <iomanip.h> 
int SLAU(double **matrica_a,int n,double *massiv_b,double *x) 
{ 
int i,j,k,r; 
double c,M,max,s, **a, *b; 
a=new double *[n]; 
for(i=0;i<n;i++) 
a[i]=new double[n]; 
b=new double [n]; 
for(i=0;i<n;i++) 
for(j=0;j<n;j++) 
a[i][j]=matrica_a[i][j]; 
for(i=0;i<n;i++) 
b[i]=massiv_b[i]; 
for(k=0;k<n;k++) 
{ 
max=fabs(a[k][k]); 
r=k; 
for(i=k+1;i<n;i++) 
if(fabs(a[i][k])>max) 
{ 
max=fabs(a[i][k]); 
r=i; 
} 
for(j=0;j<n;j++) 
{ 
c=a[k][j]; 
a[k][j]=a[r][j]; 
a[r][j]=c; 
} 
c=b[k]; 
b[k]=b[r]; 
b[r]=c; 
for(i=k+1;i<n;i++) 
{ 
for(M=a[i][k]/a[k][k],j=k;j<n;j++) 
a[i][j]-=M*a[k][j]; 
b[i]-=M*b[k]; 
} 
} 
if(a[n-1][n-1]==0) 
if(b[n-1]==0) 
return -1; 
else return -2; 
else 
{ 
for(i=n-1;i>=0;i--) 
{ 
for(s=0,j=i+1;j<n;j++) 
s+=a[i][j]*x[j]; 
x[i]=(b[i]-s)/a[i][i]; 
} 
return 0; 
} 
for(i=0;i<n;i++) 
delete [] a[i]; 
delete [] a; 
delete [] b; 
} 
int main() 
{ 
ifstream F; 
ofstream f; 
int result,i,N=3,M=5,p; 
double **a,*b,*x,*R,E2,E4,Ik1,*I,S,Pist,Pnagr; 
a=new double *[N]; 
I=new double [M]; 
for(i=0;i<N;i++) 
a[i]=new double[N]; 
b=new double [N]; 
x=new double [N]; 
R=new double [M]; 
cout«"VbIbirite metod vvoda:"«endl; 
cout«"Vvod c ekrana - 1"«endl; 
cout«"Vvod c faula - 2"«endl; 
cout«"Metod - "; 
cin»p; 
if(p==1) 
{ 
cout«"R1="; cin»R[0]; 
cout«"R2="; cin»R[1]; 
cout«"R3="; cin»R[2]; 
cout«"R4="; cin»R[3]; 
cout«"R5="; cin»R[4]; 
cout«"R6="; cin»R[5]; 
cout«"E2="; cin»E2; 
cout«"E4="; cin»E4; 
cout«"Ik1="; cin»Ik1; 
} 
else 
{ 
F.open("D:\\111\\123.txt"); 
F»R[0]»R[1]»R[2]»R[3]»R[4]»R[5]»E2»E4»Ik1; 
F.close(); 
} 
a[0][0]=1/R[0]+1/R[1]+1/R[3]; 
a[0][1]=-1/R[1]; 
a[0][2]=-1/R[3]; 
a[1][0]=-1/R[1]; 
a[1][1]=1/R[1]+1/R[2]+1/R[5]; 
a[1][2]=-1/R[2]; 
a[2][0]=-1/R[3]; 
a[2][1]=-1/R[2]; 
a[2][2]=1/R[2]+1/R[3]+1/R[4]; 
b[0]=-E2/R[1]+E4/R[3]+Ik1; 
b[1]=E2/R[1]; 
b[2]=-E4/R[3]; 
result=SLAU(a,N,b,x); 
f.open("D:\\111\\rezult.txt"); 
if(result==0) 
{ 
for(i=0;i<N;i++) 
x[i]=-x[i]; 
cout«"Massiv X"«endl; 
for(i=0;i<N;i++) 
cout«x[i]«"\t"; 
cout«endl;"x[i]="; 
for(i=0;i<N;i++) 
if(i<N-1) f«x[i]«"\t"; 
else f«x[i]; 
I[0]=0-x[0]/R[0]; 
I[1]=x[0]-x[1]+E2/R[1]; 
I[2]=x[2]-x[1]/R[2]; 
I[3]=x[2]-x[0]+E4/R[3]; 
I[4]=0-x[2]/R[4]; 
I[5]=x[1]-0/R[5]; 
Pist=E2*I[1]+E4*I[3]-Ik1*I[0]*R[0]; 
f«endl; 
for(i=0,S=0;i<=M;i++) 
S+=I[i]*I[i]*R[i]; 
Pnagr=S; 
cout«"I[i]=";"I[i]="; 
for(i=0;i<=M;i++) 
{ 
cout«I[i]«"\t"; 
if(i<M-1) f«I[i]«"\t"; 
else f«I[i]; 
} 
cout«endl; 
cout«"Pist="«Pist«endl; 
cout«"Pnagr="«Pnagr«endl; 
f«endl;"Pist="«Pist«endl;"Pnagr="«Pnagr«endl; 
if(Pist==Pnagr) 
cout«"Balance mojnocteu covnadatt"«endl; 
else cout«"Balance mojnocteu ne covnadatt"«endl; 
f.close(); 
} 
else if(result==-1) 
{ 
cout«"beckone4noe mnojectvo rewenii";"beckone4noe mnojectvo rewenii"; 
} 
else if(result==-2) 
{ 
cout«"net rewenii";"net rewenii"; 
} 
for(i=0;i<N;i++) 
delete [] a[i]; 
delete [] a; 
delete [] b; 
delete [] x; 
return 0; 
}
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.12.2016, 18:34
Ответы с готовыми решениями:

Не могу найти ошибку в программе
Здравствуйте! Не могу понять, как полностью отладить программу. Определенное понимание о характере...

не могу ошибку найти в программе
#include &lt;iostream&gt; #include &lt;ctime&gt; #include &lt;cstdlib&gt; #include &lt;iomanip&gt; #include &lt;cmath&gt; ...

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

Не могу найти ошибку в программе
# include &lt;iostream&gt; #include &lt;string&gt; #include &lt;math.h&gt; void main() { string str; ...

1
1481 / 1198 / 819
Регистрация: 29.02.2016
Сообщений: 3,579
28.12.2016, 18:43 2
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
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
#include <iostream> 
#include <math.h> 
#include <fstream> 
#include <iomanip> 
using namespace std;
int SLAU(double **matrica_a,int n,double *massiv_b,double *x) 
{ 
    int i,j,k,r; 
    double c,M,max,s, **a, *b; 
    a=new double *[n]; 
    for(i=0;i<n;i++) 
        a[i]=new double[n]; 
    b=new double [n]; 
    for(i=0;i<n;i++) 
        for(j=0;j<n;j++) 
            a[i][j]=matrica_a[i][j]; 
    for(i=0;i<n;i++) 
        b[i]=massiv_b[i]; 
    for(k=0;k<n;k++) 
    { 
        max=fabs(a[k][k]); 
        r=k; 
        for(i=k+1;i<n;i++) 
            if(fabs(a[i][k])>max) 
            { 
                max=fabs(a[i][k]); 
                r=i; 
            } 
            for(j=0;j<n;j++) 
            { 
                c=a[k][j]; 
                a[k][j]=a[r][j]; 
                a[r][j]=c; 
            } 
            c=b[k]; 
            b[k]=b[r]; 
            b[r]=c; 
            for(i=k+1;i<n;i++) 
            { 
                for(M=a[i][k]/a[k][k],j=k;j<n;j++) 
                    a[i][j]-=M*a[k][j]; 
                b[i]-=M*b[k]; 
            } 
    } 
    if(a[n-1][n-1]==0) 
        if(b[n-1]==0) 
            return -1; 
        else return -2; 
    else 
    { 
        for(i=n-1;i>=0;i--) 
        { 
            for(s=0,j=i+1;j<n;j++) 
                s+=a[i][j]*x[j]; 
            x[i]=(b[i]-s)/a[i][i]; 
        } 
        return 0; 
    } 
    for(i=0;i<n;i++) 
        delete [] a[i]; 
    delete [] a; 
    delete [] b; 
} 
int main() 
{ 
    ifstream F; 
    ofstream f; 
    int result,i,N=3,M=5,p; 
    double **a,*b,*x,*R,E2,E4,Ik1,*I,S,Pist,Pnagr; 
    a=new double *[N]; 
    I=new double [M]; 
    for(i=0;i<N;i++) 
        a[i]=new double[N]; 
    b=new double [N]; 
    x=new double [N]; 
    R=new double [M]; 
    cout<<"VbIbirite metod vvoda:"<<endl; 
    cout<<"Vvod c ekrana - 1"<<endl; 
    cout<<"Vvod c faula - 2"<<endl; 
    cout<<"Metod - "; 
    cin>>p; 
    if(p==1) 
    { 
        cout<<"R1="; cin>>R[0]; 
        cout<<"R2="; cin>>R[1]; 
        cout<<"R3="; cin>>R[2]; 
        cout<<"R4="; cin>>R[3]; 
        cout<<"R5="; cin>>R[4]; 
        cout<<"R6="; cin>>R[5]; 
        cout<<"E2="; cin>>E2; 
        cout<<"E4="; cin>>E4; 
        cout<<"Ik1="; cin>>Ik1; 
    } 
    else 
    { 
        F.open("D:\\111\\123.txt"); 
        F>>R[0]>>R[1]>>R[2]>>R[3]>>R[4]>>R[5]>>E2>>E4>>Ik1; 
        F.close(); 
    } 
    a[0][0]=1/R[0]+1/R[1]+1/R[3]; 
    a[0][1]=-1/R[1]; 
    a[0][2]=-1/R[3]; 
    a[1][0]=-1/R[1]; 
    a[1][1]=1/R[1]+1/R[2]+1/R[5]; 
    a[1][2]=-1/R[2]; 
    a[2][0]=-1/R[3]; 
    a[2][1]=-1/R[2]; 
    a[2][2]=1/R[2]+1/R[3]+1/R[4]; 
    b[0]=-E2/R[1]+E4/R[3]+Ik1; 
    b[1]=E2/R[1]; 
    b[2]=-E4/R[3]; 
    result=SLAU(a,N,b,x); 
    f.open("D:\\111\\rezult.txt"); 
    if(result==0) 
    { 
        for(i=0;i<N;i++) 
            x[i]=-x[i]; 
        cout<<"Massiv X"<<endl; 
        for(i=0;i<N;i++) 
            cout<<x[i]<<"\t"; 
        cout<<endl; 
        f<<"x[i]="; 
        for(i=0;i<N;i++) 
            if(i<N-1) f<<x[i]<<"\t"; 
            else f<<x[i]; 
            I[0]=0-x[0]/R[0]; 
            I[1]=x[0]-x[1]+E2/R[1]; 
            I[2]=x[2]-x[1]/R[2]; 
            I[3]=x[2]-x[0]+E4/R[3]; 
            I[4]=0-x[2]/R[4]; 
            I[5]=x[1]-0/R[5]; 
            Pist=E2*I[1]+E4*I[3]-Ik1*I[0]*R[0]; 
            f<<endl; 
            for(i=0,S=0;i<=M;i++) 
                S+=I[i]*I[i]*R[i]; 
            Pnagr=S; 
            cout<<"I[i]="; 
            f<<"I[i]="; 
            for(i=0;i<=M;i++) 
            { 
                cout<<I[i]<<"\t"; 
                if(i<M-1) f<<I[i]<<"\t"; 
                else f<<I[i]; 
            } 
            cout<<endl; 
            cout<<"Pist="<<Pist<<endl; 
            cout<<"Pnagr="<<Pnagr<<endl; 
            f<<endl; 
            f<<"Pist="<<Pist<<endl; 
            f<<"Pnagr="<<Pnagr<<endl; 
            if(Pist==Pnagr) 
                cout<<"Balance mojnocteu covnadatt"<<endl; 
            else cout<<"Balance mojnocteu ne covnadatt"<<endl; 
            f.close(); 
    } 
    else if(result==-1) 
    { 
        cout<<"beckone4noe mnojectvo rewenii"; 
        f<<"beckone4noe mnojectvo rewenii"; 
    } 
    else if(result==-2) 
    { 
        cout<<"net rewenii"; 
        f<<"net rewenii"; 
    } 
    for(i=0;i<N;i++) 
        delete [] a[i]; 
    delete [] a; 
    delete [] b; 
    delete [] x; 
    return 0; 
}
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2016, 18:43
Помогаю со студенческими работами здесь

Не могу найти ошибку в программе
Прога рабочая, но если вводишь х = 0 и у= 0 то она зацикливается на &quot;Ошибка! Начните заново.&quot; и не...

Не могу найти ошибку в программе
Разложение числа на сумму двух квадратов &quot;for(a=o;a&lt;=floor(sqrt(W));x++); ...

Не могу найти ошибку в программе
Добрый вечер, уважаемые программисты. Прошу у вас помощи с программой. Нужно её сдавать, а она не...

Не могу найти ошибку в программе
#include &lt;iostream&gt; #include &lt;fstream&gt; #include &lt;cctype&gt; #define is_delim(c) (std::isspace((c))...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru