С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
sanek77736
5 / 5 / 4
Регистрация: 07.11.2012
Сообщений: 77
1

Компиляция готовой программы

27.12.2014, 18:16. Просмотров 540. Ответов 19
Метки нет (Все метки)

Пожалуйста помогите Скомпилировать и получить exe файл с исходниками данной программы.
Delphi
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
program MNS;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const dx=0.0001;
var x,df:array of real;
eps,h,grad:real;
i,j,n:integer;
 
function f(x:array of real):real;
begin
  f:=sqr(X[1]-4*X[2]))+(sqr(X[2]+5)
end;//f//
 
procedure step (n:integer;var h,grad:real);
var d2f: array of array of real;
    i,j:integer;
    s,s1,f0:real;
 
begin
SetLength (d2f,n+1,n+1);
f0:=f(x);
for i:=1 to n do
    begin
      x[i]:=x[i]+dx;
      df[i]:=(f(x)-f0)/dx;
      x[i]:=x[i]-dx;
    end;
 
for i:=1 to n do
  begin
    s:=-2*f(x);
    x[i]:=x[i]+dx;
    s:=s+f(x);
    x[i]:=x[i]-2*dx;
    s:=s+f(x);
    x[i]:=x[i]+dx;
    d2f[i,i]:=s/sqr(dx);
  end;
 
for i:=1 to n-1 do
  for j:=i+1 to n do
    begin
      s:=f(x);
      x[i]:=x[i]-dx;
      x[j]:=x[j]-dx;
 
        s:=s+f(x);
        x[j]:=x[j]+dx;
 
          s:=s-f(x);
          x[i]:=x[i]+dx;
          x[j]:=x[j]-dx;
 
            s:=s-f(x);
            x[j]:=x[j]+dx;
            d2f[i,j]:=s/sqr(dx);
            d2f[j,i]:=d2f[i,j];
end;
 
s:=0;
s1:=0;
  for i:=1 to n do
  s:=s+sqr(df[i]);
    for i:=1 to n do
    for j:=1 to n do
    s1:=s1+d2f[i,j]*df[i]*df[j];
    h:=s/s1;
    grad:=sqrt(s);
end;
 
begin
writeln('Metod naiskorejshego gradientnogo spuska');
writeln;
    writeln('Ishodnnye dannye');
    writeln;
    write('Vvedite razmernost zadachi optimizacii n = ');
    readln(n);
    write ('Vvedite tochnost vychislenij eps = ');
    readln(eps);
    writeln('Vvedite znacheniya nachalnyh peremennyh');
        SetLength (x,n+1);
        SetLength (df,n+1);
 
          for i:=1 to n do
            begin
            write ('x[',i,']=');
            readln(x[i]);
            end;
          repeat
            step(n,h,grad);
            for i:=1 to n do
              x[i]:=x[i]-h*df[i];
          until grad<eps;
            writeln;
            writeln('Rezultaty optimizacii:');
            writeln;
          for i:=1 to n do
            writeln ('x[',i,']=',x[i]:4:4);
            writeln;
            writeln ('Znachenie funccii celi = ',f(x):4:4);
            readln;
end.
Очень срочно. Спасибо!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2014, 18:16
Ответы с готовыми решениями:

Исправление готовой программы
Здравствуйте. Есть программа, реализующая метод Зейделя, делалась на основе...

Описание уже готовой программы
Программа написана на Delphi 7. Необходимо описать основные модули и...

Нужно переделать код готовой программы
Помогите переделать эту вещь unit DES; interface Uses Windows, Classes,...

Компиляция программы
Скажите пожалуйста, как откомпилировать программу, чтобы работала без среды...

компиляция программы
Помогите пожалуйста скомпилировать программу и исправить если что не так

19
mss
2634 / 2258 / 276
Регистрация: 24.12.2010
Сообщений: 13,725
27.12.2014, 18:20 2
Цитата Сообщение от sanek77736 Посмотреть сообщение
Очень срочно
Кто писал программу ?
0
sanek77736
5 / 5 / 4
Регистрация: 07.11.2012
Сообщений: 77
27.12.2014, 18:20  [ТС] 3
mss, нашёл на просторах интернета
0
mss
2634 / 2258 / 276
Регистрация: 24.12.2010
Сообщений: 13,725
27.12.2014, 18:27 4
Цитата Сообщение от sanek77736 Посмотреть сообщение
нашёл
И хочешь впарить преподу как свою, так ?
0
sanek77736
5 / 5 / 4
Регистрация: 07.11.2012
Сообщений: 77
27.12.2014, 18:30  [ТС] 5
mss, нет. У меня есть аналитический метод, мне нужно было найти и проверить своё решение каким-то образом, так вот результат этой программы будет тому подтверждением. Мне даже и код не нужен, только лишь скриншот ответа. Там должно получится примерно -20, -5.

Добавлено через 37 секунд
mss, я могу рассчитывать на вашу помощь?
0
mss
2634 / 2258 / 276
Регистрация: 24.12.2010
Сообщений: 13,725
27.12.2014, 18:33 6
Цитата Сообщение от sanek77736 Посмотреть сообщение
проверить своё решение
Ты же только что сказал что оно не твоё ?

Цитата Сообщение от sanek77736 Посмотреть сообщение
могу рассчитывать на вашу помощь?
Да, если работу выполнил ты сам.
0
sanek77736
5 / 5 / 4
Регистрация: 07.11.2012
Сообщений: 77
27.12.2014, 18:35  [ТС] 7
mss, У меня своё решение аналитическим методом есть, в маткаде, теперь мне предстоит проверить ответ программой. Лишь сравнить, ничего более. Если не поможете , то хотя бы скажите в какой среде этот код пишется?
0
mss
2634 / 2258 / 276
Регистрация: 24.12.2010
Сообщений: 13,725
27.12.2014, 18:38 8
Цитата Сообщение от sanek77736 Посмотреть сообщение
в какой среде этот код пишется?
Понятия не имею.
А компилируется в Delphi.
0
sanek77736
5 / 5 / 4
Регистрация: 07.11.2012
Сообщений: 77
27.12.2014, 18:39  [ТС] 9
mss, я просто никогда ничего не писал в Delphi. Могу я вас попросить помочь мне лишь откомпилировать программу?
0
mss
2634 / 2258 / 276
Регистрация: 24.12.2010
Сообщений: 13,725
27.12.2014, 18:52 10
http://ideone.com/WM6X00
0
sanek77736
5 / 5 / 4
Регистрация: 07.11.2012
Сообщений: 77
27.12.2014, 18:59  [ТС] 11
mss, то есть там ошибка?
0
sanek77736
5 / 5 / 4
Регистрация: 07.11.2012
Сообщений: 77
29.12.2014, 16:10  [ТС] 12
mss, актуально. помогите разобраться, пожалуйста
0
XaKO
21 / 21 / 30
Регистрация: 23.10.2012
Сообщений: 344
29.12.2014, 16:21 13
Delphi
1
 f:=sqr(X[1]-4*X[2]))+(sqr(X[2]+5)
ошибка здесь, неверно расставлены скобки
1
mss
2634 / 2258 / 276
Регистрация: 24.12.2010
Сообщений: 13,725
29.12.2014, 16:22 14
любуйся
0
Вложения
Тип файла: zip MNS.zip (56.9 Кб, 6 просмотров)
Drovoseck
54 / 54 / 29
Регистрация: 01.01.2014
Сообщений: 214
29.12.2014, 16:23 15
Project2.rar
1
XaKO
21 / 21 / 30
Регистрация: 23.10.2012
Сообщений: 344
29.12.2014, 16:25 16
mss, мне понравилось твое дополнение к проге
0
Puporev
Модератор
55494 / 42589 / 29435
Регистрация: 18.05.2008
Сообщений: 100,744
29.12.2014, 16:26 17
Цитата Сообщение от sanek77736 Посмотреть сообщение
Там должно получится примерно -20, -5.
Во первых нужно знать что вводить, потом там выводится не 2 числа, а элементы массива в зависимости от размерности и значение функции.
0
sanek77736
5 / 5 / 4
Регистрация: 07.11.2012
Сообщений: 77
29.12.2014, 16:33  [ТС] 18
XaKO, f:= sqr(x[1]-4*x[2])+sqr(x[2]+5) .
mss,Drovoseck, спасибо.
Puporev, вводить приближенное значение, то есть - -10, -5. e=0.15 , переменных две. так и получается решение = ( -20, -5 )
0
Puporev
Модератор
55494 / 42589 / 29435
Регистрация: 18.05.2008
Сообщений: 100,744
29.12.2014, 17:00 19
Ну вот
0
Миниатюры
Компиляция готовой программы  
sanek77736
5 / 5 / 4
Регистрация: 07.11.2012
Сообщений: 77
29.12.2014, 17:17  [ТС] 20
Puporev, да-да, я уже понял, спасибо!
0
29.12.2014, 17:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.12.2014, 17:17

Компиляция программы из программы
всем привет, возможно название темы не очень подходящее выбрал, но все же. я...

Изменение ресурсов готовой программы (exe)
Здравствуйте уважаемые программисты, сисадмины и просто пользователи. Есть...

Компиляция программы
У меня есть полный текст программы. Но не удаётся её скомпилировать. Программа...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru