Функция и процедура

[Ins1s]

Функция и процедура

здравствуйте...помогите кто нибудь пожайлуста....
h/3(sqr (дельта x)*sqr(cos)(x+3 (дельта x)/sqr(h))-дельта x * sqr(cos)(x+дельта x/h)-sqr (дельта x) * sqr(cos)(x+2 дельта x/sqr(h)))

где h=x/8
дельта x = x/19
x=2.5094
P.S. дельта - это трехугольная фигня.. перед цифрой не знаю как он отмечается в паскале..
МНе нужно на турбо паскале.. пажайлуста.!!!

 

[DDS]

Вам нужно написать программу, которая будет высчитывать эту формулу, а подсчёт оформить как процедуру или функцию?

 

[DDS]

var h,dx,x,result:real;
function visl(h,dx,x:real):real;
  begin
  visl:=h/3*(sqr(dx)*sqr(cos(x+3*dx/sqr(h))))-dx*sqr(cos(x+dx/h))-sqr(dx)*sqr(cos(x+2*dx/sqr(h)));
  end;
begin
 x:=2.5094;
 dx:=x/19;
 h:=x/8;
 result:=visl(h,dx,x);
 writeln(result:2:10);
 readln;
end.

Вроде так.

 

[Ins1s]

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

 

[Ins1s]

я короче ввожу....а ответ один и тот же -какие то числа.

 

[AlexZir]

А вы что хотели получить? Картинку? Видео?
По заданию вам даны функция и значение аргумента - по данному значению вычисляется значение данной функции. Попробуйте изменить значение переменной x на другое число - получите другой результат.

 

[Ins1s]

аа... как то не фига не пойму .. щас поменяю посмотрю..!) спс

 

[Ins1s]

а что означает вот это --- result:2:10) ?

 

[DDS]

А что Вы вводите?
Там стоит readln как остановка, что бы Вы могли посмотреть результат вычислений. А если хотите разных цифер меняйте аргументы(dx,x,h).
Result:2:10 - это форматный вывод, да бы число выводилось в привычной форме.

 

[Ins1s]

спс все понял кроме result:2:10) это означает?
P.S. извените за такие вопросы.. просто я не понимаю..

 

[DDS]

Без форматного вывода вещественный тип выведется в формате с плавающей точкой.
Например число 125.3 в этом формате будет выглядеть как 1.2530000E+0002, а поставив форматный вывод3:2), на экран выведется 125.30

 

[Ins1s]

оО спсасибо.. а можешь посмотреть ниже этой темы задачку!!!!?

 

[AlexZir]

Алгоритм я вам расписал, попробуйте реализовать самостоятельно. Если не получится - запостИте свой листинг - поможем.

 

[Ins1s]

ага.. спасибо