| ← Июль 2020 → | ||||||
|
1
|
4
|
5
|
||||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
|
13
|
14
|
17
|
18
|
19
|
||
|
20
|
21
|
23
|
24
|
25
|
26
|
|
|
27
|
28
|
29
|
30
|
31
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 199015: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Тема: Применение алгоритмов генерирования перестановок для решения задач переборного характера Помогите с написанием кода: Клетчатое поле размером N*N охраняется M воинами царя Артаксеркса, которые занимают разные клетки этого поля. Царь хочет разместить воинов так, чтобы обеспеч... Консультация # 199016: Уважаемые экспе рты! Пожалуйста, ответьте на вопрос: Тема: «Программирование с использованием динамических массивов» Помогите с написанием кода: 1. Составить программу формирования динамического массива А из N случайных чисел, сделать возможным его редактирование, упорядочить элементы массива по возрастанию, затем удалить все элементы,... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 11.07.2020, 22:28 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
pLink=^TLink;
TLink=record
data:integer;
next:pLink;
end;
var
n:integer;
a,b,c:pLink;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('Enter N:');
Readln(n);
a:=nil;
while n>0 do
begin
new(b);
b^.next:=a;
b^.data:=random(100)-50;
a:=b;
dec(n);
end;
b:=a;
Writeln('List:');
while b<>nil do
begin
write(b^.data:4);
b:=b^.next;
end;
writeln;
Writeln('Work:');
b:=a;
while b<>nil do
begin
if b^.data<0 then
begin
writeln('kill:=',b^.data);
if b=a then
begin
a:=a^.next;
dispose(b);
end
else
begin
c:=a;
while c^.next<>b do c:=c^.next;
c^.next:=b^.next;
dispose(b);
end;
b:=a;
end
else b:=b^.next;
end;
Writeln('Result:');
b:=a;
while b<>nil do
begin
write(b^.data:4);
b:=b^.next;
end;
readln;
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 11.07.2020, 22:33 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! © Цитата: Зенченко Константин Николаевич Консоль - Окно? © Цитата: JonMoxley да консоль окно
© Цитата: JonMoxley смешно © Цитата: Зенченко Константин Николаевич Реально не смешно, задавая свой вопрос, перед Вами была памятка: © Цитата: Зенченко Кон
стантин Николаевич Внимание! При подаче вопроса в данную рассылку, не забывайте указывать требуемую среду разработки, вид приложения (консоль, окно), при необходимости - операционную систему.  © Цитата: JonMoxley Клетчатое поле размером N*N охраняется M воинами
царя Артаксеркса, которые занимают разные клетки этого поля. Царь хочет разместить воинов так, чтобы обеспечить максимальную суммарную защиту границ своих владений (т.е. 4*(N+1) клеток, что находятся на границе поля). Каждый воин охраняет те соседние клетки, которые он видит по горизонтали, вертикали и диагонали. Защищенность клетки прямо пропорциональна количеству воинов, которые ее охраняют. Delphi За исключением: © Цитата: JonMoxley В делфи Они одинаковы.  Вам уже говорили как задавать вопросы. Ваш вопрос касается "Комбинаторики"-"РЕАЛИЗАЦИЯ ПЕРЕБОРА ВАРИАНТОВ". Общение в мини-форуме Вам не помогло, думаю "это" поможет Вам понять - Зачем нужно бескокоить экспертов, Для Вас "халява "закончилась. ps: задалите аналоичный вопрос, без учета памятки и без Ваших наработок, буду удалять, т.е. Вы под колпаком у Мнюлера, т.е меня Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 11.07.2020, 22:36 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:array of array of integer;
b:array of integer;
i,j,k,n,m:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('enter n:=');
readln(n);
writeln('Array A:');
SetLength(a,n);
m:=0;
for i:=0 to n-1 do
begin
setLength(a[i],n);
for j:=0 to n-1 do
begin
a[i,j]:=random(100)-20;
write(a[i,j]:4);
if a[i,j]<0 then inc(m);
end;
writeln;
end;
SetLength(b,m);
k:=0;
for i:=0 to n-1 do
for j:=0 to n-1 do
if a[i,j]<0 then
begin
b[k]:=abs(a[i,j]);
inc(k);
end;
writeln('Array B:');
for i:=0 to m-1 do
write(b[i]:4);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
