Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
sRnNikita
1 / 1 / 0
Регистрация: 23.05.2009
Сообщений: 17
04.12.2009, 19:14 0

Графика в Турбо Паскаль

04.12.2009, 19:14. Просмотров 210138. Ответов 157
Метки (Все метки)

Ответ

Вращение равносторонних многоугольников по своей оси.

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
uses graph, crt;
const n=8;{изменяя "n" вы получите любой другой многоугольник}
var poly:array[1..n+1] of pointtype;
 r,x,y,i,driver,mode:integer;
 alpha:real;
 s:string;
begin
 write('radius: ');
 readln(r);
 alpha:=0;
 driver:=detect;
 InitGraph (driver,mode, 'd:\bp\bgi');
 if GraphResult<>GroK then halt(1);
 clearviewPort;
 repeat
 x:=GetMaxX shr 1;
 y:=GetMaxY shr 1;
 for i:=1 to n +1 do begin
 poly[i].X:=x+round(R*Cos(alpha+(i-1)*2*pi/n));
 poly[i].Y:=y+Round(R*sin(alpha+(i-1)*2*pi/n));
 end;
 SetColor(10);
 DrawPoly(n+1,poly);
alpha:= alpha+pi/180;
 delay(1000);
 setcolor(0);
 DrawPoly(n+1,poly);
 until KeyPressed;
 closeGraph;
 end.


Вернуться к обсуждению:
Графика в Турбо Паскаль
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2009, 19:14
Готовые ответы и решения:

Графика в Турбо Паскаль
(b+\sqrt{b-4ac}/2a)-a*a*a*c - помогите как это записать в турбо паскале...

Графика в Турбо Паскаль
ситуация следующая. написала програму в которой задаешь координаты точки и в...

Графика в Турбо Паскаль
Не могли бы вы посоветовать книгу или дать ссылку на форуме где подробно...

Графика в Турбо Паскаль не работает
Люди помогите плиз. У меня windows 7 когда я пытаюсь запустить программу с...

построение графика на Турбо Паскаль
Помогите пожалуйста Y=(x*(3-x))/(1-x)*sqr(1-x)

157
Другие темы раздела
Turbo Pascal Массив: элементы, следующие за максимумом, заменить на минимум http://www.cyberforum.ru/turbo-pascal/thread56257.html
В массиве из 10 элементов, элементы следующие за максимомум заменить на минемум.
Turbo Pascal Найти максимум среди нечетных отрицательных элементов каждого столбца матрицы У кого есть время, решите пожал. задачу!!! Заранее спасибо!!!))) Дана матрица 4Х5. Найти max среди нечетных отрицательных элементов каждого столбца. http://www.cyberforum.ru/turbo-pascal/thread56253.html
Turbo Pascal найти
if s='001' then write ('1'); В S выводится число вещественное. как то нужно сделать если встретили 001 то заменяем его на 1 . и так во всей строке..
Числа Turbo Pascal
if (s4=1) then insert('00',s,s1); нужно переписать чтоб вместо 1 были все нечетные числа .. if (s4=2) then insert('00',s,s1); нужно переписать чтоб вместо 2 были все четные числа ..
Turbo Pascal Перевод из двоичной системы в десятеричную. http://www.cyberforum.ru/turbo-pascal/thread56144.html
дано число в двоичной системе проверить правильность ввода этого числа(в его записи должны быть 0 и 1).если число введено неверно повторить ввод.при правильном вводе перевести число в десятичную...
Turbo Pascal Строки и телефонные номера. Задачка на строки и дин.массивы Номера мобильных телефонов могут выглядеть по-разному: 8-111-1111111 +7 111 1111111 +71111111111 8(111)111-1111 и т д Написать программу, приводящую... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru