|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Такое дело. Пишу код для решения уравнения (a+b+2c)x^2+(3d+e+5g)x+j+k+7h=0
Код:
Код:
program Rivnyannya; var D1,a,b,c,d,e,g,j,k,h:integer; x,x1,x2:real; Begin WriteLn('Введiть a'); ReadLn(a); WriteLn('Введiть b'); ReadLn(b); WriteLn('Введiть c'); ReadLn(c); WriteLn('Введiть d'); ReadLn(d); WriteLn('Введiть e'); ReadLn(e); WriteLn('Введiть g'); ReadLn(g); WriteLn('Введiть j'); ReadLn(j); WriteLn('Введiть k'); ReadLn(h); WriteLn('Введiть h'); ReadLn(a); D1:=(3*d+e+5*g)*(3*d+e+5*g)-4*(a+b+2*c)*(j+k+7*h); if D1>0 then begin x1:=(-(3*d+e+5*g)+sqrt(D1))/(2*(a+b+2*c)); x2:=(-(3*d+e+5*g)-sqrt(D1))/(2*(a+b+2*c)); WriteLn('x1=',x1); Writeln('x2=',x2); end else if D1=0 then begin x:=-(3*d+e+5*g)/(2*(a+b+2*c)); WriteLn('x=',x); end else WriteLn('Немає коренів'); ReadLn; End. Програма выдаёт немного не то значения что нужно. Это как бы обычное квадратное уравнение, просто нужно будет еще вводить a,b,c,d,e и так далее.. Помогите пожалуйста Последний раз редактировалось Admin, 19.10.2017 в 19:26. |
#2
|
|||
|
|||
см внимательно на строки 21 и 23. Не те переменные читаешь.
|