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

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

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

Pascal to с++ - C++

26.05.2014, 20:25. Просмотров 147. Ответов 0
Метки нет (Все метки)

Возможно перевести код из 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2014, 20:25
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Pascal to с++ (C++):

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница? - Pascal
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET и не понял, в...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal - Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы - Turbo Pascal
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record x,y:integer; end; ...

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal - Turbo Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг ограниченный окружностью , проходящий...

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC - Turbo Pascal
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6 заглавных латинских букв; соседние слова разделены запятой,...

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net? - PascalABC.NET
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode: integer; ErrCode: integer; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2014, 20:25
Привет! Вот еще темы с ответами:

Перевод программы с Turbo Pascal на Pascal ABC.NET - PascalABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома стоит эта версия /перестала работать что...

Перевести в код Pascal ABC из кода Pascal Delphi - Pascal ABC
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of real; i,j:byte; begin ...

Перевести в код Pascal ABC из кода Pascal Delphi - Pascal ABC
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл последовательного доступа N...

Необходимо перевести программу с Pascal ABC на free pascal - Free Pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k, n, i:byte; begin ...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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