Нахождение корней квадратного уравнения

@riv94 · Регистрация: 13.02.2011

Всем привет))) вроде легкая задача на нахождение корней в квадратном уравнении a $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2}$ +bx+c=0... Решил-то вроде я ее прaвильно, но тестирующий комплекс вывел Time limit Exceeded... вот код программы... Нужно 1 сек, а у меня 1,498 сек.. Что можно сделать в моем случае?

Pascal

program ur;
var
a,b,c,d,x,x1,x2:real;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(a,b,c);
if (a=0) and (b=0) and (c=0) then writeln(-1);
d:=sqr(b)-4*a*c;
if d<0 then writeln(0);
if d=0 then
begin
writeln(1);
x:=(-b)/(2*a);
writeln(x);
end;
if d>0 then
begin
writeln(2);
x1:=((-b)+sqrt(d))/(2*a);
writeln(x1);
x2:=((-b)-sqrt(d))/(2*a);
writeln(x2);
end;
close(input);
close(output);
end.

@Просто_Юлия · 22.02.2011, 11:14

Pascal

1	read(a,b,c);

разве читать надо не из файла? а то программа ждет ввода - вот и вылетает за границы допустимого времени.

ну и запись осуществлять в файл.

@riv94 · 22.02.2011, 11:21 **[ТС]**

Pascal

assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);

так а это я зачем написал))) я всегда и все программы пишу таким образом, и большинство программ удовлетворяли тестирующую систему... вы мне скажите, как рациональнее реализовать решение, чтобы времени программа затрачивала меньше! с остальным-то у меня проблем нет!

@Wanee · 22.02.2011, 11:23

Попробуй вот так:

Pascal

var
   a,b,c,x1,x2:real;
 
begin
   assign(input,'input.txt');
   reset(input);
   assign(output,'output.txt');
   rewrite(output);
   read(a,b,c);
   if (a=0) and (b=0) then write(c) else
   begin
      c:=sqr(b)-4*a*c;
      if c<0 then write('Решений нет') else
      begin
         x1:=(-b+sqrt(c))/(2*a);
         x2:=(-b-sqrt(c))/(2*a);
         writeln(x1);
         if x1<>x2 then writeln(x2);
      end;
   end;
end.

@riv94 · 22.02.2011, 11:25 **[ТС]**

Wanee, большое вам спасибо)))

@Wanee · 22.02.2011, 11:25

Просто_Юлия, ты не прова. У вас записано

Pascal

assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);

чтение и запись всегда будет происходить из файлов

@riv94 · 22.02.2011, 11:25 **[ТС]**

Wanee, Большое вам спасибо)))

@Wanee · 22.02.2011, 11:29

riv94, обращайся если что

@riv94 · 22.02.2011, 11:41 **[ТС]**

Wanee,

ваше решение мне помогло... но не намного, на 0,003 секунды... я маленько изменил программу, т.к. она чуть не соответствовала моим условиям... вот ее вариант:

Pascal

program ur;
var
a,b,c,x,x1,x2:real;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(a,b,c);
if (a=0) and (b=0) and (c=0) then writeln(-1);
if (a=0) and (b=0) then begin writeln(1); writeln(c); end else begin
c:=sqr(b)-4*a*c;
if c<0 then writeln(0) else begin
writeln(2);
x1:=((-b)+sqrt(c))/(2*a);
writeln(x1);
x2:=((-b)-sqrt(c))/(2*a);
writeln(x2);
end;
end;
close(input);
close(output);
end.

УСЛОВИЯ ЗАДАЧИ
Квадратное уравнение
(Время: 1 сек. Память: 16 Мб Сложность: 28%)

Сложно найти человека, который любит решать однообразные задачки по математике. В последнее время школьникам стало легче, ведь с появлением компьютеров почти в каждой квартире стало существенно проще проверять себя.

Но программы, в которых решение уравнений является стандартной функцией, установлены не везде. Напишите программу, которая сможет решить уравнение

ax2 + bx + c = 0
при заданных коэффициентах a, b и c.

Входные данные

Единственная строка входного файла INPUT.TXT содержит три целых числа a, b и c, каждое из которых не превосходит по модулю 30000. Числа разделяются пробелами.

Выходные данные

На первой строке выходного файла OUTPUT.TXT выведите число корней заданного уравнения. Затем выведите сами корни по одному на строке с ошибкой, не превосходящей 10-4. Если для заданных коэффициентов корней бесконечно много, на единственной строке выходного файла выведите -1.
на этой страничке все подробно и с примерами)))

@Puporev · 22.02.2011, 11:47

riv94, Нормальные люди сначала пишут условие задачи, а потом свой код и проблемы. У Вас же все наоборот. В следующий раз сразу пишите на форум гадалок и экстрасенсов...

@riv94 · 22.02.2011, 11:49 **[ТС]**

Puporev, впредь буду знать... просто я думал вроде легкая задача... помогите!

@Puporev · 22.02.2011, 11:56

Условие задачи тупое. А если нет корней, что выводить?

@riv94 · 22.02.2011, 11:59 **[ТС]**

если корней нет, то вывести 0

