Составить программу для вычисления сл.функций

[Acid9]

Господа программисты, мне нужно составить прогу для вычисления функций. В этом деле я дуб дубом. Прошу вас помочь и объяснить студенту что да как. Даже не знаю на чем её нужно написать.(Паскаль с+ php и т.д)
В общем вот данные

[Stilet]

Даже не знаю на чем её нужно написать.

Топай к преподу с этим вопросом.

[Acid9]

В паскале можно вроде как, кто умеет помогите)

[min@y™]

кто умеет помогите)

мы тут все умеем. чем помочь-то?

[Acid9]

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

[Croessmah]

Acid9, ученье - свет, а неученье - чуть свет и команда "рота подъем"

Какие наработки имеются? Видите ли, делать за Вас - это медвежья услуга.
Учитесь делать сами, хотя с другой стороны, чем меньше знающих, тем ценнее я как специалист.

[min@y™]

хотя с другой стороны, чем меньше знающих, тем ценнее я как специалист.

вово, я тож говорю: "меньше конкурентов - больше зарплата".

[Croessmah]

min@y™, мне не грозит, я не по специальности работаю

[min@y™]

я не по специальности работаю

я тоже. По образованию я дворник-оператор шанцевого инструмента.
у меня даже компа нет, а ниетрнет я только по телеку видел. один раз. по пьяни.

[Stilet]

program Project1;
uses math;
function y(x,a:double):Double;
begin
 if x>4 then y:=ln(abs(cos(x))) else
   if (x<=4) and (a>2) then y:=x*x*x+837*x*x+a+a+a else
     if (x<=4) and (a<=2) then  y:=sin(exp(x+a));
end;

function Z(a,x,b:double):Double;
var t:double;
begin
 t:=arctan(a/x)/b;
 z:=cos(tan(t))+(b*cos(1/x))/(t*t+2);
end;

var x,a,b:Double;
begin
  x:=1; a:=1;b:=10;
   while a<=b do begin
     writeln(y(x,a):10:2,z(a,x,b):10:2);
     a:=a+1;
	 end;
   readln;
end.