Написать программу вычисления

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

Написать программу вычисления

Выбрать алгоритм и составить его блок-схему для вычисления
значения указанной в варианте функции y = y(x). Составить программу
вычисления величины y(x) и F, где
1,если 0.
F 0, если 0,
1, если 0

 

[Николай_С]

Ща придет Vladimir_S и скажет, что он программист, а не экстрасенс...
Анечка, быстренько указываем язык программирования, пока никто не видел....

 

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

извините я просто думала . ой ну короче паскаль ))

 

[Vladimir_S]

извините я просто думала . ой ну короче паскаль ))

Чудесно! Тогда вопрос: дорогая Аня, Вы сами-то хоть раз прочитали то, как Вы задали F?

1,если 0.
F 0, если 0,
1, если 0

Знаете, без экстрасенсов тут всё-таки не обойтись. Ибо без них понять, что Вы под этим подразумеваете - увы, я не в силах.

 

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

ну я не знала как написать , F =система , я не понимаю ничего я вот меня подруга научила скринить я ван скриник отправлю

 

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

О Владик это снова ты )))

 

[Николай_С]

Ну, не знаю...
Может, когда-нибудь Владимира и называли Владиком, но на форуме этого бородатого дядьку чаще называют Владимиром Игоревичем. )

 

[Vladimir_S]

Ну, не знаю...
Может, когда-нибудь Владимира и называли Владиком, но на форуме этого бородатого дядьку чаще называют Владимиром Игоревичем. )

Ну вот взял и заложил, нехороший ты Коля человек! А может я и не против десяток-другой (э-э.. третий... четвертый...) годков скинуть, хоть виртуально?

 

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

Мальчики не ссоритесь ))) вы же не знаете сколько мне лет но помогаете может мне под сотню и я захотела на старости паскаль изучать )))

 

[Николай_С]

Тогда, хоть бы на аватаре бороду сбрил.

Хм!!!
А "бабушка" Аня, оказывается, тоже не промах - палец в рот не клади...

P.s. Ладно, вытут занимайтесь... Не буду вам мешать... Удаляюсь...

 

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

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

 

[Vladimir_S]

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

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

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.

 

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

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

 

[Николай_С]

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

 

[Vladimir_S]

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

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