Дано: q =3; dq=-0.2. F вычислять по формуле: f:=√1+0.5*q -1/q+1; Считать до тех пор, пока подкоренное выражение больше

[Punk_Killer]

var q,dq,f,r,t: double;
k:real;
begin
 q:=3;
 dq:=-0.2;
 k:=0;
 t:=(1+0.5*q);
 while t>0 do
 begin
    q:=dq+q;
    f:=(sqrt(1+0.5*dq)-(1/(dq+1)));
    writeln('',f:0:6);
    writeln(f:0:0);
    if f>0 then  k:=k+1;
    t:=(1+0.5*q);
end;
readln;
writeln('Quantity of numbers ',k:0:6);
end.

Нашёл похожую задачу на форуме, но она не работает и условие чуть другое. Надеюсь на вас

[Serge_Bliznykov]

условие задачи кривенькое.. ибо, ещё до того, как подкоренное выражение станет равным нулю, раньше q станет равна -1 и, соответственно, знаменатель дроби станет равным нулю. (попробуйте на калькуляторе подсчитать значение F для q = -1).

а у Вас в коде много недостатков. Например, почему Вы в вычислении выражения используете dq ? Ведь у Вас для этого предназначена переменная q (посмотрите на формулу внимательно)...

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

var q, dq, f, t: double;
  k: integer;
begin
  q := 3;
  dq := -0.2;
  k := 0;
  t := (1 + 0.5 * q);
  while t > 0 do
  begin
    inc(k);
    if abs(q + 1)>0.000000001 {это сравнение знаменателя дроби с нулём} 
    then begin
      f := (sqrt(t) - (1 / (q + 1)));
      writeln(k:2,') q=', q:0:1,'  f=', f:0:6);
    end
    else
      WriteLn(k:2,') при q=', q:0:1, ' функция неопределена (деление на ноль)');
    q := dq + q;
    t := (1 + 0.5 * q);
  end;
  writeln('Quantity of numbers ', k);
  readln;
end.

[Punk_Killer]

Ваша программа почему-то не работает.

Мне ещё написали вот так вот, и она работает. Она правильная?

program zzz;
var
        i,k:integer;
        f,q:real;
begin
        q:=3.2;
        k:=0;
        while 1+0.5*q>0 do
        begin
                q:=q-0.2;
                k:=k+1;
                f:=sqrt(1+0.5*q)-1/(q+1);
        end;
        writeln('f: ',f:0:2);
        writeln('q: ',q:0:2);
        writeln('k: ',k-1);
end.

а ещё можете подсказать, как составить алгоритм программы из блок схем?

[Mad_Cat]

и она работает

странно

while 1+0.5*q>0 do
        begin
                q:=q-0.2;
                k:=k+1;
                f:=sqrt(1+0.5*q)-1/(q+1);
        end;

при q=-1 получаем division by zero ==> вылет