Форумы-->Форум для внеигровых тем-->
| Автор | Господа, нужна помощь с Паскалем |
|---|
ax^2+bx+c=0
a = от -100 до + 100, только четные
b = -10 до 10 только нечетные
c = вводим сами, нечетные
Буду премного благодарен за любую оказанную в этом деле помощь | | а что сделать надо? график построить или чо? | | Парабола | | Нужно найти x1 и x2 | а где х1 и х2?
в уравнении их нет | | квадратное уравнение иму решить нуно.. =) ого ж задача=) | program Project1;
var
a, b, c, disc: integer;
x1, x2: real;
begin
assign (output, 'output.txt');
rewrite (output);
read (c);
if c mod 2 <>0 then begin
for a:=-100 to 100 do
if a mod 2 = 0 then
for b:=-10 to 10 do
if b mod 2 <> 0 then begin
disc:=sqr(b)-4*a*c;
if disc >= 0 then begin
x1:= (-b-sqrt(disc))/(2*a);
x2:=(-b+sqrt(disc))/(2*a);
writeln (x1:5:3, x2:5:3);
end
else
writeln('действительный корней нет');
end;
end
else
writeln ('c - четно!');
close (output);
end.
ответ выводит в файл output.txt, с консоли 500 ответов просматривать как-то не очень |
К списку тем
|
