функция

[_Marchel_]

Ввести В. Если В<10, выдать на печать 2*В. Если В>=10, вычислить и напечатать значения функции y=(x*x)-x+tg(1/B+x) для значений х, изменяющихся от -3 до 1, с шагом 0,1.

помогите с программой пожалуйста.

[Serge_Bliznykov]

WriteLn('Введите B: ');
ReadLn(B);
if B<10 then WriteLn(2*B)
else begin
  x:=-3;
  while x<=1 do begin
    write(x:1:1,' ');
    if cos(x+1/B)<>0 then WriteLn(' y= ', (x*x)-x+sin(1/B+x)/cos(1/B+x) )
    else WriteLn(' y undefined');
    x:=x+0.1;
  end;
end;

[Stilet]

var x,b:double
begin
 readln(b); x:=-3;
 if b<10 then write('2*B') else while x<=1 do begin
  writeln(x:10:2,(sqr(x)-x+tan(1/b+x)):10:2); 
  x:=x+0.1;
 end; readln;
end.

Годится в качестве идеи?

[_Marchel_]

Спасибо большое.

[_Marchel_]

Сообщение от Stilet

var x,b:double
begin
 readln(b); x:=-3;
 if b<10 then write('2*B') else while x<=1 do begin
  writeln(x:10:2,(sqr(x)-x+tan(1/b+x)):10:2); 
  x:=x+0.1;
 end; readln;
end.

Годится в качестве идеи?

да, спасибо.

[Aleksandr H.]

Stilet, код под какую версию Pascal'я?

[Stilet]

А-а-а. Ну да. Я и забыл что тангенс не везде был...