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

Delphi

Войти
Регистрация
Восстановить пароль
 
fatman622
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 29
#1

Тетраедер - Delphi

13.05.2013, 21:39. Просмотров 315. Ответов 6
Метки нет (Все метки)

Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является ли правильным тетраедром (т.е. все 6 расстояний равни).
Помогитие,оченьь нужно.....
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2013, 21:39
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Тетраедер (Delphi):

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...

Тетраедер - Delphi
Создать функцию и прпоцедуру,которая проверяет, геометрическая фигура с четырьмя вершинами является правильным тетраедром (т.е. все 6...


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

Или воспользуйтесь поиском по форуму:
6
mss
2334 / 2253 / 250
Регистрация: 24.12.2010
Сообщений: 13,727
13.05.2013, 21:59 #2
И чем же тебе помочь, горемычный ?
0
fatman622
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 29
13.05.2013, 22:00  [ТС] #3
если можно то кодом программы=)))
0
mss
2334 / 2253 / 250
Регистрация: 24.12.2010
Сообщений: 13,727
13.05.2013, 22:04 #4
А ты будешь сидеть и в носу ковырять в это время ?
0
fatman622
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 29
13.05.2013, 22:13  [ТС] #5
если можно то кодом программы=)))
вот што мне получилось но возвращает ноль(
procedure riv(x1,x2,y1,y2,z1,z2,res:real);
begin
res:=Sqrt(Sqr(x2-x1)+sqr(y2-y1)+sqr(z2-z1));
end;
var
x11,x22,y11,y22,z11,z22:Real;
res,a:Real;
i,j,k,m:Integer;

mas:array[1..6] of Integer;
vidp:array[1..6] of Real;
begin
for i:=1 to 6 do
begin
Writeln('x1,x2,y1,y2,z1,z2');
readln(x11,x22,y11,y22,z11,z22);
riv(x11,x22,y11,y22,z11,z22,res);
Writeln(res:4:2);
for j:=1 to 6 do
begin
vidp[j]:=vidp[j]+res;
end;
end;
a:=vidp[1];
m:=0;
for i:=1 to 6 do
begin
if vidp[j]<>a then m:=m+1 ;

end;
if m=0 then

Writeln('Figura npavulna')
else
Writeln('Figyra nepravilna');


readln;
end.
0
mss
2334 / 2253 / 250
Регистрация: 24.12.2010
Сообщений: 13,727
13.05.2013, 22:18 #6
формальный параметр res должен быть объявлен со спецификатором var или out
либо riv должна быть функцией.
1
fatman622
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 29
13.05.2013, 22:29  [ТС] #7
Спосибо большое!!!)
0
13.05.2013, 22:29
Ответ Создать тему
Опции темы

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