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

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

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

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

02.05.2012, 14:36. Просмотров 517. Ответов 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++
мне необходимо написать курсовую работу на тему "визуализация алгоритма А* с помощью openGL" Программу написал, но никак не могу понять,...

Курсовая работа - C++
Здраствуйте все! Очень прошу помочь. Дело вот в чем, нужно написать курсовую работу(решить 40 задач). Решил 22,но сроки поджимают,а ведь...

Курсовая работа - 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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2012, 16:28     Курсовая работа по графики Спутник земли
Еще ссылки по теме:

С++ курсовая работа - C++
заданное целое число от 1 до 1999 напечатать римскими цифрами. Программа должна выводить последовательность на экран и в файл "output.txt" ...

Курсовая работа ООП - C++
Всем привет! Пожалуйста,кто-нибудь,помогите с курсовой работой. Игра крестики-нолики (поле 10х10, X/O в ряд от 3 до 5) Все...

курсовая работа по информатике - C++
Помогите кто чем сможет)))

Курсовая работа!прошу ответить вас) - C++
вобщем вот я взяла курсовую работу по теме "Система тестирования" это по дисциплине "Высокоуровневые методы информатики и...

Расчетная контрольная работа (мини курсовая) - C++
Мне нужно написать расчетную контрольную работу по программированию (мини курсовая). Я обыскал весь интернет и ничего не нашел, ни теории...

Подключение и работа в Glut или другие способы простенькой графики - C++
Не могу никак использовать glut и откомпилить найденный в интернете код #include <D:\cpp\GL\glut.h> void Reshape(int width, int...


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

Или воспользуйтесь поиском по форуму:
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