| ← Июль 2012 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
|
16
|
17
|
18
|
19
|
20
|
21
|
22
|
|
23
|
25
|
26
|
27
|
28
|
29
|
|
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/issues/8/19/228
Открыта:
17-04-2009
Статистика
0 за неделю
RFpro.ru: Консультации по информатике
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ НАУКА И ОБРАЗОВАНИЕ / Точные и естественные науки / Информатика
Консультация # 185284: Здравствуйте! Прошу помощи в следующем вопросе: Консультация # 158906: Здравствуйте уважаемые эксперты! Подскажите пожалуйста как в Pascal реализовать функции sin, cos, tg, ctg. Я знаю, что можно воспользоваться встроенными, но т.к. я хочу создать свои - мне интересны сами алгоритмы. Спасибо Вам!!!... Консультация # 116433: Составьте программу, заменяющую из двух данных чисел большее число модулем суммы, а меньшее — модулем полуразности этих чисел.... Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 23.01.2012, 23:31 Консультирует Сергей Бендер (Профессионал): Здравствуйте, кирюша! Код : const
coin:array [1..9,1..9]of integer=(
(27,12,23,20,22,21,34,25,13),
(30,12,19,26,21,35,34,12,32),
(27,12,28,17,25,16,36,35,13),
(18,23,24,33,20,22,20,34,17),
(14,18,29,36,20,26,36,25,20),
(12,15,19,23,13,15,33,34,25),
(29,27,32,19,33,21,16,15,14),
(33,33,17,18,13,22,17,31,23),
(27,12,29,35,25,15,23,33,27)
);
var
rook,max:array[1..9]of integer;{массивы горизонталей тур (текущий и наилучший)}
rows:array[1..9]of boolean; {признак незанятости горизонтали}
sum_max:integer; {сумма накрытых чисел для наилучшей расстановки}
procedure p(a,sum:integer);
var
s:integer;
begin
for s:=1 to 9 do {перебираем горизонтали}
if rows[s] then {если она незанята}
begin
rook[a]:=s; {занимаем}
rows[s]:=false;
if a<9 then p(a+1,sum+coin[a,rook[a]]) {если непоследняя, то переходим к следующей}
{ (увеличивая сумму)}
else if sum+coin[a,rook[a]]>sum_max then {иначе сравниваем текущую расстановку }
begin {c наилучшей}
sum_max:=sum+coin[a,rook[a]];
max:=rook;
end;
rook[a]:=0; {освобождаем горизонталь}
rows[s]:=true;
end;
end;
var i:integer;
begin{main}
for i:=1 to 9 do
begin
rook[i]:=0;
rows[i]:=true;
end;
sum_max:=0;
p(1,0);
for i:=1 to 9 do write(i:3,':',max[i],'=',coin[i,max[i]]);
writeln;
writeln('Sum:',sum_max);
readln;
end.{main}Результат: Код : 1:1=27 2:6=35 3:7=36 4:8=34 5:4=36 6:9=25 7:5=33 8:2=33 9:3=29 Sum:288 2. Здесь жадный алгоритм, вероятно, реализуется так: а) находим на доске ячейку с самым большим числом и ставим ладью; б) вычёркиваем горизонталь и вертикаль; с) в оставшихся ячейках находим самое большое число; и т.д. В прикреплённом файле весь процесс показан в excel таблице. Сумма составила 277. Т.е. меньше, чем в рекурсивном алгоритме, в котором происходит полный перебор всех вариантов. Кстати, на первой же ладье имеется нексолько ячеек с максимальным значением 36. Однако, перебор вариантов тут уже не делается. Идея жадного алгоритма -- накидать всё побыстрее и попроще. Результат будет не самый-самый лучший, но достаточно большой в любой практической задаче.
Здравствуйте уважаемые эксперты! Подскажите пожалуйста как в Pascal реализовать функции sin, cos, tg, ctg. Я знаю, что можно воспользоваться встроенными, но т.к. я хочу создать свои - мне интересны сами алгоритмы. Спасибо Вам!!!
Дата отправки: 27.01.2009, 16:41 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Николай // Programmator !
Составьте программу, заменяющую из двух данных чисел большее число модулем суммы, а меньшее — модулем полуразности этих чисел.
Дата отправки: 30.12.2007, 20:47 Консультирует Николай Владимирович / Н.В. (Администратор): Здравствуйте, Kevin Garnet! Приложение:
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Версия системы: 2011.6.36 от 26.01.2012 |
1. Решить задачу, методом поиска с возвратом, используя рекурсивный или нерекурсивный вариант. 2. Решить те же задачи с помощью жадного алгоритма (можно вручную). 3. Обосновать возможность решения данн...
Прикреплённый файл: 
| В избранное | ||
