Циклы., Табулирование функции. Опции

[Таня]

Составить программу для вычисления значений функции F(x) на отрезке [a,b] с шагом h. Результат представить в виде таблици, первый столбец который - значения аргумента, второй - соответствующей значения функции. F(x)=tg x. F(x)=tg x/2+2cos x.

[klem4]

Поиск -> Табулирование функции

решалось десятки раз

[samec]

program tab;
var
 fx,x,a,b,h:real;
 flag:boolean;
begin
 {ввод исходных данных}
 write('Введите a: ');
 readln(a);
 write('Введите b: ');
 readln(b);
 write('Введите шаг: ');
 readln(h);
 {проверка ОДЗ}
 x:=a;
 flag:=false;
 while(x<=b) do
  begin
   if(cos(x)=0)or(2+2*cos(x)=0) then {в знаменателе не может быть нуля!}
    flag:=true;
   x:=x+h;
  end;
 {расчеты}
 if flag then
   writeln('Ошибка! Смотрите ОДЗ!')
 else
   begin
    x:=a;
    writeln('=======================');
    writeln('|     x    |    F(x)  |');
    while(x<=b) do
     begin
       fx:=((sin(x)/cos(x))/(2+2*cos(x)));
       writeln('|',x:10:2,'|',fx:10:2,'|');
       x:=x+h;
     end;
    writeln('=======================');
   end;
 readln;
end.

вот как то так.