06.12.2010, 00:11
|
|
Новичок
|
|
Регистрация: 19.11.2009
Сообщения: 73
Репутация: 12
|
|
PHP код:
program Project2n;
{$APPTYPE CONSOLE}
uses SysUtils;
label hh;
var a,b,c,x1,x2,x3,x4,t1,d,t2: real; tf1, tf2: boolean; i:Integer; f: textFile; Begin //a:=1; b:=-2; c:=1; i:=0; tf1:=false; tf2:=false; AssignFile(f,'file.txt'); Reset(f); Read(f,a,b,c); CloseFile(f); if (a=0) then begin writeln('0'); goto hh; end; d:=b*b-4*a*c; if d > 0 then begin t1:=(-b+sqrt(d))/(2*a); t2:=(-b-sqrt(d))/(2*a); if t1 >= 0 then begin x1:=sqrt(t1); x2:=-x1; tf1:=true; i:=i+2; end; if t2 >= 0 then begin x3:=sqrt(t2); x4:=-x3; tf2:=true; i:=i+2; end; end else if d=0 then begin t1:=(-b+sqrt(d))/(2*a); if t1 >= 0 then begin x1:=sqrt(t1); x2:=-x1; tf1:=true; i:=i+2; end; end else writeln('d < 0');
hh: beep;
writeln('kol-vo resheniy: ',i); if tf1 then writeln('x1: ',x1:8:2,#10#13,'x2: ',x2:8:2); if tf2 then writeln('x3: ',x3:8:2,#10#13,'x4: ',x4:8:2);
readln; end.
__________________
знаете почему внизу эскалатора бабка в будке сидит?
она там педальки крутит и лесенка едет!
|