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

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

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

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

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 ещё. С компилятором на комп ставится очень много примеров, там ищите.

Новые блоги и статьи Все статьи Все блоги /
Создание и использование компонентов в Vue 3 Reangularity 14.03.2025 Компонент в Vue - это автономный блок интерфейса, который содержит собственную разметку, логику и стили. Представьте себе кнопку, форму ввода или даже целую панель навигации - всё это можно оформить. . .	Vue 3: Создаем современное веб-приложение с Composition API Reangularity 14.03.2025 В фронтенд-разработке Vue 3 выделяется своим прагматичным подходом. В отличие от React с его минималистичной философией "всё — JavaScript" или Angular с его всеобъемлющим корпоративным подходом, Vue. . .	Разработка контекстных меню в iOS mobDevWorks 14.03.2025 С приходом iOS 13 Apple представила новый API для контекстных меню, который полностью заменил предыдущую технологию 3D Touch peek & pop. Хотя многие разработчики и пользователи испытывают ностальгию. . .	Лучшие практики оптимизации Docker Image Mr. Docker 13.03.2025 Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .	Вопросы на собеседовании по Docker Mr. Docker 13.03.2025 Ты сидишь напротив технического специалиста, и вдруг звучит вопрос про Docker Swarm или многоэтапные сборки. Пот на лбу? Не переживай, после этой статьи ты будешь готов ко всему! Эта статья будет. . .
Поиск текста в сносках : замена дефиса на тире или тире на дефис... РоΜа 13.03.2025 Нужно было найти текст в сносках и заменить. Почему-то метод селекшн не сработал. . . пришлось гуглить. найденный на форумвба код пришлось править. Смысл - заменяет в сносках дефисы и тире на нужные. . . .	Real PATH definitions in bash scripts jigi33 13.03.2025 Как поймать путь и путь к директории относительно запускаемого файла в BASH 1. поймать путь через вывод $(pwd) 2. более правильно - на основе realpath (см. скриншот)	Django или Flask: что выбрать для веб-разработки на Python py-thonny 13.03.2025 Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .	Непрерывное развертывание в Java с Kubernetes Javaican 13.03.2025 Чем так привлекателен Kubernetes для развертывания Java-приложений? Этот оркестратор контейнеров позволяет автоматизировать развертывание, масштабирование и управление контейнеризированными. . .	Предотвращение XSS, CSRF и SQL-инъекций в JavaScript run.dev 13.03.2025 JavaScript занимает первые позиции среди языков веб-разработки, но его распространенность делает его привлекательной целью для злоумышленников. Межсайтовый скриптинг (XSS), межсайтовая подделка. . .

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

Решение

Решение

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

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

@Sun Serega 2351 / 1454 / 526 Регистрация: 07.04.2017 Сообщений: 4,795
	01.12.2018, 15:43	4
	Сообщение было отмечено Miracle99 как решение Решение Сообщение от Miracle99 Как присвоить, допустим, строке 56 png картинку доминошки 56 Сделайте класс - доминошка, в котором будет хранится координаты (включая то - как он повёрнута) и ссылка на картинку (или лучше на 2 - по 1 на цифру). Таким образом каждая доминошка будет связана со своей картинкой. Сообщение от Miracle99 как можно сделать так, чтобы картинка новой доминошки ставилась с любой из трех строн Надо поставить саму доминошку (то есть вычислить координаты. Это просто несколько if-ов), а затем изменить координаты связанной с это доминошкой картинки. 1

@JuriiMW 5089 / 2658 / 2352 Регистрация: 10.12.2014 Сообщений: 10,054
	01.12.2018, 15:50	5
	Сообщение от Miracle99 картинку доминошки 56 Картинку доминошки легко нарисовать. Потребуется всего 7 различных вариантов заполнения квадратика: от пусто до 6… Ну и составлять их в нужных вариантах хоть горизонтально, хоть вертикально. 0

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

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

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