Форма Эрмита

@Vovcik0 · Регистрация: 21.10.2015

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

Доброго времени суток,кто может помочь?Нужно нарисовать на форме букву Л при помощи формы Эрмита(Кривые Эрмита).

@Puporev · 07.12.2015, 09:12

Тебе что-то написали здесь
Нарисовать Букву

@Vovcik0 · 07.12.2015, 21:28 **[ТС]**

вот такой код есть,но не пойму в чем ошибка

Delphi
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
42
43
44
45
46
47
48
49
50
51
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var  x,y,xerr,yerr,dx,dy,x2,x1,y2,y1,d:Integer;
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
begin
xerr:=0; yerr:=0;
dx:=x2-x1; dy:=y2-y1;
if dx>0 then inc(x:=1);
dx:=0 then  Inc(x:=0);
dx<0, then inc(x:=-1);
if dy>0, then inc(y:=1);
dy:=0, then Inc(y:=0);
dy<0, then Inc(y:=-1);
dx:=|dx|, dy:=|dy|;
if dx>dy, then d:=dx
else d:=dy;
x:=x1; y:=y1;
Pixel(x,y)
For i:=1 to d to
Begin
Xerr=xerr+dx;
Yerr=yerr+dy;
if xerr>=d then xerr=xerr-d; x=x+incX;
if yerr>=d then yerr=yerr-d; y=y+incY;
Pixel(x,y)
End;
 
end;
 
end.

Добавлено через 7 минут

Добавлено через 49 секунд
ссылка,скажим так не подошло),поняли то что не я сделал

@Arcor · 07.12.2015, 22:08

Не по теме:

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

ссылка,скажим так не подошло),поняли то что не я сделал

дак там и не на дельфи оО

@Vovcik0 · 07.12.2015, 22:20 **[ТС]**

Я почему на си закинул это,с примитивами графическими было не очень сложно переводить их в Делфи обратно в си,но с этим заданием так не получилось.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@Vovcik0 2 / 2 / 2 Регистрация: 21.10.2015 Сообщений: 214

	Форма Эрмита 06.12.2015, 23:26. Показов 2251. Ответов 23 Метки нет (Все метки) Доброго времени суток,кто может помочь?Нужно нарисовать на форме букву Л при помощи формы Эрмита(Кривые Эрмита). 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	07.12.2015, 09:12
	Тебе что-то написали здесь Нарисовать Букву 0

@Vovcik0 2 / 2 / 2 Регистрация: 21.10.2015 Сообщений: 214
	07.12.2015, 22:20 [ТС]
	Я почему на си закинул это,с примитивами графическими было не очень сложно переводить их в Делфи обратно в си,но с этим заданием так не получилось. 0