(Pascal ABC) Функция с условиями

[Sanginow]

Вычислить и вывести на экране значения функции F на интервале от Хнач. до Хкон. с шагом dx.

F= -ax-c при c<0 и x<>0
F= (x-a)/-с при c>0 и x=0
F= bx/(с-a) в остальных случаях ,где а,в,с действительные числа

Написал пока,вот что

Program N1;
Uses crt;
Var
  a,b,c,dx,Xn,Xk,x,n,i:real;

  BEGIN
    Write('Введите a ');Readln(a);
    Write('Введите b ');Readln(b);
    Write('Введите c ');Readln(c);
    Write('Введите dx ');Readln(dx);
    Write('Введите Xn ');Readln(Xn);
    Write('Введите Xk ');Readln(Xk);
  x:=(Xk-Xn)/dx;
While i=1 do x:=(Xk-Xn)/dx;
    begin
 If (c<0) and ( x<>0) then
    Writeln( 'F=',-a*x-c:2:2)
  Else
     Writeln('F=',b*x/(c-a):2:2);
    end;
While i=1 do x:=(Xk-Xn)/dx;
    begin
If (c>0) and (x=0) then
      Writeln('F=', (x-a)/(c):2:2)
           else
     Writeln('F=',b*x/(c-a):2:2);
     end;
END.

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

[whatever]

Я думаю так:

Var
  a,b,c,dx,Xn,Xk,x,n:real;
  i:integer;

BEGIN
  Write('Введите a ');Readln(a);
  Write('Введите b ');Readln(b);
  Write('Введите c ');Readln(c);
  Write('Введите dx ');Readln(dx);     //шаг
  Write('Введите Xn ');Readln(Xn);     //начальное
  Write('Введите Xk ');Readln(Xk);     //конечное
  x:=Xn;
  i:=1;
While x<Xk do// x:=(Xk-Xn)/dx;
  begin
    If (c<0) and ( x<>0) then
      Writeln('F(X',i,')=',-a*x-c:2:2);
    if (c>0) and (x=0) then
      Writeln('F(X',i,')=',(x-a)/-c:2:2)
    Else
      Writeln('F(X',i,')=',(b*x)/(c-a):2:2);
    inc(i);
    x:=x+dx;
  end;
  x:=Xk;
  If (c<0) and ( x<>0) then
    Writeln('F(X',i,')=',-a*x-c:2:2);
  if (c>0) and (x=0) then
    Writeln('F(X',i,')=',(x-a)/-c:2:2)
  Else
    Writeln('F(X',i,')=',(b*x)/(c-a):2:2);
 
{While i=1 do x:=(Xk-Xn)/dx;
    begin
If (c>0) and (x=0) then
      Writeln('F=', (x-a)/(c):2:2)
           else
     Writeln('F=',b*x/(c-a):2:2);
     end;}
readln
END.

[Serge_Bliznykov]

Sanginow, нет. вы написали НЕВЕРНО.

нужно примерно так:

Program N1;
Var
  a,b,c,dx,Xn,Xk,x:real;

BEGIN
  Write('Введите a ');Readln(a);
  Write('Введите b ');Readln(b);
  Write('Введите c ');Readln(c);
  Write('Введите dx ');Readln(dx);
  Write('Введите Xn ');Readln(Xn);
  Write('Введите Xk ');Readln(Xk);

  x:=Xn; {присвоили начальное значение X}
  while x<=Xk do begin
    If (c<0) and ( x<>0 ) then
       Writeln( 'F=',-a*x-c:2:2)
    Else
     if (c>0) and ( x=0 )  then
       Writeln('F=', (x-a)/(c):2:2)
     else
       Writeln('F=',b*x/(c-a):2:2);
    
   x := x + dx;
  end;

  readln; {ожидание нажатия Enter, 
           чтобы окно программы сразу не закрылось}
END.

кстати, третья формула не может быть вычислена при a = c. а это нигде не проверяется!

[Sanginow]

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

Program N1;
Uses crt;
Var
  a,b,c,dx,Xn,Xk,x:real;
  i:integer;

BEGIN
ClrScr;
CRTWindowSize(80,40);
repeat
  ClrScr;
  Write('Введите a ');Readln(a);
  Write('Введите c ');Readln(c);
until c<>a;
  Write('Введите b ');Readln(b);
  Write('Введите dx ');Readln(dx);
  Write('Введите Xn ');Readln(Xn);
  Write('Введите Xk ');Readln(Xk);
  x:=Xn;
  i:=1;
writeln;
writeln('|F(x) |значения|');
writeln('|--------------');
While x<Xk do
  begin
    If (c<0) and ( x<>0) then
      Writeln('|F(X',i,')| ','X=',x,' ',-a*x-c:2:2);
    if (c>0) and (x=0) then
      Writeln('|F(X',i,')| ','X=',x,' ',(x-a)/-c:2:2)
    Else
      Writeln('|F(X',i,')| ','X=',x,' ',(b*x)/(c-a):2:2);
    inc(i);
    x:=x+dx;
  end;
  x:=Xk;
  If (c<0) and ( x<>0) then
    Writeln('|F(X',i,')| ','X=',x,' ',-a*x-c:2:2);
  if (c>0) and (x=0) then
    Writeln('|F(X',i,')| ','X=',x,' ',(x-a)/-c:2:2)
  Else
    Writeln('|F(X',i,')| ','X=',x,' ',(b*x)/(c-a):2:2);
 writeln('|---------------');
 writeln;
END.