Помогите пожалуйста)

[Jenyyy]

написать программу на паскаль

[Вадим Мошев]

Я смогу вам решить вам эту задачу за небольшое денежное вознаграждение. Если вы согласны, напишите мне на адрес электронной почты:
vadimFreelance ({coбака}) yandex {{точka}} ru
В общении через почту обсудим дальнейшую работу.

При обращении указывайте сроки, к которым задания должны быть выполнены и сумму, которую вы готовы потратить за решение задачи.

Также укажите по возможности ваши другие контакты, например, ICQ, Skype или страница Вконтакте – при их использовании процесс общения идёт в реальном времени и протекает быстрее.

[challengerr]

program c;
uses crt, math;

var
x : real; // задано по условию задачи
n : integer; // задано по условию задачи
k : integer; // счетчик цикла от 1 до n, задача решается перебором
f : real; // вычисленное значение заданной функции
g, h : integer; // ближайшие целые сверху и снизу вычисленного значения функции
dg, dh : real; // отклонения от значения функции до ближайших целых сверху и снизу
flag: integer; // флаговая переменная для определения того, как нужно находить минимум из значений отклонений
mind : real; // текущий минимум из dg и dh
cmind : integer; // счетчик, соответствующий минимуму ( значение n при котором отклонение минимально
mind2 : real; // минимум на одной из итераций

begin

// задание значений произвольным образом
k := 1;
n := 3;
x :=0.1;
flag := 0;

// цикл
for k := 1 to n do
begin

// вычисление функции
f := exp ( cos ( power ( x , 2 * k ) ) ) * sin ( power ( x, 3 * k ) );

g := floor(f); // ближайшее целое снизу
h := ceil(f); // ближайшее целое сверху

dg := abs ( g - f ) ;
dh := abs ( h - f ) ;

writeln (f, ' ', g, ' ', h, ' ', dg, ' ', dh);

// нужно по условию задачи найти такое f  при котором
dg или dh будет минимальным из всех вычисленных

if flag = 0 then
begin

if (dg > dh ) then
mind := dh
else
begin
mind := dg;
flag := 1;
cmind := k;
end; 

end // конец if ( flag = 0)
else
begin

if dg > dh then
mind2 := dh;
else
mind2 := dg;

if mind > mind2 then
begin
mind := mind2;
cmind := k;
end;

end; // конец else от if (flag = 0)

end; // конец цикла 

// в cmind значение счётчика n при котором отклонение было минимальным

end.

Примерно так это делается.

[min@y™]

На портале давно пора запилить большую кнопку "ЗАКАЗАТЬ ЛАБУ", по которой будет открываться форма онлайн-заказа с соотв. полями для заполнения:

• задание,
• язык/среда,
• сроки,
• доп. инфо,
• цена в рублях или евро,
• контакты заказчика.

По нажатию на батон "ПОДТВЕРДИТЬ" сервер создаёт топик в разделе "Фриланс". Все апплодируют.