нарисовать атом водорода в Паскале

[type_Oleg]

Можно сделать в движении. Но это не консольный Pascal
В Delphi, с помощью Timer, Image, Image1.Picture.SaveToFile(.. и т.д. сделал когда-то кучку *.bmp, а из них в VirtualDub - гифку.

[mishammm]

да спасибо, как раз таки посмотрел такую формулу. мне так в паскаль и писать ?? sqr(x-x0)+sqr(y-yo) ??

[mishammm]

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

Можно сделать в движении. Но это не консольный Pascal
В Delphi, с помощью Timer, Image, Image1.Picture.SaveToFile(.. и т.д. сделал когда-то кучку *.bmp, а из них в VirtualDub - гифку.

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

[BDA]

mishammm, Вы хотите получить универсальный код или нарисовать и забыть? Если второе, то саму формулу писать не нужно. Просто на бумажке решите, где нарисуете орбиту (по каким координатам и с каким радиусом). Затем выберите одну из координат,например, х и подставьте в формулу окружности. Подставьте известные величины и выразите у. Это и будет центр малой окружности - электрона.

[Arigato]

(x0, y0) - центр системы, r1 - радиус внутренней окружности, r2, r3 - радиусы кольца, r4 - радиус электрона.
Рисуем окружности: (x0, y0, r3), (x0, y0, r2), (x0, y0, r1)
r := r2+(r3-r2)/2 - расстояние от (x0, y0) до (x1, y1) - центра электрона
x1 := x0 + r*cos(a);
y1 := y0 + r*sin(a);
a - это угол в радианах, на который отклоняется электрон.
Рисуем электрон (x1, y1, r4)

[type_Oleg]

Ужас, до чего дошел антинародный режим !
Учеников (или студентов) не учат, как решать уравнения типа (x-x0)^2+(y-y0)^2=R^2 , а уже заставляют писать в Pascal.

Тогда может быть легче координаты определить из параметрических уравнений:
X = X0+R*cos(угол)
Y = Y0+R*sin(угол)
Угол менять в цикле. Так можно
- нарисовать траекторию электрона (задав R - радиус орбиты)
- нарисовать ядро (протон) (задав R - радиус ядра)
- нарисовать сам электрон. В качестве X0, Y0 - какая-то точка траектории, в качестве R - радиус электрона.

Что еще? Писать за вас

begin
 x:=R*Cos(ug);

?

[mishammm]

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

Ужас, до чего дошел антинародный режим !
Учеников (или студентов) не учат, как решать уравнения типа (x-x0)^2+(y-y0)^2=R^2 , а уже заставляют писать в Pascal.

всё на этом спасибо. да увы у нас ничего не обьясняют

[Arigato]

Вот в Делфи:

[DSBM]

Если тебе статический рисунок надо, то на:

{Made by SiD}
program DSBM;
uses crt, graph;
var a, b:integer;
begin
a:=0;
b:=0;
initgraph(a, b, '');
setcolor(7);
circle(100, 100, 99);
circle(100, 100, 95);
setfillstyle(1,7);
floodfill(100,4, 7);
setcolor(1);
circle(150, 16, 10);
setfillstyle(1,1);
floodfill(151,16, 1);
setcolor(4);
circle(100, 100, 20);
setfillstyle(1,4);
floodfill(100,100, 4);
readkey;
end.

[mishammm]

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

Если тебе статический рисунок надо, то на:

{Made by SiD}
program DSBM;
uses crt, graph;
var a, b:integer;
begin
a:=0;
b:=0;
initgraph(a, b, '');
setcolor(7);
circle(100, 100, 99);
circle(100, 100, 95);
setfillstyle(1,7);
floodfill(100,4, 7);
setcolor(1);
circle(150, 16, 10);
setfillstyle(1,1);
floodfill(151,16, 1);
setcolor(4);
circle(100, 100, 20);
setfillstyle(1,4);
floodfill(100,100, 4);
readkey;
end.

спасибо дружище