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

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.