Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
bika
0 / 0 / 0
Регистрация: 02.05.2012
Сообщений: 4
#1

Курсовая работа по графики Спутник земли - C++

02.05.2012, 14:36. Просмотров 488. Ответов 4
Метки нет (Все метки)

Курсовая работа на паскале "Спутник земли "
Люди помогите ,пожалуйста, перевести эту программу с Pascal на с++

буду очень благодарна


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
program meny;
uses crt, graph, dos;
       
var 
 r1:longint;{radius v kvadrat budem vozvodit}
  d,n,i1,xc,yc,x,y,r:integer;
  h,b,h1:real;
  a1:array[1..21] of real;{massiv diametrov parallelei} {konec}
  gd, gm, i: integer;
procedure spu (a:integer); {procedura risovaniya sputnika}
const GRAD = 0.0174532; {constanta perescheta ugla: radian-gradus}
var zx, zy: integer;
begin
     zx:=Round(320+r*sin(a*GRAD)); {schitaem koordinatu X}
     zy:=Round(240-r*cos(a*GRAD)); {schitaem koordinatu Y}
     delay(5000); {zhdem}
     setfillstyle(1,14);
     fillellipse(zx, zy, 10,10);     {zakrashivaem staruyu prorisovku}
     delay(5000); {zhdem}
     setcolor(0);
     setfillstyle(0,0);
     fillellipse(zx, zy, 10,10);     {zakrashivaem staruyu prorisovku}
end;
begin 
      writeln ( '     ',  '   vvedite radius zemli ot 90-160');
            readln (r1);
            writeln ('       vvedite radius sputnika  ot 160-210 ' );
            readln(r) ;
            gd:=DETECT;
            i:=1;
            initgraph(gd, gm, ''); {initsializiruem grafiku
            {nachalo}
            d:=2*r1;{diametr}
            n:=15;{kolichestvo parallelei}
            h:=d/(n+2);{rasstoyanie mezhdu parallelami}
            a1[n div 2+1]:=d;{ekvator}
            for i1:=n div 2 downto 1 do {po ubivaniyu k polusam}
            begin a1[i1]:=2*sqrt(r1*r1-sqr((n div 2-i1+1)*h));{diametri parallelei}
                  a1[n-i1+1]:=2*sqrt(r1*r1-sqr((n div 2-i1+1)*h));
            end; xc:=getmaxX div 2;{centr}
                 yc:=(getmaxY-d) div 2;
                 setfillstyle(1,1);
                 fillellipse (xc,yc+round((n div 2+1)*h+h/2),r1,r1);
                 setcolor(0);
                 for i1:=1 to n do {risuem paralleli}
                 ellipse(xc,yc+round((2*i1-1)*(h/2)+h),0,360,round(a1[i1]/2),round(h));
                 h1:=r1/(n-1);{polovina rasstoyaniy mezhdu meredianami}
                 for i1:=1 to n div 2 do{v 2 raza menshe,poskolku i sprava i sleva ot seredini}
            begin b:=2*i1*h1;{malaya os ellipsa}
                  SETCOLOR(0);
                  ellipse(xc,yc+round((n div 2+1)*h+h/2),0,360,round(b),r1); {risuem}
            end;
                  line(xc,yc,xc,yc+d);{sredniimeridian}
                  readln;
                  {konec}
                  setfillstyle(1,7);   { nebo nachalo}
                  fillellipse(500,50,15,13);
                  for i:=1 to 600 do
                  begin x:= random(640);
                        y:=random(480);
                        putpixel(x,y,7);
                  end;       { nebo konec}
                            while not keypressed do
                  begin {cikl poka ne nazhata klavisha}
                        if i=360 then i:=1; {esli ugol 360 gradusov, to snova 1 gradus}
                        spu(i); {risuem sputnik po uhlu i}
                        i:=i+1; {plusuem ugol}
               
                      
            end;
                      closegraph; {zakryvaem grafiku}
                     end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2012, 14:36     Курсовая работа по графики Спутник земли
Посмотрите здесь:

C++ Курсовая работа
C++ курсовая работа
С++ курсовая работа C++
C++ Подключение и работа в Glut или другие способы простенькой графики
C++ Курсовая работа(на С).
курсовая работа по информатике C++
C++ Курсовая работа
Курсовая работа C++
Курсовая работа ООП C++
Курсовая работа C++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
panicwassano
591 / 559 / 20
Регистрация: 07.11.2010
Сообщений: 2,004
02.05.2012, 15:39     Курсовая работа по графики Спутник земли #2
в с++ по умолчанию нету средств для работы с графикой, воспользуйтесь winapi
bika
0 / 0 / 0
Регистрация: 02.05.2012
Сообщений: 4
02.05.2012, 15:52  [ТС]     Курсовая работа по графики Спутник земли #3
а что такое winapi ?
panicwassano
591 / 559 / 20
Регистрация: 07.11.2010
Сообщений: 2,004
02.05.2012, 16:00     Курсовая работа по графики Спутник земли #4
Цитата Сообщение от bika Посмотреть сообщение
а что такое winapi ?
http://ru.wikipedia.org/wiki/Windows_API
bika
0 / 0 / 0
Регистрация: 02.05.2012
Сообщений: 4
02.05.2012, 16:28  [ТС]     Курсовая работа по графики Спутник земли #5
спасибо , значит теперь мне надо просить переделать мою курсовую на winapi
Yandex
Объявления
02.05.2012, 16:28     Курсовая работа по графики Спутник земли
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru