Помогите решить

[ДоЛБаК]

Помогите решить

Плиз, помогите написать эту функцию

 

[ДоЛБаК]

в долгу не останусь!!!))))

 

[kreol]

мда. Так и хочется придраться к нику. Ну да ладно. Прочтите сначала
ПРАВИЛА

 

[ДоЛБаК]

мда. Так и хочется придраться к нику. Ну да ладно. Прочтите сначала
ПРАВИЛА

Спасибо за наставления! а ник давно такой привязался!

 

[ДоЛБаК]

мне нужно эту функцию написать в паскале для сестры, а я сто лет этим не пользовался и вот решил обратиться к вам. Думаю, кто нить сможет помочь мне в этом!!!!

 

[kreol]

Спасибо за наставления! а ник давно такой привязался!

Ну сори если что....
Думаю завтра(вернее уже сегодня) вам помогут. А то у меня экзамен завтра(сегодня)... Если что то напишу...

 

[AlexZir]

Ловите:

const 
   a=-0.5;
   b=2;
var t,y:real;
begin
   t:=0;
   y:=0;
   while t<=3 do 
   begin
      if t<1 
         then y:=1 
         else if t>2
                  then y:=exp(a*t)*cos(b*t)
                  else y:=a*sqr(t)*ln(t);
      writeln('y=',y);
      t:=t+0.15;
   end;
readln;
end.