Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  -10
Language: PASCAL
Code:
var
x, a, b,s , c, Xnach, Xkon, dx, F:real;

begin 
  writeln('Введите а');
  readln(a);
  writeln('Введите b');
  readln(b);
  writeln('Введите c');
  readln(c);
  writeln('Введите Xnac');
  readln(Xnach);
  writeln('Введите Xkon');
  readln(Xkon);
  writeln('Введите dX');
  readln(dX);
  writeln;
  
  s:=((trunc(a)) and ((trunc(b)) or (trunc(c))));
  
  while(Xnach <= Xkon) do
    begin
       if((a < 0 ) and (c <> 0)) then
          begin
             F:= a*Xnach*Xnach + b*Xnach + c;
             if(s <> 0) then
                writeln('x= ',Xnach:1:4,'    ','F= ',F:1:4)
             else
                writeln('x= ',Xnach:1:4,'    ','F= ',(trunc(f)));
             end
        else 
           if((a > 0) and (c=0) and ((Xnach - c) <> 0)) then
             begin
                F:=-a / (Xnach - c);
               if(s <> 0) then 
                writeln('x= ',Xnach:1:4,'    ','F= ',F:1:4)
             else
                writeln('x= ',Xnach:1:4,'    ','F= ',(trunc(f)));
             end
        else
          begin
             F:=a*(Xnach + c);
            if(s <> 0) then
               writeln('x= ',Xnach:1:4,'    ','F= ',F:1:4)
            else
               writeln('x= ',Xnach:1:4,'    ','F= ',(trunc(f)));
            end;
       Xnach:= Xnach + dX;
     end;
 end.
             
          
Comments: