smilrena
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
--> Wadim_18
Есть же простенкая формула штобы вычислить корни, а всё осталное мелочи, надо просто подумать и всё слепить в одно целое. Не ленись поработать и почитать литературу, если совсем худо.. 
Код:
program korni;
uses CRT;
const n = 3;
type Tmas = array[1..10] of real;
var i, m : integer;
x1, x2 : real;
A, B, C : Tmas;
function how_many(aa, bb, cc : real; var x3, x4 : real) : integer;
var d : real;
begin
d := bb*bb - 4*aa*cc;
if d > 0 then
begin
x3 := (-bb+sqrt(d)) / (2*aa);
x4 := (-bb-sqrt(d)) / (2*aa);
how_many := 2;
end;
if d = 0 then
begin
x3 := (-bb)/ 2;
x4 := 0;
how_many := 1;
end;
if d < 0 then
begin
x3 := 0;
x4 := 0;
how_many := 0;
end;
end;
begin
for i :=1 to n do
begin
write('Vvedite A, B, C : ');
read(A[i], B[i], C[i]);
clrscr;
end;
writeln('A: B: C: ');
for i :=1 to n do
begin
m := how_many(A[i], B[i], C[i], x1, x2);
write(A[i]:2:2, ' ', B[i]:2:2, ' ', C[i]:2:2, ' ');
if m = 2 then writeln(' Dva kornia: ', 'x1 = ', x1:2:2, ' ', 'x2 = ', x2:2:2);
if m = 1 then writeln(' Odin koren: ', 'x = ', x1:2:2);
if m = 0 then writeln(' Kornej net!');
writeln;
end;
readln;
end.
|
|
