С Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы

Написать программу, которая вычерчивает на экране ракету - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Написать функцию типа Beaty(int iA, int iB, int *pc) http://www.cyberforum.ru/cpp-beginners/thread272734.html
Задание: Написать функцию типа Beaty(int iA, int iB, int *pc); для выражения (iA+iB)/(iA*iB). Помогите решить!
C++ Как работает typeid( ).name() в minigw? Почему typeid( ).name() в minigw возвращает не просто тип аргумента, а ещё и две цифры перед ним? Кусок кода: for ( size_t j = 0; j < employees.size(); j++ ) { // output class name ... http://www.cyberforum.ru/cpp-beginners/thread272729.html
Запихнуть graphic.h в компилятор minigw C++
Как-то можно выковырять graphic.h из борланда в minigw, не люблю борланд просто, сам пока пытался выковыривать там всё время подхватывались и подхватывались чисто борландовские .h и cpp файли и в...
C++ Вложенные классы!!
НЕ могу разобраться ка это работает!!! приведите пожалуйста простой пример как это работает с реализацией класса
C++ biginteger http://www.cyberforum.ru/cpp-beginners/thread272687.html
реализовать некоторые функции класса BigInteger, Используя перегрузку операторов. сдвиги длинного числа влево и вправо на заданное количество цифр.
C++ Класс и чтение из файла У моего задания номер 5. (оно связано с заданием 4) 4. Реализуйте класс, для которого оператор перегружен, чтобы выполнять чтение символов из указанной позиции файла. 5. Реализуйте ... подробнее

Показать сообщение отдельно
efe
7 / 6 / 1
Регистрация: 25.10.2010
Сообщений: 218

Написать программу, которая вычерчивает на экране ракету - C++

08.04.2011, 22:15. Просмотров 1945. Ответов 8
Метки (Все метки)

Написать программу, которая вычерчивает на экране ракету. Раскрасьте по своему усмотрению.
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
program p_2;
uses Graph, Crt;
const
  {шаг сетки}
  dx = 10;
  dy = 10;
var
  grDriver:integer;
  grMode:integer;
  ErrCode:integer;
   begin
  grDriver := detect; {автоматическое задание графического режима}
  InitGraph(grDriver, grMode,'C:\BP\bgi');  {перевод экрана в графический режим}
  ErrCode := GraphResult;
  if ErrCode = grOk then  {проверка успешности установки графического режима}
  begin
    {корпус }
    MoveTo(200,200);
    LineTo(200+3*dx,200-5*dy);
    LineTo(200+6*dx,200+0*dy);
    LineTo(200+6*dx,200+18*dy);
    LineTo(200+0*dx,200+18*dy); {низ}
    LineTo(200,200);  {лев вертик корпуса}
    setfillstyle(solidfill,1);
    floodfill(200+4*dx,200+15*dy,15);
    {левое нижнее крыло}
    LineTo(200+0*dx,200+6*dy);
    LineTo(200-5*dx,200+10*dy);
    LineTo(200-5*dx,200+20*dy);
    LineTo(200-2*dx,200+20*dy);
    LineTo(200+0*dx, 200+18*dy);
    setfillstyle(solidfill,9);
    floodfill(200-3*dx,200+15*dy,15);
    {правое нижнее крыло}
    MoveTo(200+6*dx,200+0*dy);
    LineTo(200+6*dx,200+6*dy);
    LineTo(200+11*dx,200+10*dy);
    LineTo(200+11*dx,200+20*dy);
    LineTo(200+8*dx,200+20*dy);
    LineTo(200+6*dx,200+18*dy);
    setfillstyle(solidfill,9);
    floodfill(200+7*dx,200+15*dy,15);
 Circle(200+3*dx,200+1*dy,Trunc(dx));
 Circle(200+3*dx,200+5*dy,Trunc(dx));
  setfillstyle(solidfill,11);
    floodfill(200+3*dx,200+1*dy,15);
    floodfill(200+3*dx,200+5*dy,15);
end;  readln;
  CloseGraph;
end.
Пожалуйста мне этот пример на язык Си переведите у меня что то не получается ...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.