паскаль см. вложение циклы

Question

паскаль см. вложение

циклы

---

Answer 1

var
a, b, c, xn, xk, h, f: Real;
begin

Write('Введите Xn: '); Readln(xn);
Write('Введите Xk: '); Readln(xk);
Write('Введите шаг H: '); Readln(h);
Write('Введите a: '); Readln(a);
Write('Введите b: '); Readln(b);
Write('Введите c: '); Readln(c);


while xn <= xk do<br> begin
if (c < 0) and (b <> 0) then
f := a * sqr(xn) + sqr(b) * xn
else if (c > 0) and (b = 0) then
f := (xn + a) / (xn + c)
else
f := xn / c;

Writeln(xn:0:3, ' | ', f:0:3);  // таблицу сам оформишь

xn := xn + h;
end;

Readln;
end.

Answer 2

Program pr;
uses crt;
Var a,b,c:integer;
    H,F,x,x1,x2:real;

Begin
Writeln('Шаг');
readln(H);
Writeln(' a,b,c');
readln(a,b,c);
Writeln('промежуток X нач ,X кон ');
readln(x1,x2);
x:=x1;
While x<=x2 do<br>   Begin
 if (c<0) and (b<>0) then
        Begin
          F:=(a*x*x)+(b*b*x);
          Writeln('x=', x:6:2, ' F=',F:6:2);
          x:=x+H;
        end
 else
if (c>0) and (b=0) then
        Begin
         F:=(x+a)/(x+c);
         Writeln('x=', x:6:2, ' F=',F:6:2);
         x:=x+H;
        end
else
 Begin
F:=x/c;
Writeln('x=', x:6:2, ' F=',F:6:2);
 x:=x+H;
end;


end;
readln;
end.