функция с шагом и выводом отрицательного значения

[voytik]

Нужно вывести отрицательные значения функции y=sin(x)+cos(5*x) для х, изменяющегося на отрезке [-3,9] с шагом 0.9.
как я только не пытался это сделать, через массив и через фор то ду... ничего не выходит((( мозгов не хватает на то, что бы вывести все отрицательные числа.. помогите пожалуйста

[p51x]

А что не получилось?
Не знали, что в фор ту ду можно задать шаг?
Не знали, что есть другие циклы?
Не знали, что есть еще условные операторы для проверки отрицательности?

[voytik]

вот что у меня не получилось... у меня выводит и положительные и отрицательные числа... как сделать так, что бы выводило только отрицательные..?

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var x, y, q: Extended;
    i: Integer;
begin
  x := -3;
  i := 1;
  while x <= 9 do
    begin
      readln (q);
      y := (sin(q)+cos(5*q));
      Writeln('f(', x:2:1, ') = ', y:5:3);
      x := x + 0.9;
      i := i + 1;

    end;
  Readln;
end.

[Stilet]

Writeln('f(', x:2:1, ') = ', y:5:3);

Напиши

if y<0 then Writeln('f(', x:2:1, ') = ', y:5:3);

[newerow1989]

voytik, надо убрать переменную i, т.к. она никакой роли не играет

function f(x:real):real;
begin
   Result:=Sin(x)+Cos(5*x);
end;

const h=0.9;
      a=-3;
      b=9;
var x,y:real;
begin
   x:=a-h;
   Repeat
      x:=x+h;
      y:=f(x);
      If y<0 then
         Writeln(y:5:5);
   Until x>=b;
   Readln;
end.

2-й вариант

const h=0.9;
      a=-3;
      b=9;
var x,y:real;
begin
   x:=a-h;
   Repeat
      x:=x+h;
      y:=Sin(x)+Cos(5*x);
      If y<0 then
         Writeln(y:5:5);
   Until x>=b;
   Readln;
end.

Сойдет?

[voytik]

только что так и сделал, но вдруг понял, что при компиляции он будет выводить все отрицательные значения... но при проверки (вводе одного и того числа, ответ на который получается отрицательное значение) - выводит вечно один и тот же ответ, то есть х у меня не меняется сам в диапазоне от -3 до 9.... блин, а оно и логично.. у меня х - это q.... блин, туплю, запутался малеха

немного не понимаю как ваш вариант откомпилировать....

[newerow1989]

немного не понимаю как ваш вариант откомпилировать....

Копируешь, вставляешь, нажимаешь F9

[voytik]

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const h=0.9;
      a=-3;
      b=9;
var x,y,q:real;
begin
   x:=a-h;
   Repeat
      x:=x+h;
      readln (q);
      y:=Sin(q)+Cos(5*q);
      If y<0 then
         Writeln(y:5:5);
   Until x>=b;
   Readln;
end.

немного исправил, что бы можно было вводить значение в подставку значения в функцию и все равно выходит так, что при изменении +0.9 не меняется значение функции при условии того, что я ввожу одно и тоже число.... кароче тафотологию несу... так давно парюсь, что уже сформулировать и соображать не получается(

[newerow1989]

 readln (q);
 y:=Sin(q)+Cos(5*q);

Опять q - убрать ее и заменить на x

readln (q); - убрать ее полностью! Она не нужна




Просто начало будет

program Project2;

 {$APPTYPE CONSOLE}

 uses
 SysUtils;

а потом мой кусок кода. Тогда заработает

[voytik]

УРА!)

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
function f(x:real):real;
begin
   Result:=Sin(x)+Cos(5*x);
end;

const h=0.9;
      a=-3;
      b=9;
var x,y:real;
begin
    readln (x);
   x:=a-h;
   Repeat
      x:=x+h;
      y:=f(x);
      If y<0 then
         Writeln(y:5:5);
   Until x>=b;
   Readln;
end.

точно!) спасибо вам большое, вы меня спасли, у меня уже мозг изнутри чешется из за тех изгелений, что я перепробовал))) спасибо еще раз!)