Оно работает! / программирование :: я сделяль :: видео (video) :: geek (Прикольные гаджеты. Научный, инженерный и айтишный юмор)

кг/ам даже смотреть не буду

Графический интерфейс на паскале какой-то когнитивный диссонанс вызывает. Мне казалось он помер еще до того как графические интерфейсы вообще появились.

молодец, без иронии :)
да, я типичный мимокрокодил, но посоветовал бы сделать все то же самое, но простым веб приложением
как вариант, backend на .net core (или nodejs) и frontend - чистый js
по крайней мере будет не стыдно показать при первом трудоустройстве
отдельным бонусом зачтется репозиторий с кодом на github

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

искренне желаю удачи в начинаниях :)

Опаньки, а кто это тут у нас некромантией решил заняться? )))

Вот объясните мне, долбоебу, ну как все это работает? коды, компьютеры. Ну хорошо окей, у тебя есть куча транзисторов и кремниевых пластин, ты через все это пропускаешь ток (уууух бля) и? Вот как программировали первый, хер с ним компьютер, калькулятор с принтером?. Вот откуда он знает что команда print должна что то печатать, а не рисовать на экране залупу? Как он вообще понимает что что то надо рисовать, переводить потоки напряжения, чтобы задействовалась, цепь, которая отвечает за отрисовку определенного пикселя на экране? Вы такие мне, ну ты че дурак чтоли, там же программа написана! А я спрошу, как куча металла ПОНИМАЕТ что за конкретно написанный текст, должно происходить то или это? ну вот как?

Заставил работать кириллицу? Огромная уважуха. Мне лень даже подумать об этом.

Молодец, дальше осваивай git и хотя бы python.

дебажные паузы не убрал? чо оно так медленно-то рисуется?

Хорошая тема в плане понять саму суть программирования на уровне "чуть больше, чем азы", и что самое главное - написать что-то, что дает осязаемый результат.

Но вообще, как правильно сказали, стоит перейти на что-то "поживее", возможно python, хз.
Как человек, еще до виндовой эры баловавшийся на бейсике и паскале, но так и не ставший программером ввиду непонимания где и куда идти (хотя как сисадмин и дба использующий различное скриптописательство для автоматизации) посоветовал бы уже сейчас стремиться к более "читабельному" коду и несколько по другому строить в голове работу программы.
Если ты через года 2-3 когда-то наткнешься на этот код, будешь ломать голову "а что делает этот кусок программы".

существует куча разных советов и best practice. у меня лучше всего получалось осваивать следующим путем:
взять небольшую прогу, написанную "в хорошем стиле" и имеющую функции ввода-вывода, схожие с тем, что хочу получить, и уже по образу и подобию пилить что-то свое. в идеале конечно хорошо если это прога кого-то знакомого, которого можно иногда спросить когда что-то непонятно, но не задрачивая вопросами каждые 5 минут, а пытаться разобраться по возможности самому.

разбивать прогу на понятную структуру, юзать процедуры и функции. gui отделить от логики, использовать понятные и очевидны имена переменных, процедур и функций. (ну "x,y" в данном случае возможно допустимо оставить, координаты самоочевидны, возможно имя массива тоже)
стоит подумать о возможности масштабирования, поэтому всячески избегать "хардкодить" цифры прямо в тело (типа 7,6 как размеры поля и/или 740,720)
Желательно указать их со старта как константы, потом ссылаться на них, либо вычислять, исходя из них.
Ты и так это делал один раз, когда высчитывал все эти цифры в textout, но указал в программе числовые значения.
Просто если вдруг понадобится изменить кол-во рядов или ширину окна, потом придется скакать по всему коду, меняя эти цифры, вспоминать "а хуле у меня тут 140 а там 130", потом что-нибудь обязательно проебется и даже в проге, которая до того была вылизана и отлажена, вдруг неясно откуда появятся баги.


условно говоря, я бы писал что-то типа

...(variables)
ExitGame, EndOfGame: boolean;

begin

Player=1;
ExitGame:=false;
EndOfGame:=false;
StartMessage;
DrawTable;

While not ExitGame do
begin
While not EndOfGame do
begin
PlayerMove;
DrawTable
Player:=3-Player; // SwitchPlayer
end;
AskForRepeat;
end;

end.

А дальше уже вот эту поеботу (StartMessage, DrawTable) распихать отдельными процедурами


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

Красавчик! Ебош дальше, не останавливайся. Все только начинается:)
За 6 месяцев отличный результат!