Помогите написать программу

[Богдан 97]

Помогите написать программу

Для функции у= у(х) заданной графически построить аналитическую зависимость , составить блок схему и составить программу для вычисления величины у в Паскаль

 

[Vladimir_S]

Для функции у= у(х) заданной графически построить аналитическую зависимость , составить блок схему и составить программу для вычисления величины у в Паскаль

А самому - никак? Задачка-то детская.

 

[MagentaTiger]

Проблема в паскале или в математике ?

 

[Vladimir_S]

Проблема в паскале или в математике ?

Ох, Олег, подозреваю, что и в том, и в другом, и вообще. Да и то сказать: середина декабря, началось пробуждение студенчества от осенней спячки...

 

[Богдан 97]

Вы можете помочь или нет ?

 

[Vladimir_S]

Вы можете помочь или нет ?

Да ладно, сейчас нарисую.

 

[Vladimir_S]

Ну вот Паскаль-программа:

Const
 d=2.0;
 R=1.0;

Var
 x:real;

Function Y(z:real):real;
begin
 if (z<-(R+d)) or (z>(R+d)) or
    ((z>(-d+R)) and (z<(d-R))) then Y:=0
 else
  begin
   if z<0 then Y:=-Sqrt(Sqr(R)-Sqr(z+d));
   if z>0 then Y:=Sqrt(Sqr(R)-Sqr(z-d));
  end;
end;

Begin
 Write('x = ');
 Readln(x);
 Writeln('Y(',x:0:2,') = ',Y(x):0:2);
 Readln
End.

Сейчас поищу какой-нибудь сервис для блок-схем.
Вы только не гневайтесь, пожалуйста!

 

[MagentaTiger]

program a;
uses
  SysUtils,Math;

var d,r,x,y:Double;
begin
  write('Введите значение d:');
  readln(d);
  write('Введите значение r:');
  readln(r);
  if abs(r)>=abs(d) then
  begin
    writeln('Абсолютное значение d должно быть больше r');
    readln;
    exit;
  end;
  write('Введите значение X:');
  readln(x);
  y:=0;
   if (x> -(d+r)) and (x<-d+r) then y:= -sqrt( abs(r*r - (d+x)*(d+x)));
   if (x< d+r) and (x> d-r) then y:= sqrt( r*r - (d-x)*(d-x));
   writeln ('y=',y:0:2);
  readln;

end.

PS. ) не успел

 

[Vladimir_S]

PS. ) не успел

Да ладно, Олег, может быть нас и простят за два варианта. Впрочем, нагружать человека выбором - это, конечно, жестоко.

P.S. А с блок-схемой - и не знаю. Сам этим не занимаюсь, нашел OnLine сервис, так он, сволочь, функцию игнорирует, а другие - это всё приложения, которые надо скачивать, устанавливать и т.п., что я в гробу видал.

 

[Богдан 97]

Спасибо большое