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

Перевод программы из Pascal в C++ (разбить n-угольник на треугольники (n-3)-мя диагоналями) - C++

Восстановить пароль Регистрация
 
infamousbro
0 / 0 / 0
Регистрация: 29.05.2013
Сообщений: 3
29.05.2013, 09:12     Перевод программы из Pascal в C++ (разбить n-угольник на треугольники (n-3)-мя диагоналями) #1
Всем привет. Помогите, пожалуйста, перевести код программы из Pascal в C++. В Pascalе не смыслю, поэтому прошу вашей помощи. Буду очень благодарен. Очень нужно. Спасибо)

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
59
60
61
62
63
64
65
66
67
68
69
uses crt;
const nmax=10;
var
x,y:array [1..nmax] of longint;
s : array [1..nmax] of real;
n,i,a,j : integer;
min : real;
q : boolean;
function rast(n1,n2:integer):real;
begin
rast:=sqrt(sqr(x[n1]-x[n2])
+sqr(y[n1]-y[n2]));
end;
begin
clrscr;
repeat;
q:=true;
write('кол-во углов n=');
readln(n);
if n>nmax then
begin
writeln('слишком большое
n (n<=',nmax,').');
q:=false;
end;
if n<4 then
begin
if n<3 then 
writeln('Такой фигуры не 
существует (n>3).') 
else
writeln('В треугольнике 
нет диагоналей!!');
q:=false;
end;
until q;
for i:=1 to n do
begin
write('x[',i,']=');
readln(x[i]);
write('y[',i,']=');
readln(y[i]);
writeln;
end;
for i:=1 to nmax 
do s[i]:=0;
for i:=1 to n do
begin
for j:=1 to n-3 do
begin
a:=i+j+1;
if a>n then a:=a-n;
s[i]:=s[i]+rast(i,a);
end;
end;
min:=s[1];
a:=1;
for i:=1 to n do
begin
if min>s[i] then
begin
a:=i;
min:=s[i];
end;
end;
writeln('Ответ: из точки
№ ',a);
readln;
end.
Вот условие: Выпуклый n-угольник (n>2) задается координатами своих вершин в порядке обхода по контуру. Необходимо разбить n-угольник на треугольники (n-3)-мя диагоналями, не пересекающимися кроме как в вершинах многоугольника, таким образом, чтобы сумма их длин была минимальной.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2013, 09:12     Перевод программы из Pascal в C++ (разбить n-угольник на треугольники (n-3)-мя диагоналями)
Посмотрите здесь:

Перевод программы с Pascal на С++ C++
C++ Перевод программы с Pascal на С++
C++ Перевод программы с Pascal на C++
C++ Перевод программы с Pascal на С++
C++ Перевод программы из Pascal в C++
C++ - Перевод программы с Pascal на C++ C++
Перевод программы из Pascal на C++ C++
C++ Перевод программы с pascal на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 08:16. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru