Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
АлександрВенуко
1

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

26.05.2011, 17:24. Показов 2508. Ответов 2
Метки нет (Все метки)

Помогите написать программу

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2011, 17:24
Ответы с готовыми решениями:

Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг своего центра
Помогите плиз, срочно нужно сделать задачку.:) Изобразить на экране прямоугольник, вращающийся в...

Получить на экране разносторонний треугольник, вращающийся вокруг своего центра тяжести
Получить на экране разносторонний треугольник, вращающийся вокруг своего центра тяжести

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

Изобразить на экране отрезок, вращающийся в плоскости экрана вокруг своего конца
Всем буду презнателен за помощь! Нужно 1) Построить семейство кривых y = f(x) для ...

2
pixilated
03.06.2011, 01:53 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
Uses
    CRT,Graph;
 
Var
    w,fi:real;
    a,x0,y0,r2,x1,y1,x2,y2,x3,y3:integer;
 
Procedure GRINIT;
Var
    Driver:Integer;
    Mode:Integer;
    Error:Integer;
Begin
    Driver:=Detect;
    InitGraph(Driver,Mode,'d:\');
    Error:=GraphResult;
    if Error<>grOk then
    begin
        writeln('Oshibka graphiki: ',GraphErrorMsg(Error));
        writeln('Programa ostanovlena');
        readln;
        Exit;
    end
End;
 
Begin
    write('Vvedite skorost: ');
    Readln(w);
    write('Vvedite storonu: ');
    Readln(a);
    r2:=round(a/sqrt(3));
    x0:=300;
    y0:=200;
    fi:=0;
    GRINIT;
    repeat
        if fi=2*pi then fi:=0;
        x1:=x0+round(r2*cos(w*fi));
        y1:=y0+round(r2*sin(w*fi));
        x2:=x0+round(r2*cos(w*fi+2*pi/3));
        y2:=y0+round(r2*sin(w*fi+2*pi/3));
        x3:=x0+round(r2*cos(w*fi+4*pi/3));
        y3:=y0+round(r2*sin(w*fi+4*pi/3));
        SetColor(white);
        moveto(x1,y1);
        lineto(x2,y2);
        lineto(x3,y3);
        lineto(x1,y1);
        fi:=fi+0.0001;
        SetColor(black);
        moveto(x1,y1);
        lineto(x2,y2);
        lineto(x3,y3);
        lineto(x1,y1);
    Until keypressed;
    Closegraph;
End.
Модератор
63861 / 47352 / 32648
Регистрация: 18.05.2008
Сообщений: 114,860
03.06.2011, 12:45 3
Немного поправить нужно, сделать задержку перед стиранием.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
SetColor(white);
 moveto(x1,y1);
 lineto(x2,y2);
 lineto(x3,y3);
 lineto(x1,y1);
 delay(10);//вот здесь
 SetColor(black);
 moveto(x1,y1);
 lineto(x2,y2);
 lineto(x3,y3);
 lineto(x1,y1);
 fi:=fi+0.001;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2011, 12:45

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вывести на экран монитора правильный треугольник белого (White) цвета таким образом, чтобы он плавно вращался вокруг своего центра по часовой стрелк
Вывести на экран монитора правильный треугольник белого (White) цвета таким образом, чтобы он...

Блок схема (прямоугольник вращающийся вокруг своего центра)
Помогите нарисовать алгоритм uses Graph,Crt; type TPoints=array of integer; const nSteps=32;...

Построить треугольник, вращающийся вокруг центра тяжести
Доброго времени суток. Задание такое - Юзер вводит координаты вершин треугольника и видит свой...

Графика в Турбо Паскаль. Разносторонний треугольник, вращающийся вокруг центра тяжести
Изобразить на экране разносторонний треугольник, вращающийся вокруг центра тяжести в плоскости...


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

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

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