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

Pascal to с++ - C++

Восстановить пароль Регистрация
 
kaiwa
0 / 0 / 0
Регистрация: 01.07.2013
Сообщений: 40
26.05.2014, 20:25     Pascal to с++ #1
Возможно перевести код из pascal в с++?
Не знаком с паскалем

Если что, вот само задание *Дано n точек на плоскости. Указать (n-1)-звенную не самопересекающуюся
замкнутую ломаную, проходящую через все эти точки. (Соседним отрезкам
ломаной разрешается лежать на одной прямой.)*

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
uses crt;
const nmax=19;
type point=record
           x,y:integer;
           end;
var t:array[1..nmax] of point;
    n,i,j:byte;
    x:point;
begin
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
read(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  t[i].x:=-10+random(21);
  t[i].y:=-10+random(21);
 end;
writeln('Исходные координаты:');
write('X');
for i:=1 to n do
write(t[i].x:4);
writeln;
write('Y');
for i:=1 to n do
write(t[i].y:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if(t[i].x>t[j].x)or((t[i].x=t[j].x)and(t[i].y>t[j].y)) then
 begin
  x:=t[i];
  t[i]:=t[j];
  t[j]:=x
 end;
writeln('Координаты не пересекающейся ломаной линии:');
write('X');
for i:=1 to n do
write(t[i].x:4);
writeln;
write('Y');
for i:=1 to n do
write(t[i].y:4);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2014, 20:25     Pascal to с++
Посмотрите здесь:

C++ из Pascal в с++
C Pascal на C++ C++
C++ Pascal to C++
C++ Из Pascal в C++
C++ Из Pascal в C++
Pascal C++
из Pascal в C++ C++
C++ Из Pascal в C++

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

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

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