Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.04.2021, 20:56   #1
Лолита242424
Новичок
Джуниор
 
Регистрация: 08.04.2021
Сообщений: 3
По умолчанию Разработать программу, демонстрирующую вращение отрезка относительно своей середины.

Здравствуйте, помогите Разработать программу, демонстрирующую вращение отрезка относительно
своей середины. Желательно с разъяснением.Спасибо
Лолита242424 вне форума Ответить с цитированием
Старый 09.04.2021, 08:26   #2
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

да, и как это сделать на языке ЛИСП?
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 09.04.2021, 10:44   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Ну зачем же так страшно сразу, достаточно на SmallTalk Во ФРИЛАНСЕ. Или к Набокову, он могёт.
Вот сидят тут люди, дурью маются - а пришла Лолита и всех озадачила: займитесь хоть чем полезным, ребяты, решите мои задачи, да побыстрее !

Последний раз редактировалось digitalis; 09.04.2021 в 10:53.
digitalis вне форума Ответить с цитированием
Старый 11.04.2021, 13:37   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var x0,y0,l{длина},a{угол}:integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
   x0:=Width div 2;
   y0:=Height div 2;
   If x0>y0 then
      l:=y0-20 else
      l:=x0-20;
   a:=0;
   Timer1.Interval:=100;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

   procedure Lines(color:tColor);
   var x1,y1:integer;
   begin
      x1:=Round(l*Cos(a*pi/180));
      y1:=Round(l*Sin(a*pi/180));
      With Canvas do
      begin
         Pen.Color:=color;
         Pen.Width:=3;
         MoveTo(x0+x1,y0-y1);
         LineTo(x0-x1,y0+y1);
      end;
   end;

begin
   Lines(Color);
   a:=a+5;
   Lines(clRed);
end;

end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Требуется разработать программу на vb.net 2010, демонстрирующую трехмерную графику GIPPY Фриланс 1 22.04.2018 19:32
Написать программу, демонстрирующую работу с объектами двух типов Danya215 Помощь студентам 1 23.03.2018 17:53
Сортировка последовательности относительно середины RAFA91 Общие вопросы C/C++ 0 02.12.2015 13:27
Вращение камеры вокруг своей оси [OpenGL] russian-stalker Gamedev - cоздание игр: Unity, OpenGL, DirectX 4 14.04.2011 21:03
вращение отрезка в дельфи diliana Помощь студентам 2 13.03.2010 18:34