Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Июнь 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на языке Pascal


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Асмик Александровна
Статус: Академик
Рейтинг: 8316
∙ повысить рейтинг » 		Орловский Дмитрий
Статус: Академик
Рейтинг: 5558
∙ повысить рейтинг » 		Гусятинер Леонид Борисович aka lamed
Статус: Академик
Рейтинг: 5475
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)

Номер выпуска:1193
Дата выхода:17.06.2011, 02:30
Администратор рассылки:Boriss (Академик)
Подписчиков / экспертов:169 / 176
Вопросов / ответов:1 / 1

Вопрос № 183598: Здравствуйте уважаемые эксперты! Прошу помощи в следующем вопросе: Помогите пожалуйста реализовать задачу с решением на языке Pascal в среде turbo! ссылка на задачу: http://rfpro.ru/upload/5942 если плохо видно формулы решения, они выложены...

Вопрос № 183598:

Здравствуйте уважаемые эксперты! Прошу помощи в следующем вопросе:
Помогите пожалуйста реализовать задачу с решением на языке Pascal в среде turbo!
ссылка на задачу: http://rfpro.ru/upload/5942
если плохо видно формулы решения, они выложены последовательно:
http://rfpro.ru/upload/5943
http://rfpro.ru/upload/5944
http://rfpro.ru/upload/5945
Заранее спасибо!

Отправлен: 12.06.2011, 02:14
Вопрос задал: Руслан Чернов (Посетитель)
Всего ответов: 1
Страница вопроса »

Отвечает Орловский Дмитрий (Академик) :
Здравствуйте, Руслан Чернов!
Посмотрите такой вариант
program koef;

uses crt;

type
TFun = function(x:Double):Double;

var
mx,my,mz: Double;
sx,sy,sz: Double;
ax,ay,az: Double;
bx,by,bz: Double;
k:Double;

function PLaplas(x:Double):Double;far;
begin
PLaplas:=Exp(-x*x/2)/Sqrt(2*Pi);
end;

function ISimpson(a,b:Double;n:Integer;f:TFun):Double;
var
i:Integer;
h:Double;
y:Double;
begin
h:=(b-a)/n/2;
y:=f(a)+f(b)+f(b-h);
for i:=1 to n-1 do
begin
y:=y+4*f(a+h*(2*i-1))+2*f(a+2*i*h);
end;
y:=y*h/3;
ISimpson:=y;
end;

function FLaplas(x:Double):Double;
var
y:Double;
begin
y:=ISimpson(0,Abs(x),10000,PLaplas);
if x<0 then y:=-y;
FLaplas:=y;
end;

function P(a,b,m,s:Double):Double;
var
x1,x2:Double;
begin
x1:=(a-m)/s;
x2:=(b-m)/s;
P:=FLaplas(x2)-FLaplas(x1);
end;

begin
clrscr;
Write('mx=');Readln(mx);
Write('my=');Readln(my);
Write('mz=');Readln(mz);
Write('sx=');Readln(sx);
Write('sy=');Readln(sy);
Write('sz=');Readln(sz);
Write('ax=');Readln(ax);
Write('bx=');Readln(bx);
Write('ay=');Readln(ay);
Write('by=');Readln(by);
Write('az=');Readln(az);
Write('bz=');Readln(bz);
k:=P(ax,bx,mx,sx)*P(ay,by,my,sy)*P(az,bz,mz,sz);
Writeln('k=',k);
Readln;
end.

Ответ отправил: Орловский Дмитрий (Академик)
Ответ отправлен: 14.06.2011, 14:57
Номер ответа: 267727
Россия, Москва
Организация: МИФИ

Оценка ответа: 5
Комментарий к оценке:
Я ещё попозже посмотрю, но вроде правильно. Спасибо большое.

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 267727 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2011, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Калашников О.А. | Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2011.6.31 от 07.05.2011
    В избранное