Программа на Pascal

[turcia7]

Программа на Pascal

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

 

[Vladimir_S]

Ну и какой вариант нужен?

 

[turcia7]

Ну и какой вариант нужен?

второй)
вообще не представляю как программа может выглядеть

 

[Vladimir_S]

Со вторым я не очень понимаю - почему для подкоренного выражения просто не написать 2/х? По-моему, это то же самое. Или там в условии ошибка. Уточните.

 

[turcia7]

Со вторым я не очень понимаю - почему для подкоренного выражения просто не написать 2/х? По-моему, это то же самое. Или там в условии ошибка. Уточните.

это для пущего страха у студентов)
ошибки нет)

 

[Vladimir_S]

это для пущего страха у студентов) ошибки нет)

Ладно. Нарисую.

 

[Vladimir_S]

Вот, извольте:

Const
 a1=1.0;
 a2=4.0;
 da=1.0;
Var
 N,i:Byte;
 x,y,a:real;
Begin
 Writeln('Parameter A    Argument X    Function Y');
 N:=Round((a2-a1)/da);
 For i:=0 to N do
  begin
   a:=a1+da*i;
   x:=Exp(a)-Sqr(Sin(a*a*a));
   y:=Exp(Ln(2.0/x)/3);
   Writeln(a:7:1,'        ',x:10:5,'    ',y:10:5);
  end;
 Readln;
End.

 

[turcia7]

и в очередной раз я Вас благодарю Владимир)