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

С++ для начинающих

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

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

29.05.2013, 09:12. Просмотров 322. Ответов 0
Метки нет (Все метки)

Всем привет. Помогите, пожалуйста, перевести код программы из 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)-мя диагоналями)
Посмотрите здесь:

Разбить выпуклый n-угольник на треугольники согласно условию - C++
10. Дан выпуклый n-угольник, n=&gt;3, своим обходом по контуру. Разбить его на треугольники (n-3)-мя диагоналями, непересекающимися кроме как...

Перевод программы из Pascal в C++ - C++
Здравствуйте! Помогите перевести готовую программу сделанную на Pascal'e в С++. Знания Паскаля нулевые, знания С++ - скромные,...

Перевод программы из Pascal на С++ - C++
Прошу людей которые знают Pascal и С++ перевести программу из Паскаля на С++. uses crt; const nmax=100; var a:array of integer; ...

Перевод программы Pascal -> C++ - C++
Помогите на Си++ перевести program a1; uses crt; var s,tmp:string; i,x:longint; code:integer; begin tmp:=''; ...

Перевод программы с Pascal на C++ - C++
Здравствуйте уважаемые форумчане, помогите перевести следующую программу на C++: program z3; var a, b, c, x, x1, x2, dX, k:...

Перевод программы с Pascal на С++ - C++
Нужно перевести программу с языка Pascal на язык С++. Буду благодарен за помощь :) var text: string; i: integer; count:...

Перевод программы с Pascal на С++ - C++
uses crt; var i :integer; BEGIN ClrScr; Write('Результат: '); for i := 20 to 50 do if (i mod 3 = 0) and (i mod 5 &lt;&gt; 0)...

Перевод программы с Pascal на С++ - C++
1. procedure TForm1.Button1Click(Sender: TObject); var i,k,n:integer; x,y,S:array of real; D:real; begin ...

Перевод программы из Pascal на C++ - C++
program vlad; uses crt; var m:integer; a:real; begin clrscr; write('a: '); readln(a); for m:=-5 to 5 do

Перевод программы с pascal на С++ - C++
Столкнулся с трудностями при переводе данной программы на С++ Type Mat = array of real; var x, y, l:Mat; a, b, s:real; i:byte; ...


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

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

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