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

[Acid9]

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

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

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

Мне не нужна медвежья услуга. Я поступил на заочку 1 курс и мне тут "НА" такое задание) Я правда не понимаю как его делать, откуда вы берете все эти Теги, коды, где правильно поставить точку, запятую\ Я не дошол до этого) Вот спросит у меня учитель как ты составлял программу) Что я ему скажу?)

[Acid9]

Сообщение от 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.

Огромнейшее спасибо

[Acid9]

Stilet, пишет модуль math не найден. Я поменял в строке "uses math"
на "uses crt" и все заработало. Что зависит от этих модулей и что поменял модуль crt ?