Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
PascalABC.NET Задача Бюффона об игле Помогите пожалуйста запрограммировать! https://www.cyberforum.ru/ pascalabc-net/ thread1319954.html Исправление PascalABC.NET
Парашютист прыгает с некоторой высоты и летит, не открывая парашюта; на какой высоте (или через какое время) ему следует открыть парашют, чтобы иметь к моменту приземления безопасную скорость (не большую 10 м/с)? Помогите исправить программу,проверку нужно оформить в мат пакете. Преподователь требует чтобы начальная высота была задана например 1000,а безопасная колеблилась от 1000 до 150 ,а...
PascalABC.NET При заливке области начинает тормозить вся картинка При заливке любого элемента начинает сильно тормозить вся картинка. В чем может быть проблема? Залить нужно разными цветами каждую ограниченную областью фигуру. uses graphABC; procedure Vrash(a:real;var x,y:integer;x0,y0,d:integer); begin a:=a*pi/180; x:=x0+round(d*cos(a)); y:=y0-round(d*sin(a)); end; var x0,y0,lx1,lx2,px1,ly1,ly2,py1,c1,c2,v1,v2,b1,b2,d1,d2:integer; https://www.cyberforum.ru/ pascalabc-net/ thread1319696.html PascalABC.NET Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нём положительные и отрицательные числа Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нём положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести номер первого элемента, нарушающего закономерность. Вот начал. Заполнил массив рандомными числами не = 0. program p5; var a: array of integer; i, N, z, c: integer; begin z := 1; https://www.cyberforum.ru/ pascalabc-net/ thread1319570.html
PascalABC.NET Составить программу вычисления объёма правильной треугольной пирамиды
у которой высота равна Н, а плоский угол при вершине равен В 		PascalABC.NET На плоскости задана окружность с центром в точке О (Х0, Y0) радиуса R Составьте программу, определяющую, принадлежит ли заданная точка Z(X, Y) множеству таких точек на плоскости, что касательные, проведённые из этих точек к данной окружности, образуют между собой угол F. https://www.cyberforum.ru/ pascalabc-net/ thread1319558.html
PascalABC.NET Адаптировать код Парни помогите и объясните, не могу найти ошибку... программа писалась в Pascal ABC, а предоставить ее надо на Pascal ABCNET.. так вот в простом паскале работает все нормально, а в паскале НЕТ, не хочет... выдает сначала ошибку цикла "for" (Я ее устраняю), потом вылазит ошибка с параметром array of integer. помогите разобраться! program LR4Iz10; var b:array of integer; mult,i,n,r,q,k:integer;... https://www.cyberforum.ru/ pascalabc-net/ thread1319530.html PascalABC.NET Составить программу вычисления суммы
sum_{m}^{i=n}((i+n)!/(i+m)!)
PascalABC.NET Удалить все элементы массива, принадлежащие отрезку [-а,а] Удалить все элементы массива, принадлежащие отрезку const n=10; var a:array of integer; b,i,v:integer; begin writeln('Введите начальный отрезок '); https://www.cyberforum.ru/ pascalabc-net/ thread1319030.html PascalABC.NET Написать программу, которая находит сумму элементов последовательности из 5 целых чисел Написать программу, которая находит сумму элементов последовательности из 5 целых чисел. Получить новую последовательность путем замены всех ненулевых элементов исходной последовательности на разность между элементом последовательности и найденной суммой. https://www.cyberforum.ru/ pascalabc-net/ thread1318992.html
PascalABC.NET Введена строка, нужно каждое слово, вывести синим зелёным или желтым
Здравствуйте. Необходимо написать программу на Pascal: Введена строка, нужно каждое слово(новым словом считаются все символы от пробела до пробела) вывести одним из цветов(рандомно): Синим-Зелёным-Желтым. 		PascalABC.NET Записать значения элементов матрицы в нетипизированный файл и сохранить файл При помощи случайных чисел ввести матрицу размером 5x7. Записать значения элементов матрицы в нетипизированный файл и сохранить файл. Прочитать из созданного нетипизированного файла значения матрицы и найти индексы минимального элемента массива. Вычислить произведение его отрицательных элементов. Найденные значения дописать в файл.Вывести содержимое файла на экран. Добавлено через 23 часа 19... https://www.cyberforum.ru/ pascalabc-net/ thread1318600.html
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32793 / 21133 / 8144
Регистрация: 22.10.2011
Сообщений: 36,393
Записей в блоге: 8
05.12.2014, 12:50 0

Задача "Домино": сгенерировать рандомно 28 костяшек домино - PascalABC.NET - Ответ 6944785

05.12.2014, 12:50. Показов 1520. Ответов 1
Метки (Все метки)

Ответ

Обычно не занимаются генерированием подобных вещей. А заполняют массив последовательными значениями, и потом его перемешивают в случайном порядке:
Pascal
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

type
  domino = record
    left, right: 0..6
  end;
  ryad = array [1..28] of domino;
 
procedure print(p: ryad);
begin
  foreach var d: domino in p do
    writeln(d.left, ':', d.right);
end;
 
procedure shuffle(var p: ryad);
var
  i, j: integer;
begin
  for i := 28 downto 1 do
  begin
    j := Random(i) + 1;
    Swap(p[i], p[j]);
  end;
end;
 
var
  pack: ryad;
  i, j, k: integer;
 
begin
  k := 0;
  for i := 0 to 6 do 
    for j := i to 6 do
    begin
      k := k + 1;
      pack[k].left := i; pack[k].right := j;
    end;
  
  // print(pack); // до перемешивания
  shuffle(pack);
  print(pack); // после перемешивания
  
end.


Вернуться к обсуждению:
Задача "Домино": сгенерировать рандомно 28 костяшек домино PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 05.12.2014, 12:50
Готовые ответы и решения:

Цепочка из N (2-3 тысячи шт примерно) костяшек домино
Сразу оговорюсь, что не прошу готовый код =) Буду рад, если натолкнете на мысль в какую сторону...

Построение цепочки из костяшек домино
Берутся случайных N костяшек из одного набора домино (1<=N<=28). Задача состоит в том,...

Проверить правильность расстановки костяшек домино
Дан массив из 22 целых чисел из интервала от 0 до 66, представляющих собой условные обозначения...

Найти наибольшую сумму костяшек домино
У игрока есть k костей домино - прямоугольников 2×1. Он кладет их на доску так, чтобы не возникало...

1
05.12.2014, 12:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 05.12.2014, 12:50
Помогаю со студенческими работами здесь

Цепочка из N (2-3 тысячи шт примерно) костяшек домино
Буду рад, если натолкнете на мысль в какую сторону копать по поиску оптимизированного алгоритма для...

Реализовать алгоритм заполнения костяшек домино значениями
Не знаю как реализовать алгоритм заполнения костяшек значениями. Изначально мне дано только M -...

Рекурсия: выстроить из костяшек домино правильную последовательность максимальной длины
Всем доброго времени суток. Задача: Имеется N костей из нескольких комплектов домино. Выстроить...

Определить, возможно ли построить из заданных костяшек домино непрерывные цепочки
Совершенно не знаю синтаксис языка Prolog, но надо написать программу для зачёта. d(2,6) это...

Найти все цепи, которые можно составить из N костяшек, взятых из одного набора домино
Домино. Костяшки домино можно выложить в цепь, состыковывая их половинками с равными количествами...

Крах апгрейда Домино 7 сервера на Домино 8
Доброго времени суток. У меня возникла проблема, суть: 1. На Шведской оське стоит английский...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru