Диофантово уравнение

Светлана*** · 27.04.2012, 22:00

Помогите пожалуйста....это просто ужас какой то....
Разработать программу для решения Диофантова уравнения вида: a+2b+3c+4d=30, где a,b,c,d - некоторые положительные целые числа. Нахождение коэффициентов a,b,c,d осуществить с помощью генетического алгоритма.

duc · 28.04.2012, 02:21

Всё бы хорошо, вот только знать бы ещё на чём разработать программу

Если мне ещё склероз не изменяет, лет 25 назад писал её на программируемом микрокалькуляторе.

Светлана*** · 30.04.2012, 20:38

Цитата:

Сообщение от duc

Всё бы хорошо, вот только знать бы ещё на чём разработать программу

Если мне ещё склероз не изменяет, лет 25 назад писал её на программируемом микрокалькуляторе.

упс простите))) на Паскале.... на Си есть в интернете... а вот на Паскале нету((((( Помогите.. очень надо...

Gruvi · 01.05.2012, 00:43

Светлан, можно с СИ перекодить в паскаль, там не трудно, скачиваете книгу по СИ и смотрите значение команд.
а так вот, не даю гарантии что работать будет, но :

Цитата:

uses
crt;

type
tarray = array[1..4] of integer;
tmatrix = array[1..20] of tarray;

var
a: tmatrix;
i, j: integer;

function f(var a: tarray): integer;
begin
f := a[1] + 2 * a[2] + 3 * a[3] + 4 * a[4] - 30;
end;

procedure scresh(var a: tmatrix);
var
i, j, count, j1, j2: integer;
begin
count := random(20) + 1;
for i := 1 to count do
begin
j1 := random(20) + 1;
repeat
j2 := random(20) + 1;
until j1 <> j2;
for j := 1 to 4 do
a[j1, j] := abs((a[j1, j] - a[j2, j]) div 2) + 1;
end;
end;

procedure mutac(var a: tmatrix);
var
i, j, count, j1: integer;
begin
count := random(20) + 1;
for i := 1 to count do
begin
j1 := random(20) + 1;
for j := 1 to 4 do
a[j1, j] := abs(a[j1, j] + random(10) - 5) + 1;
end;
end;

procedure selec(var a: tmatrix);
var
i, j: integer;
b: tarray;
begin
for i := 1 to 19 do
for j := i + 1 to 20 do
if abs(f(a[i])) > abs(f(a[j])) then
begin
b := a[i];
a[i] := a[j];
a[j] := b;
end;
end;

begin
randomize;
for i := 1 to 20 do
for j := 1 to 4 do
a[i, j] := random(100) + 1;
writeln('Search...');
repeat
scresh(a);
mutac(a);
selec(a);
writeln(a[1, 1], ' ', a[1, 2], ' ', a[1, 3], ' ', a[1, 4], ' f=', f(a[1]));
until abs(f(a[1])) = 0;
writeln('----------------');
writeln('Answer: a=', a[1, 1], '; b=', a[1, 2], '; c=', a[1, 3], '; d=', a[1, 4]);
readln;
end.

Светлана*** · 01.05.2012, 20:47

А можно как то подробно объяснить всю программу? почему 20 случайных чисел?
a[j1, j] := abs((a[j1, j] - a[j2, j]) div 2) + 1 вот эта формула откуда...? и последующие))

Светлана*** · 12.05.2012, 23:05

и вообще не хорошо воровать чужие программы....

Léon · 12.05.2012, 23:50

Цитата:

Сообщение от Светлана***

и вообще не хорошо воровать чужие программы....

Светлана, вот Вы просите разработать программу. Для Вас её делают, Вы копируете и сдаете как собственную. Вот Вас совесть не мучает????
Кстати, откуда Вы знаете что не Gruvi её написал???

Gruvi · 13.05.2012, 01:39

да не моя программа, просто смысл был писать программу самому, если готовая есть уже ? вам то какая разница светлана, кто её написал и как?
я специализируюсь в основном на delphi , но pascal не весь еще забыл

DDREDD · 13.05.2012, 02:10

Цитата:

Сообщение от Светлана***

и вообще не хорошо воровать чужие программы....

Вот тебе и спасибочки.

Vladimir_S · 13.05.2012, 09:53

Цитата:

Сообщение от Светлана***

и вообще не хорошо воровать чужие программы....

Цитата:

Сообщение от DDREDD

Вот тебе и спасибочки.

Да уж... С минуту сидел с отвисшей челюстью, а потом ржал, аки конь непотребный. Ну просто восхитительная наглость! Т.е. позиция типа "вы мне напишите программу, я скатаю и сдам, как свою, но чтобы была оригинальной, а не то...". Bravissimo! Название: rofl.gif
Просмотров: 310

Размер: 23.7 Кб

Название: rofl.gif
Просмотров: 310

Размер: 23.7 Кб

27.04.2012, 22:00	#1 (permalink)
Светлана*** Новичок Регистрация: 27.04.2012 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Диофантово уравнение Помогите пожалуйста....это просто ужас какой то.... Разработать программу для решения Диофантова уравнения вида: a+2b+3c+4d=30, где a,b,c,d - некоторые положительные целые числа. Нахождение коэффициентов a,b,c,d осуществить с помощью генетического алгоритма.

27.04.2012, 22:00
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Аналогичные топики могут просветить решение проблемы Решить дифференциальное уравнение в Паскале Как записать уравнение в QBasic? Диофантово уравнение

28.04.2012, 02:21	#2 (permalink)
duc Banned Регистрация: 23.11.2010 Сообщений: 6,749 Сказал(а) спасибо: 18 Поблагодарили 27 раз(а) в 6 сообщениях Репутация: 17514	Всё бы хорошо, вот только знать бы ещё на чём разработать программу Если мне ещё склероз не изменяет, лет 25 назад писал её на программируемом микрокалькуляторе.

01.05.2012, 20:47	#5 (permalink)
Светлана*** Новичок Регистрация: 27.04.2012 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	А можно как то подробно объяснить всю программу? почему 20 случайных чисел? a[j1, j] := abs((a[j1, j] - a[j2, j]) div 2) + 1 вот эта формула откуда...? и последующие))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

12.05.2012, 23:05	#6 (permalink)
Светлана*** Новичок Регистрация: 27.04.2012 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	и вообще не хорошо воровать чужие программы....

13.05.2012, 01:39	#8 (permalink)
Gruvi VIP user Регистрация: 10.03.2011 Сообщений: 765 Записей в дневнике: 1 Сказал(а) спасибо: 10 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3453	да не моя программа, просто смысл был писать программу самому, если готовая есть уже ? вам то какая разница светлана, кто её написал и как? я специализируюсь в основном на delphi , но pascal не весь еще забыл