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

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

Войти
Регистрация
Восстановить пароль
 
aidyn
Сообщений: n/a
#1

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

01.06.2013, 08:26. Просмотров 207. Ответов 0
Метки нет (Все метки)

Изобразить равнобедренный треугольник, вращающийся вокруг своей высоты, расположенной параллельно вертикальной оси экрана

Код
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 на С++) (C++):

Переделать код с Pascal на С++ - C++
Имеется данный код: uses crt; var f,h,g:text; s:arrayof string; n,i:integer; begin clrscr; assign(f,'file_ob.txt'); ...

Переделать код с Pascal на С++ - C++
uses crt; const n1='Name1.txt'; n2='Name2.txt'; n3='Name3.txt'; var f1,f2,f3:text; s1,s2:string; begin clrscr; ...

переделать программу из pascal в C++ - C++
Ребят помогите пожалуйста переделать программу в с++ вот ссылка на прогрумму тут просто не все формулы открывает ...

Переделать программу написанную на Pascal в С++ - C++
Задание Вариант 1 Вычислить определенный интеграл от функции f(x) на промежутке методом прямоугольников. f(x) = 2sin x cos x + sin...

переделать программу из Pascal в язык С - C++
Дано натуральное число n, равное выраженной в копейках цене некоторого товара, например, 317, 5005, 100 и т. д. Выразить цену в рублях и...

Переделать из Pascal в C++. Сумма ряда - C++
Program besconecs; uses crt; var n,k:integer; S,elem,e:real; begin clrscr; e:=0.0001; S:=0; n:=0; elem:=1;

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2013, 08:26
Привет! Вот еще темы с ответами:

Найти максимальную цифру в тексте строки (Переделать с Pascal на С++) - C++
Всем привет. Вот необходимо переписать этот код на С++ помогите плз: Задание 1. Найти максимальную цифру в тексте строки. uses...

переделать программу Pascal -> C++ (Восстановить исходную матрицу и напечатать ее по строкам) - C++
с паскаля на с++...буду очень признателен. вот текст задачи. Квадратная матрица, симметричная относительно главной диагонали, задана своим...

нужно переделать в с++ - C++
uses crt; var ch1,ch2:char; i,k: integer; const glasnye=; begin writeln('vvedite slova'); ch1:=readkey; write(ch1); if...

Нужно переделать - C++
Дано натуральное число .Установить, является ли последовательность его цифр при просмотре их слева направо упорядоченной по возрастанию.У...


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

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

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