[Lisa01]

Помогите, пожалуйста, написать програмку - создание простой модели атома в Delphi. Очень-очень нужно Спасибо

[Interface]

Что значит

создание простой модели атома

Это текстовая модель? 3д модель; 2д модель???

[Lisa01]

Модель атома Резерфорда - 2d, электроны должны двигаться вокруг ядра

[zerg]

Данных недостаточно. Нужно просто нарисовать? Или чтобы двигалось?
Уравнение движения по кругу: Х^2+Y^2=R^2 Только к Х и У нужно добавить смещение (так как если Вы будете это где-нибудь рисовать, то там скорее всего система отсчета привязана к верхнему левому углу)
Рисовать можно на самой форме, есть такая вещь как канва (TCanvas).
Для рисования можно поместить таймер, время срабатывания подбирается опытным путем (зависит, например, от мощности вашего компьютера). В его обработчике написать подпрограмму которая бы обновляла на форме движение вашего электрона вокруг вашего ядра. Чтобы не висло можно там же добавить Application.ProccessMessages;

[Lisa01]

Большое спасибо. А как написать подпрограмму для таймера?

[KOOL]

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

Уравнение движения по кругу: Х^2+Y^2=R^2

Это уравнение не движения по кругу, а окружности. И в данном случае оно не поможет. Здесь нужно параметрическое уравнение x=r*cos(t); y=r*sin(t). Вот пример, думаю пригодится.

Код:

const centerx=200;  //координаты центра
      centery=200;

var   rad, angle:real; //радиус полета "электрона" и угол
      rE, rC:integer;  //радиусы "электрона" и "ядра"

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Self.Refresh;
  Canvas.Brush.Color:=$ff0000;
  Canvas.Ellipse(centerx-rC, centery-rC, centerx+rC, centery+rC);
  Canvas.FloodFill(centerx, centery, $ff00000, fsBorder);
  Canvas.Brush.Color:=$000000;
  Canvas.Ellipse(centerx+Round(rad*cos(angle))-rE, centery-Round(rad*sin(angle))-rE, centerx+Round(rad*cos(angle))+rE, centery-Round(rad*sin(angle))+rE);
  Canvas.FloodFill(centerx+Round(rad*cos(angle)), centery-Round(rad*sin(angle)), $000000, fsBorder);
  angle:=angle+pi/18;  //+10 градусов
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  angle:=0;  //исходные значения
  rad:=80;
  rE:=3;
  rC:=30;
end;

К сожалению, неизбежно мерцание. Интервал таймера-10

[Interface]

К сожалению, неизбежно мерцание

- конечно тут можно использовать DirectX и OpenGL. Но думаю тут это не к чему...

[Lisa01]

СПАСИБО!!!!!!!!!

[slipknot]

приветствую всех) плиз помогите кому не сложно за ранее очень благодарен!!!!!=)
вот задание(на мой взгляд адское)(((:
Написать функцию, которая определяет номера столбцов и строк матрицы X(M,N,O), в которых есть элементы, равные заданному числу.

[lmikle]

Не понял, 3х мерная матрица что-ли?

[alex-k2]

Народ, срочно нужна помощь! Кто разбирается в созданий Баз Данных на Delphi 7. Надо создать простенькую таблицу. Вознограждение гарантирую!

[lmikle]

Сообщение от alex-k2

Народ, срочно нужна помощь! Кто разбирается в созданий Баз Данных на Delphi 7. Надо создать простенькую таблицу. Вознограждение гарантирую!

Какая БД? Какой провайдер? Что конкретно делать?

[alex-k2]

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

Какая БД? Какой провайдер? Что конкретно делать?

Создать базу данных Чемпионата России по футболу. Это задание, а сделать ее надо на Delphi 7. Я все книжки прочитал, там одно Субд и непонятно ничего((.

[lmikle]

СУБД это и есть база даных + система управления ею
Задание подробнее. Что там в этой таблице должно быть.

[alex-k2]

Так как мы ток начали, там сама таблица (место, клуб, Город, очки) , и кнопки , ну там например вывести все команды из Москвы.