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
| uses
crt;
var
k: integer;
a, b, c, x, D, x1, x2, x3,x4, z, t, t1, t2: real;
begin
Writeln('Введите цыфру какое именно решения вы хотите = ');
Writeln('Линейное уравнения - "1"');
Writeln('Квадратное уравнение - "2"');
Writeln('Биквадратное уравнение - "3"');
Readln(z);
if z=1 then
begin
Write('Введите значение А = ');
readln(a);
Write('Введите значение В = ');
readln(b);
if (a=0) then writeln ('Нет решений') else
if (b=0) then writeln ('X - любое число') else
writeln ('X < ',-b/a:0:2);
end;
if z=2 then
begin
Write('Введите значение А = ');
readln(a);
Write('Введите значение В = ');
readln(b);
Write('Введите значение C = ');
readln(c);
D := b * b - 4 * a * c;
if (D < 0) then Writeln('корней нет') else
if (D > 0) then
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b - sqrt(d)) / (2 * a);
Writeln('x1=', x1:0:3, ' x2=', x2:0:3);
end
else
if (D = 0) then
Writeln('x1=x2 =', -b / 2 * a);
end;
if z=3 then
Begin
write('Введите значение a ='); readln(a);
write('Введите значение b ='); readln(b);
write('Введите значение c ='); readln(c);
d:=b*b-4*a*c;
if d<0 then write('Корней нет') else
if d=0 then begin t:=-b/2*a; writeln('x1= ',sqrt(t):3:3,'; x2= ', -sqrt(t):3:3); end else
if d>0 then begin t1:=(-b+sqrt(d))/2*a; t2:=(-b-sqrt(d))/2*a;
if (t1<0) and (t2<0) then writeln('Корни у дискриминанта получиись отрицательными, следовательно решения нет')
else begin
if (t1>=0) and (t2>=0) then writeln('x1= ',sqrt(t1):3:3,'; x2= ',sqrt(t2):3:3,'; x3= ',-sqrt(t1):3:3,'; x4= ',-sqrt(t2):3:3)
else
if (t2<0) then writeln('x1= ',sqrt(t1):3:3,'; x2= ', -sqrt(t1):3:3) else
if (t1<0) then writeln('x1= ',sqrt(t2):3:3,'; x2= ', -sqrt(t2):3:3);
if z=3 then
var
a1,b1,c1,d1,i,t,j:integer;
s: real;
c:array [1..3,1..4] of integer;
a,b,d: array[1..3,1..3]of integer;
begin
clrscr;
for t:=1 to 3 do {vvod rasshirennoi matricu}
begin
writeln(t,' строка массива');
for i:=1 to 4 do read(c[t,i]);
end;
writeln;
for i:=1 to 3 do {zamena odnogo stolbca svobodnumi elementami}
begin
for t:=1 to 3 do
begin
if t=1 then a[i,t]:=c[i,4] else a[i,t]:=c[i,t];
write(' ',a[i,t]);
end;
writeln;
end;writeln;
for i:=1 to 3 do {zamena odnogo stolbca svobodnumi elementami}
begin
for t:=1 to 3 do
begin
if t=2 then b[i,t]:=c[i,4] else b[i,t]:=c[i,t];
write(' ',b[i,t]);
end;
writeln;
end; writeln;
for i:=1 to 3 do {zamena odnogo stolbca svobodnumi elementami}
begin
for t:=1 to 3 do
begin
if t=3 then d[i,t]:=c[i,4] else d[i,t]:=c[i,t];
write(' ',d[i,t]);
end;
writeln;
end;
j:=c[1,1]*c[2,2]*c[3,3]+c[2,1]*c[3,2]*c[1,3]+c[1,2]*c[2,3]*c[3,1];
j:=j-(c[1,3]*c[2,2]*c[3,1]+c[2,1]*c[1,2]*c[3,3]+c[1,1]*c[2,3]*c[3,2]);
writeln;
writeln(' det =',j); {rascet opredelitely}
c1:=j;
j:=a[1,1]*a[2,2]*a[3,3]+a[2,1]*a[3,2]*a[1,3]+a[1,2]*a[2,3]*a[3,1];
j:=j-(a[1,3]*a[2,2]*a[3,1]+a[2,1]*a[1,2]*a[3,3]+a[1,1]*a[2,3]*a[3,2]);
writeln;
writeln(' det =',j); {rascet opredelitely}
a1:=j;
j:=b[1,1]*b[2,2]*b[3,3]+b[2,1]*b[3,2]*b[1,3]+b[1,2]*b[2,3]*b[3,1];
j:=j-(b[1,3]*b[2,2]*b[3,1]+b[2,1]*b[1,2]*b[3,3]+b[1,1]*b[2,3]*b[3,2]);
writeln;
writeln(' det =',j); {rascet opredelitely}
b1:=j;
j:=d[1,1]*d[2,2]*d[3,3]+d[2,1]*d[3,2]*d[1,3]+d[1,2]*d[2,3]*d[3,1];
j:=j-(d[1,3]*d[2,2]*d[3,1]+d[2,1]*d[1,2]*d[3,3]+d[1,1]*d[2,3]*d[3,2]);
writeln;
writeln(' det =',j); {rascet opredelitely}
d1:=j;
s:=a1/c1;
writeln(' x1= ',s:3:2);
s:=b1/c1;
writeln(' x2= ',s:3:2);
s:=d1/c1;
writeln(' x3= ',s:3:2);
readln;readln;
end.
end;
end;
end;
end. |
(
