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

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

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

Pascal to с++ - C++

26.05.2014, 20:25. Просмотров 142. Ответов 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2014, 20:25     Pascal to с++
Посмотрите здесь:

Непонятная ошибка. TMT Pascal выдает: expected AND or statement, а turbo pascal просит поставить ";" - Turbo Pascal
Program board; Uses CRT; Var x, count, hod: integer; y: string; Begin Writeln ('vvedite znachenie po gorizontali (1, 2, 3, 4, 5,...

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

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

Нужно перевести код с 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.net? - PascalABC.NET
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode: integer; ErrCode: integer; ...

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

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


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

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

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