Домино на паскале

@Miracle99 · Регистрация: 12.09.2017

Студворк — интернет-сервис помощи студентам

Проверял часть программы и наткнулся на такую проблему. Идет построение в ряд доминошек и каждый раз почему-то используется первая введенная доминошка, а введенные после первого прогона не воспринимаются программой. В чем проблема?

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
var 
str:integer;
  table,slam:string;
  label 1;
begin
table:='34';
writeln(table);
str:=2;
1:
readln(slam);
 
      if length(table) = 0 then
        insert(slam, table, 0)
          else
      
      if table[str] = slam[1] then begin
        insert(slam, table, str+1);
        str:=str+2;
        end
      else if table[str] = slam[2] then begin
        insert(copy(slam, 2, 1)+copy(slam , 1, 1), table, str+1);
        str:=str+2;
        end
      else begin
        writeln('Ваша кость не соответствует');
        // goto other;
      end;
      slam:='';
      writeln(table);
      goto 1
end.

@Sun Serega · 01.12.2018, 15:15

Воспользуйтесь отладкой (F8). Во время отладки можно смотреть значения переменных, таким образом можно понять где неправильное значение.

@Miracle99 · 01.12.2018, 15:26 **[ТС]**

А можете еще кое-что подсказать. Вот смотрите, мне нужно будет в GraphABC ставить доминошки правильно в ряд друг за другом. 1. Как присвоить, допустим, строке 56 png картинку доминошки 56?
2. И как можно сделать так, чтобы картинка новой доминошки ставилась с любой из трех строн старой доминошки. Например, у тебя на столе доминошка 34 и у тебя в руке есть 14 и ту что у тебя в руке можно поставить как сверху числа 4(доминошки, что на столе), так и справа и снизу.
И при это же картинки нужно как-то вертеть? Или лучше несколько картинок в разных положениях сделать?

@Sun Serega · 01.12.2018, 15:43

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

Как присвоить, допустим, строке 56 png картинку доминошки 56

Сделайте класс - доминошка, в котором будет хранится координаты (включая то - как он повёрнута) и ссылка на картинку (или лучше на 2 - по 1 на цифру). Таким образом каждая доминошка будет связана со своей картинкой.

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

как можно сделать так, чтобы картинка новой доминошки ставилась с любой из трех строн

Надо поставить саму доминошку (то есть вычислить координаты. Это просто несколько if-ов), а затем изменить координаты связанной с это доминошкой картинки.

@JuriiMW · 01.12.2018, 15:50

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

картинку доминошки 56

Картинку доминошки легко нарисовать.
Потребуется всего 7 различных вариантов заполнения квадратика: от пусто до 6…
Ну и составлять их в нужных вариантах хоть горизонтально, хоть вертикально.

@Miracle99 · 01.12.2018, 15:54 **[ТС]**

Даже не представляю, как это делать. Нам дали курсач, но графику мы еще даже близко не затрагивали, поэтому самообучаюсь, так сказать. Есть какие-нибудь исходики, как это делать? Или может сможешь помочь составить эту часть программы?)

@JuriiMW · 01.12.2018, 15:56

Научитесь сначала общаться с незнакомыми людьми…
… А потом поучитесь ЯП!
Конкретно: массивы, записи.

@Sun Serega · 01.12.2018, 16:14

И GraphABC ещё. С компилятором на комп ставится очень много примеров, там ищите.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

Домино на паскале

Решение

Решение

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	01.12.2018, 15:15
	Сообщение было отмечено Miracle99 как решение Решение Воспользуйтесь отладкой (F8). Во время отладки можно смотреть значения переменных, таким образом можно понять где неправильное значение. 1

@Miracle99 0 / 0 / 0 Регистрация: 12.09.2017 Сообщений: 14
	01.12.2018, 15:26 [ТС]
	А можете еще кое-что подсказать. Вот смотрите, мне нужно будет в GraphABC ставить доминошки правильно в ряд друг за другом. 1. Как присвоить, допустим, строке 56 png картинку доминошки 56? 2. И как можно сделать так, чтобы картинка новой доминошки ставилась с любой из трех строн старой доминошки. Например, у тебя на столе доминошка 34 и у тебя в руке есть 14 и ту что у тебя в руке можно поставить как сверху числа 4(доминошки, что на столе), так и справа и снизу. И при это же картинки нужно как-то вертеть? Или лучше несколько картинок в разных положениях сделать? 0

@Miracle99 0 / 0 / 0 Регистрация: 12.09.2017 Сообщений: 14
	01.12.2018, 15:54 [ТС]
	Даже не представляю, как это делать. Нам дали курсач, но графику мы еще даже близко не затрагивали, поэтому самообучаюсь, так сказать. Есть какие-нибудь исходики, как это делать? Или может сможешь помочь составить эту часть программы?) 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	01.12.2018, 15:56
	Научитесь сначала общаться с незнакомыми людьми… … А потом поучитесь ЯП! Конкретно: массивы, записи. 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	01.12.2018, 16:14
	И GraphABC ещё. С компилятором на комп ставится очень много примеров, там ищите. 0