@Puporev · 22.02.2011, 12:03

Эту тему посмотрите, я там решение нормальное давал.
https://www.cyberforum.ru/pasc... page2.html

@riv94 · 22.02.2011, 12:08 **[ТС]**

ладно

@Wanee · 22.02.2011, 12:17

Pascal

{$R-,Q-,S-,V-,N-,E-,M 16777216}
 
 
var
   a,b,c:integer;
   d,x1,x2:real;
 
begin
   assign(input,'input.txt');
   reset(input);
   assign(output,'output.txt');
   rewrite(output);
   read(a,b,c);
   if (a=0) and (b=0) then write(c) else
   begin
      d:=sqrt(sqr(b)-(a*c shl 2));
      if d<0 then write('Решений нет') else
      begin
         x1:=(-b+d)/(a shl 1);
         x2:=(-b-d)/(a shl 1);
         writeln(x1);
         if x1<>x2 then writeln(x2);
      end;
   end;
end.

@Puporev · 22.02.2011, 12:48

Сообщение от Wanee

if (a=0) and (b=0) then write(c)

В смысле если С любое, то его и выводим?

@Wanee · 22.02.2011, 13:19

Небольшая ошибка, спасибо

Добавлено через 2 минуты

Pascal

{$R-,Q-,S-,V-,N-,E-,M 16777216}
 
var
   a,b,c:integer;
   d,x1,x2:real;
 
begin
   assign(input,'input.txt');
   reset(input);
   assign(output,'output.txt');
   rewrite(output);
   read(a,b,c);
   if (a=0) and (b=0) then write('Решений нет') else
   begin
      d:=sqrt(sqr(b)-(a*c shl 2));
      if d<0 then write('Нет корней') else
      begin
         x1:=(-b+d)/(a shl 1);
         x2:=(-b-d)/(a shl 1);
         writeln(x1);
         if x1<>x2 then writeln(x2);
      end;
   end;
end.

Добавлено через 21 минуту
Вот так все случай рассмотрены:

Pascal

{$R-,Q-,S-,V-,N-,E-,M 16777216}
 
var
   a,b,c:integer;
   d,x1,x2:real;
 
begin
   assign(input,'input.txt');
   reset(input);
   assign(output,'output.txt');
   rewrite(output);
   read(a,b,c);
   if (a=0) and (b=0) then write('Решений нет') else
   begin
      if b=0 then writeln(-c/b);
      if a=0 then
      begin
         d:=-c/a;
         if d<0 then write('Решений нет') else
         begin
            writeln(d);
            writeln(-d);
         end;
      end;
      if (a<>0) and (b<>0) then
      begin
         d:=sqrt(sqr(b)-(a*c shl 2));
         if d<0 then write('Нет корней') else
         begin
            x1:=(-b+d)/(a shl 1);
            x2:=(-b-d)/(a shl 1);
            writeln(x1);
            if x1<>x2 then writeln(x2);
         end;
      end;
   end;
end.

@Просто_Юлия · 22.02.2011, 13:32

Сообщение от Wanee

Просто_Юлия, ты не прова. У вас записано

Pascal

assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);

чтение и запись всегда будет происходить из файлов

вот не уверена, что все компиляторы так поступают. имхо, все же лучше явно...
хотя если эта конкретная тестирующая система поддерживает...

@Wanee · 22.02.2011, 13:37

Должны все

@riv94 66 / 66 / 29 Регистрация: 13.02.2011 Сообщений: 392
	22.02.2011, 12:08 [ТС]	15
	ладно 0

@riv94 66 / 66 / 29 Регистрация: 13.02.2011 Сообщений: 392
	22.02.2011, 11:25 [ТС]	5
	Wanee, большое вам спасибо))) 0

@Wanee 54 / 54 / 23 Регистрация: 02.02.2011 Сообщений: 436
	22.02.2011, 11:29	8
	riv94, обращайся если что 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	22.02.2011, 11:47	10
	riv94, Нормальные люди сначала пишут условие задачи, а потом свой код и проблемы. У Вас же все наоборот. В следующий раз сразу пишите на форум гадалок и экстрасенсов... 0

@riv94 66 / 66 / 29 Регистрация: 13.02.2011 Сообщений: 392
	22.02.2011, 11:49 [ТС]	11
	Puporev, впредь буду знать... просто я думал вроде легкая задача... помогите! 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	22.02.2011, 11:56	12
	Условие задачи тупое. А если нет корней, что выводить? 0

@riv94 66 / 66 / 29 Регистрация: 13.02.2011 Сообщений: 392
	22.02.2011, 11:59 [ТС]	13
	если корней нет, то вывести 0 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	22.02.2011, 12:03	14
	Эту тему посмотрите, я там решение нормальное давал. https://www.cyberforum.ru/pasc... page2.html 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	22.02.2011, 12:48	17
	Сообщение от Wanee if (a=0) and (b=0) then write(c) В смысле если С любое, то его и выводим? 1

@Wanee 54 / 54 / 23 Регистрация: 02.02.2011 Сообщений: 436
	22.02.2011, 13:37	20
	Должны все 0

Нахождение корней квадратного уравнения

Решение