Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования
Перезагрузить страницу Помогите перевести прогу с Pascal
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Саня_ Саня_ вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 01.06.2012
По умолчанию Помогите перевести прогу с Pascal - 01.06.2012, 17:16

Ребят помогите пожалуйста переделать программу с паскал"я" на язык матлаб"а"...


вот собственно она!!!

******************

program MonteKarlo;
uses WinCrt,Strings;

{Расчет значения функции}
function F(x,y: real): real;
begin
F:= exp(x+y)+exp(x-y)*sin(x);
end;

{Подпрограма вычисления двойного интеграла}
function DInt(n: longint): real;
var
S, x, y, Ax, Ay, Bx, By: real;
i: longint;
begin
randomize;
Ax:= 0; Bx:= 4; Ay:= 1; By:=5;
S:=0;
for i:= 1 to n do begin
x:= Ax+random*(Bx-Ax);
y:= Ay+random*(By-Ay);
if ((x>=0) and (x<=4))and((y>=1) and (y<=5)) then S:= F(x,y)+S;
end;
DInt:= (Bx-Ax)*(By-Ay)*S/n;
end;

var
a: real;
n: longint;

BEGIN
StrCopy(WindowTitle, 'Программа вычисления двукратного интеграла методом Монте-Карло');
ClrScr;
WriteLn;
WriteLn(' 5 4');
WriteLn(' / / ');
WriteLn(' Интеграл | | (exp(x+y)+exp(x-y)*sin(x)dxdy');
WriteLn(' / / ');
WriteLn(' 1 0');
WriteLn;
WriteLn;
WriteLn;
Write(' Введите количество вычисляемых значений подынтегральной функции n = ');
ReadLn(n);
WriteLn;
WriteLn;
WriteLn(' Подожтите пожалуйста некоторое время, пока программа произведет расчеты...');
WriteLn;
WriteLn;
WriteLn(' Результаты расчета:');
WriteLn;
WriteLn(' Значение интеграла I = ',DInt(n):10:4);
ReadKey;
DoneWinCrt;
END.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите разобрать прогу!!! sweetdream Prolog 2 20.12.2011 00:44
Помогите доделать прогу!!! Elusive Pascal 3 29.11.2011 21:08
.Как можно перевести скомпилированный файл HTML,вшитый в прогу под видом help kvacer Вопросы начинающих программистов 2 01.08.2011 14:53
Из Basic в Pascal как перевести 12345 Вопросы начинающих программистов 0 22.06.2011 22:26
Как перевести программу с pascal на c++ LASvegos Вопросы начинающих программистов 0 28.05.2011 17:14
Помогите исправить прогу? 111 Delphi 1 17.05.2011 02:36
Плиз помогите!!!!!!!не могу написать прогу,помогите Алексан Pascal 4 16.01.2011 18:12
Как перевести программу с Pascal на С Pity Вопросы начинающих программистов 0 14.12.2010 22:21
Помогите перевести программу написанную на Pascal на С Irishka_899 Pascal 0 13.10.2010 22:53
Помогите модернизировать прогу Stiker Pascal 2 14.05.2007 17:13
Написать прогу на Pascal'е imported_Аскар Pascal 4 01.05.2007 18:05
Помогите перевести прогу из Pascal в MatLAB garis Pascal 3 08.08.2006 15:19



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов