Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Функция и процедура (http://www.tehnari.ru/f41/t31456/)

Ins1s 25.12.2009 22:15

Функция и процедура
 
здравствуйте...помогите кто нибудь пожайлуста....
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 25.12.2009 22:57

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

DDS 25.12.2009 23:31

Код:

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 27.12.2009 16:54

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

Ins1s 27.12.2009 17:20

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

AlexZir 27.12.2009 17:24

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

Ins1s 27.12.2009 17:25

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

Ins1s 27.12.2009 17:28

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

DDS 27.12.2009 17:31

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

Ins1s 27.12.2009 17:34

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


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

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.