Распознавание образов Delphi10

[Skiluyami Enris]

Разработать консольное приложение, осуществляющее распознавание графических примитивов (точка, отрезок, окружность, треугольник, прямоугольник), представленных на экране с помощью псевдографики. После ввода данных программа должна выводить их на экран и выдавать пользователю ответ касательно того, что изображено на экране в форме названия фигуры (см. выше).

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

Пример псевдографики:

[Skiluyami Enris]

Скиньте мне примеры псевдографики программы delphi10. Мне препод объяснил сделать треугольники, прямоугольники, окружность и т.д., как примере псеводграфики. Как сделать псевдографики? псевдографики с помощью математических формулы - говорил препод. Я плохо знаю математику. Программисты, объясните мне пожалуйста что сперва нужно сделать? По порядку. Буду заренее благодарен.

[Stilet]

что сперва нужно сделать?

Сперва изучить это:
http://ru.wikipedia.org/wiki/%D0%9F%...B4%D0%BE%D0%B3
%D1%80%D0%B0%D1%84%D0%B8%D0%BA%D0%B 0

[Skiluyami Enris]

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

Сперва изучить это:
http://ru.wikipedia.org/wiki/%D0%9F%...B4%D0%BE%D0%B3
%D1%80%D0%B0%D1%84%D0%B8%D0%BA%D0%B 0

Это понятно. я про программированию как сделать. Что нужно добавить компонент делфи?
Думаю,
1. Мемо
2. 3 кнопки буттона (вычислить, загрузить файл и очистить)
3. что еще?

Я слабо программирую... есть чуток у вас есть похожих примеры псевдографика?

[Stilet]

3. что еще?

Ни-Че-Го. Псевдографикой можно только в консольном приложении рисовать.
по поводу задания считывать и проанализировать тебе хватит Image и StringList.

[Skiluyami Enris]

Stilet, точно? а стоит сделать оператор массив? или обычно оператор как в паскале?

[Stilet]

Я не понимаю о чем ты.
Сделай массив записей. Каждый элемент это record у которого поля char и TColor
Таким образом ты сопоставишь символ с цветом.
Допустим @ будет сопоставлен с clBlack. Тогда после загрузки сможешь прочитать код символа и перевести его в цвет.

Tr=record
 Symbol:Char; Color:TColor;
end;
...
var a:array[1..255] of Tr;
...
with TStringList.create do begin
 LoadFromFile(...);
 for i:=0 to Count-1 do begin
  for j:=1 to Length(Strings[i]) do
   for k:=Low(a) to high(a) do
    if a[i].Symbol=Strings[i][j] then Image.Canvas.Pixels[i,j]:=a[i].Color;
 end;
 Free;
end;

При этом не забыть заполнить массив символами и соответственно их цветами.
Идея ясна?

[Skiluyami Enris]

Stilet, ок) Все спасибо. Тема не закрывай. Пусть сохранить.

[Stilet]

Ладушки... )