Технический форум - Написать программу вычисления

Страница 2 из 2

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Написать программу вычисления (http://www.tehnari.ru/f41/t85757/)

Аня Молчанова

26.02.2013 20:48

Владик это красный динозавр?????

Vladimir_S

26.02.2013 20:57

Цитата:

Сообщение от Аня Молчанова (Сообщение 872447)

Владик это красный динозавр?????

Динозавр, динозавр... Ладно. Вернемся к скучной прозе жизни:

Код:

Var

 x:Real;



Function Tan(z:real):real;

begin

 Tan:=Sin(z)/Cos(z);

end;



Function Y(z:real):real;

begin

 Y:=(z*Sqr(Sqr(z))+Exp(-2.0*Abs(z)))/Sqrt(Sqrt(9.0-Sqr(z)))*

    Tan(Sqr(Cos(z)))*Sqr(Tan(Sqr(Cos(z))));

end;



Function F(z:real):Integer;

begin

 if z>0 then F:=1

 else

 if z<0 then F:=-1

 else F:=0;

end;



Begin

 Repeat

  Write('x= ');

  Readln(x);

  If Abs(x)>3 then Writeln('Incorrect: x must be between -3 and +3');

 Until Abs(x)<=3;

 Writeln('Y= ',Y(x):0:3);

 Writeln('F= ',F(Y(x)));

 Readln

End.

Аня Молчанова

26.02.2013 21:02

ОМГ ребят а у вас нету учебнника для блондинок , просто каждый раз к вам обращаться это как-то не правильно , а так я хоть учиться буду .

Николай_С

26.02.2013 21:04

Есть известный исторический пример.
Один правитель захотел изучить геометрию и попросил выдающегося математика того времени позаниматься с ним. Пока были простые теоремы, правитель был доволен, но как только понадобились умственные усилия с его стороны, он запротестовал: "Нет, ты попроще объясняй." На что математик ответил: "В науке нет королевских путей".

Vladimir_S

26.02.2013 21:11

Цитата:

Сообщение от Аня Молчанова (Сообщение 872455)

Есть. Вот тут ссылочка:
http://www.tehnari.ru/f41/t85749/#post872312

Часовой пояс GMT +4, время: 22:48.

Страница 2 из 2

Показывать 40 сообщений этой темы на одной странице