Вычисление значения функции

[evklid]

Составить программу вычисления значений функции
(tg(x/2)+cos(x))/ sin(1/x)
на отрезке [A,B] в точках X1=А+Н, где Н=(В-А)/М, М – заданное число.

1. Для задания значений Х и соответствующих значений функции следует использовать простые переменные.
2. Значение шага Н должно вычисляться один раз.
3. При изменении значения аргумента Х использовать оператор присваивания Х:=Х+Н, а не оператор с использованием операции умножения Х: = А + I•Н
4. Результат представить в виде таблицы (ну тобиш засунуть writeln (x,f) в цикл)

[airyashov]

на чем писать, язык?

[evklid]

забыл) Паскаль

[evklid]

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

[Sam Gold]

Так а в чем проблема?
Создаем функцию

function fun(x:real):real;
begin
fun:=   (sin(x/2)/cos(x/2)+cos(x))/ sin(1/x);
end;

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

var x,M, A, B, h :real;
begin
  readln(A,B,M);
  h:= (B-A)/M;
  x:=A;
  writeln('argument  |'     ,' function    ');
  while      x<=B do
  begin
     writeln(x,'      |    ',fun(x));
     x:=x+h;
  end;
 end.

P.S. Как упражнение я бы советовал сделать проверку на правильность введенных данных (проверить является ли правая граница промежутка больше левой, является ли М положительным числом) и обработка исключительных ситуаций в функции fun( если в знаменетеле вдруг окажется ноль)

[evklid]

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

[Sam Gold]

На 0 он может ругаться из-за того, что в функции происходит деление на ноль. Чтобы этого избужать - обрабатывай исключение.
Если ты пишешь в readln() 0.3*pi, то конечно компилятор ругаться будет, он ждет вещественное число, а получает набор символов. Тогда уж или задай B заранее или пиши функцию, которая будет переводить введенную строку в число.