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

Графика (нужно переделать с Pascal на С++) - C++

Восстановить пароль Регистрация
 
aidyn
Сообщений: n/a
01.06.2013, 08:26     Графика (нужно переделать с Pascal на С++) #1
Изобразить равнобедренный треугольник, вращающийся вокруг своей высоты, расположенной параллельно вертикальной оси экрана

Код
uses graph,crt;
var x,y,h,d:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2+75;
d:=50;
h:=150;
repeat
while (d>1)and not keypressed do
 begin
  setcolor(12);
  line(x-d,y,x+d,y);
  line(x-d,y,x,y-h);
  line(x,y-h,x+d,y);
  delay(100);
  setcolor(0);
  line(x-d,y,x+d,y);
  line(x-d,y,x,y-h);
  line(x,y-h,x+d,y);
  d:=d-2;
 end;
while (d<50)and not keypressed do
 begin
  setcolor(12);
  line(x-d,y,x+d,y);
  line(x-d,y,x,y-h);
  line(x,y-h,x+d,y);
  delay(100);
  setcolor(0);
  line(x-d,y,x+d,y);
  line(x-d,y,x,y-h);
  line(x,y-h,x+d,y);
  d:=d+2;
 end;
until keypressed;
end.
Графику на С++ не изучал
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2013, 08:26     Графика (нужно переделать с Pascal на С++)
Посмотрите здесь:

Переделать с Pascal на C. C++
C++ Нужно переделать
C++ переделать программу из Pascal в язык С
переделать программу из pascal в C++ C++
переделать программу Pascal -> C++ (Восстановить исходную матрицу и напечатать ее по строкам) C++
C++ Найти максимальную цифру в тексте строки (Переделать с Pascal на С++)
C++ нужно переделать в с++
Переделать программу написанную на Pascal в С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 01:04. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru