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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Нахождения минимального числа из двух введённых чисел http://www.cyberforum.ru/cpp-beginners/thread563532.html
Создать программу для нахождения минимального числа из двух введённых.Программа должна вычислять сумма 3 минимальных чисел. Из этого примера что ниже нужно сделать: #include <stdio.h> int x,y,n,m; void fn (int a,int b) { if (a>b) y=y+a; else y=y+b; }
C++ ФУНКЦИИ/Используя перегрузку функций, написать #include "stdafx.h" #include "stdio.h" #include "conio.h" #define n 5 int func1(int a, int i) { return(a); } http://www.cyberforum.ru/cpp-beginners/thread563529.html
Создать программу выполняющую умножение четырёх чисел если они больше числа 6 C++
Создать программу выполняющую умножение четырёх чисел если они больше числа 6. Использовать функцию с параметром. Из этого примера нужно сделать что ниже #include <stdio.h> int a,b,c,y; void fn (int x) { if (x>0) y=y+x; }
C++ Сделать цикл в методе минимальных невязок
добрый день, помогите с программой. Это метод минимальных невязок.но он выполняется когда начальное решение Х0 и конечное Хк+1.а мне надо чтоб выполнялось когда начальное решение Хк+1 и конечное Хк+2 и т.д.Надо вставить цикл наверное#include<iostream.h> #include<stdio.h> #include<math.h> #define n 3 void main() { float a,f,x0,x,e=0.001,r,tau,max,s,s1,xnew,t; int i,j,k=0; for(i=0;i<n;i++)...
C++ Ошибка в програме Крестики-нолики http://www.cyberforum.ru/cpp-beginners/thread563493.html
main.cpp #include "KR.h" using namespace std; int main() { RandomPlayer *r = new RandomPlayer('o'); HumanPlayer *h = new HumanPlayer('o'); SmartPlayer *s = new SmartPlayer('x');
C++ Напишите комментарии к программе здесь программа считает кол-во одинаковых цифр и их значение, мне нужно подробное описание шагов. #include "stdafx.h" #include <iostream> #include<stdio.h> using namespace std; void main() { setlocale(LC_CTYPE,"rus"); int x = {0},i; unsigned y; cout«"введите х:"; подробнее

Показать сообщение отдельно
bika
0 / 0 / 0
Регистрация: 02.05.2012
Сообщений: 4
02.05.2012, 14:36     Курсовая работа по графики Спутник земли
Курсовая работа на паскале "Спутник земли "
Люди помогите ,пожалуйста, перевести эту программу с 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 19:02. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru