помогите написать программу на Паскале "Планеты солнечной системы"

Question

Атрибуты: 
1.Название планеты 
2.Масса 
3.Диаметр 
4.Удаленность от Земли 
5.Наличие спутников 
Основные функции: 
•Удалить все записи по данной массе 
•Подсчитать количество планет по наличию спутников 
•Отсортировать и вывести все сведения по названию планеты. 
Дополнительные функции: 
• Добавлять записи. 
• Выводить на экран все записи в виде таблицы. 
• Удалять запись по заданному атрибуту. 
•Осуществлять поиск в соответствии с запросами указанными в пункте «основные функции» . Результаты поиска выводить на экран в виде таблицы. 
Диалог с пользователем организовать в виде меню. 
• Осуществлять сортировку методом «пузырька» по любому из выбранных атрибутов.

вот данные о планетах: 
Меркурий - масса (3,33022·1023 кг) 
 диаметр ( 4870 км) 
 удаленность от солнца (45,9 млн км) 
 количество спутников (0) 
 
Венера - масса (4,87*1024кг) 
 диаметр (12100 км) 
 удаленность от солнца (108 млн. км) 
 количество спутников (0) 
 
Земля - масса (5,9723·1024 кг) 
 Диаметр (12756,274 км) 
 удаленность от солнца (149,6 млн. км) 
 наличие спутников (1) 
 
Марс - масса (6,4*1023кг) 
 диаметр (6670 км) 
 удаленность от солнца (228 млн. км. ) 
 количество спутников (2) 
 
Юпитер - масса (1,9*1027кг. ) 
 диаметр (143760 км. ) 
 удаленность от солнца ( 778 млн. км. ) 
 количество спутников (67) 
 
Сатурн - масса (5,68*1026кг. ) 
 диаметр (120420 км. ) 
 удаленность от солнца (1427 млн. км. ) 
 количество спутников (62) 
 
Уран - масса (8,7*1025кг. ) 
 диаметр (51300 км. ) 
 удаленность от солнца ( 2,86 млрд. км. ) 
 количество спутников (27) 
 
Нептун - масса (1*1026кг. ) 
 диаметр (49500 км. ) 
 удаленность от солнца (4,5 млрд. км. ) 
 количество спутников (13) 
 
Плутон - масса (1,3*1022кг. ) 
 диаметр (2324 км. ) 
 удаленность от солнца ((39,4 а. е.) а. е., на сильно вытянутой элептической орбите. ) 
 количество спутников (5)

Анна Туралина · Accepted Answer

эта задача = курсовой по курсу Основы программированию, не сможешь сам, пиши в адрес

Даша Елманова · Answer

uses graphabc;
var x, y, x1, y1:integer; alfa, alfa1, alfa2, alfa3, alfa4,alfa5,alfa6,alfa7,alfa8,alfa9:real;
const mx=screenwidth div 2; my=screenheight div 2;

procedure quyosh;
var a:real; i,j,r:integer;
begin a:=0; setpenwidth(3);
setpencolor(rgb(255,217,0));
setbrushcolor(rgb(255,217,0));
circle(mx,my,50); r:=85;
while a<=2*pi do begin
i:=mx+trunc(abs(r)*cos(a));
j:=my+trunc(abs(r)*sin(a)); r:=-r+15;
line(mx,my,i,j); a:=a+0.09;
end; end;

procedure tozalash;
begin
setbrushcolor(clblack); Rectangle(-5,-5,screenwidth+5,screenheight+5);textout(10,10,'Adilov Anvarjon 21-3-2011'); end;
begin maximizewindow; tozalash;quyosh;
alfa:=random*3; alfa1:=random*5;alfa2:=random*8; alfa3:=random*10; alfa4:=random*5;
alfa5:=random*3; alfa6:=random*5;alfa7:=random*8; alfa8:=random*10; alfa9:=random*5;
setwindowcaption('Sayyoralar olami'); setfontcolor(clwhite);
setfontsize(15);
while 1>0 do begin
tozalash; setpencolor(clgreen); setpenwidth(0);
setpencolor(clwhite);
ellipse(mx-950,my-400,mx+950,my+400); ellipse(mx-850,my-340,mx+850,my+340);
ellipse(mx-750,my-280,mx+750,my+280); ellipse(mx-650,my-230,mx+650,my+230);
ellipse(mx-550,my-180,mx+550,my+180); ellipse(mx-450,my-130,mx+450,my+130);
ellipse(mx-350,my-80,mx+350,my+80);ellipse(mx-250,my-40,mx+250,my+40);
if (alfa>=0)and(alfa<=pi) then quyosh;
//merkuriy
setpencolor(clbrown);setbrushcolor(clbrown);
x:=mx+trunc(250*cos(alfa));
y:=my+trunc(40*sin(alfa));
circle(x,y,10);alfa:=alfa+0.07;
//venera
setpencolor(rgb(179,78,233));setbrushcolor(rgb(179,78,233));
x:=mx+trunc(350*cos(alfa1));
y:=my+trunc(80*sin(alfa1));
circle(x,y,15);alfa1:=alfa1+0.05;
//yer
setpencolor(rgb(13,255,0));setbrushcolor(rgb(13,255,0));
x:=mx+trunc(450*cos(alfa2));
y:=my+trunc(130*sin(alfa2));
circle(x,y,20);alfa2:=alfa2+0.03;
//oy
setpencolor(claqua);setbrushcolor(claqua);
x1:=x+trunc(40*cos(alfa3));
y1:=y+trunc(20*sin(alfa3));
circle(x1,y1,5);alfa3:=alfa3+0.3;
//mars
setpencolor(rgb(218,165,32));setbrushcolor(rgb(218,165,32));
x:=mx+trunc(550*cos(alfa4));
y:=my+trunc(180*sin(alfa4));
circle(x,y,18);alfa4:=alfa4+0.03;
//yupiter
setpencolor(rgb(255,215,0));setbrushcolor(rgb(255,215,0));
x:=mx+trunc(650*cos(alfa5));
y:=my+trunc(230*sin(alfa5));
circle(x,y,30);alfa5:=alfa5+0.02;
//saturn
setpencolor(rgb(240,230,175));setbrushcolor(rgb(240,230,175));
x:=mx+trunc(750*cos(alfa6));
y:=my+trunc(280*sin(alfa6));
ellipse(x-45,y-15,x+45,y+15);setbrushcolor(clblack);ellipse(x-35,y-5,x+35,y+5);
setpencolor(rgb(240,230,140));setbrushcolor(rgb(240,230,140));
circle(x,y,25);alfa6:=alfa6+0.02;
//uran
setpencolor(rgb(2,205,201));setbrushcolor(rgb(2,205,201));
x:=mx+trunc(850*cos(alfa7));
y:=my+trunc(340*sin(alfa7));
circle(x,y,20);alfa7:=alfa7+0.01;
//neptun
setpencolor(rgb(130,205,201));setbrushcolor(rgb(130,205,201));
x:=mx+trunc(950*cos(alfa8));
y:=my+trunc(400*sin(alfa8));
circle(x,y,15);alfa8:=alfa8+0.005;
if (alfa>=pi)and(alfa<=2*pi) then quyosh;
if alfa>=2*pi-0.08 then alfa:=0;sleep(100);
end;
end.