Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC напишите программу http://www.cyberforum.ru/pascalabc/thread808641.html
4. а. Дан текстовый файл f Записать в файл g символы файла f в обратном порядке, оставив только первые вхождения каждого символа. б. Дан файл из ненулевых целых чисел и целое п. Числа в файле идут...
По последней цифре данного числа определить последнюю цифру его куба Pascal ABC
Составить программу, позволяющую по последней цифре данного числа, определить последнюю цифру куба этого числа .
Pascal ABC Дано натуральное N
Решить задачу, используя 2 вида цикла: с параметром и с условием (либо с предусловием, либо с постусловием)
Pascal ABC Найти сумму элементов массива д) сумму элементов массива с к1-гo по к2-й (значения к1 и к2 вводятся с клавиатуры; к2 > к1; program kvad; uses crt; var a:arrayof Integer; i,n,sum,proz,sumkv,sum6,sumz,k1,k2:Integer; begin... http://www.cyberforum.ru/pascalabc/thread808618.html
Pascal ABC Тестовый файл (есть решенная через записи) http://www.cyberforum.ru/pascalabc/thread808578.html
Помогите, пожалуйста, с программой: Дан текстовый файл с жителями городов: фамилия, город, улица, дом, квартира. Вывести на экран список жителей. Вывести в текстовый файл фамилии жителей,...
Pascal ABC Строка: В заданном предложении найти пару слов заданной длины с максимальным расстоянием.
Расстояние между двумя словами равной длины — это количество позиций, в которых различаются эти слова. В заданном предложении найти пару слов заданной длины с максимальным расстоянием.
Pascal ABC Определить, является ли натуральное число N степенью числа 5 или нет
Решить задачу, используя циклические конструкции
Pascal ABC Даны два действительных положительных числа x и y Даны два действительных положительных числа x и y .Арифметические действия над числами пронумерованы (1-сложение, 2-вычитание, 3-умножение, 4-деление). Составить программу, которая по введенному... http://www.cyberforum.ru/pascalabc/thread808495.html
Pascal ABC Определите, является ли заданное целое число А нечётным двузначным числом http://www.cyberforum.ru/pascalabc/thread808473.html
Определите, является ли заданное целое число А нечётным двузначным числом.
Pascal ABC В данной последовательности целых чисел найти количество раз личных положительных чисел и их значения В данной последовательности целых чисел найти количество раз личных положительных чисел и их значения. http://www.cyberforum.ru/pascalabc/thread808467.html
Vitorrio
17 / 7 / 2
Регистрация: 12.02.2010
Сообщений: 200
0

Как построить трехмерный тетраэдр?

14.03.2013, 18:17. Просмотров 1378. Ответов 0
Метки (Все метки)

Нужно построить тетраэдр и добавить анимацию вращения по любой оси..

Вот пример вращения куба:

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
58
uses crt,graphabc,Events;
type Cube=array[1..8] of real;
var
i,e:integer;
a:real;
xx,yy,zz:array[1..8] of real;
x1,y1:array[1..8] of integer;
const
ang=pi/3; r=100;
x:cube=(0,r,r,0,0,r,r,0);
y:cube=(0,0,0,0,r,r,r,r);
z:cube=(0,0,r,r,0,0,r,r);
 
procedure showcube(c:byte);
begin
setwindowsize(640,480);
line(320,240,640,240);
line(320,0,320,240);
line(320,240,0,560);
textout(300,5,'Y');
textout(620,250,'X');
textout(120,450,'Z');
setpencolor(RGB(c,c,c));
line(x1[1],y1[1],x1[2],y1[2]);
line(x1[1],y1[1],x1[4],y1[4]);
line(x1[1],y1[1],x1[5],y1[5]);
line(x1[2],y1[2],x1[3],y1[3]);
line(x1[2],y1[2],x1[6],y1[6]);
line(x1[3],y1[3],x1[7],y1[7]);
line(x1[3],y1[3],x1[4],y1[4]);
line(x1[4],y1[4],x1[8],y1[8]);
line(x1[5],y1[5],x1[6],y1[6]);
line(x1[5],y1[5],x1[8],y1[8]);
line(x1[6],y1[6],x1[7],y1[7]);
line(x1[7],y1[7],x1[8],y1[8]);
end;
 
begin
for e:=1 to 360 do
begin
a:=pi/180*e;
for i:=1 to 8 do
begin
xx[i]:=x[i];
yy[i]:=y[i]*cos(a)-z[i]*sin(a);
zz[i]:=z[i]*sin(a)+z[i]*cos(a);
x1[i]:=round(xx[i]-zz[i]*cos(ang)/2)+320;
y1[i]:=-round(yy[i]-zz[i]*cos(ang)/2)+240;
end;
showcube(25);
setpencolor(15);
write(e);
delay(100);
clrscr;
e:=e+1;
end;
showcube(25);
end.


Вернуться к обсуждению:
Как построить трехмерный тетраэдр?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2013, 18:17
Готовые ответы и решения:

Построить в трехмерной системе координат ТЕТРАЭДР и осуществить его поворот
Постановка задачи: Построить в трехмерной системе координат ТЕТРАЭДР и осуществить его поворот...

Как построить тетраэдр вписанный в сферу?
a := 5; with(plottools); with(plots); t1 := tetrahedron(, (1/4)*sqrt(6)*a); s1 := sphere(,...

Как построить трехмерный график?
> restart; > with(plots); > t:=0,5; t := 0, 5 >...

Как построить подобный трехмерный график
Здравствуйте. Пишу диплом, научный руководитель сказал построить трехмерный график. Чуть...

Как в программе Mathematica построить трехмерный график по точкам?
Собственно вопрос в заголовке. Можно ли в Математике построить трехмерный график по точкам?

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