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

Перевод из языка Паскаль в язык С++ - C++

Восстановить пароль Регистрация
 
s2df
0 / 0 / 0
Регистрация: 29.03.2013
Сообщений: 5
24.11.2013, 19:23     Перевод из языка Паскаль в язык С++ #1
Здравствуйте,вот есть программа, можете её перевести на язык С++.Заранее спасибо.
CONST Max_points = 50;
Max_Arrows = 100;

TYPE Point_array = ARRAY [0..Max_points-1] OF BOOLEAN;

VAR input_file,output_file : text;
current_arrow,current_point,number_of_points,number_of_arrows,
number_unavoidable_points,number_splitting_points : INTEGER;
Arrows : ARRAY [0..Max_Arrows-1,0..1] OF INTEGER;
unavoidable,splitting : Point_array;

PROCEDURE initialisation;
BEGIN
number_of_points:=1;
number_of_arrows:=0;
number_unavoidable_points:=0;
number_splitting_points:=0;
FOR current_point:=0 TO Max_points-1 DO
BEGIN
splitting [current_point]:=FALSE ;
unavoidable [current_point]:=FALSE
END;
END;

PROCEDURE read_input;
VAR num : INTEGER;
BEGIN
read(num);
WHILE NOT (num = -1) DO
BEGIN
IF num = -2
THEN INC (number_of_points)
ELSE BEGIN
Arrows [number_of_arrows][0] := number_of_points-1;
Arrows [number_of_arrows][1] := num;
INC (number_of_arrows)
END;
read(num)
END;
END;

PROCEDURE write_output;
BEGIN
Write(number_unavoidable_points);
FOR current_point:=1 TO number_of_points-2 DO
IF unavoidable[current_point]
THEN write(' ',current_point);
Writeln;
Write (number_splitting_points);
FOR current_point:=1 TO number_of_points-2 DO
IF splitting[current_point]
THEN write(' ',current_point);
END;

PROCEDURE finalisation;
BEGIN
END;

PROCEDURE compute_results;

VAR reachable : Point_array;

PROCEDURE find_reachable (current_point:INTEGER);
VAR point:INTEGER;
ready:BOOLEAN;
BEGIN
FOR point:=1 TO number_of_points - 1 DO
reachable[point]:=FALSE;
reachable[0]:=TRUE;
ready:=FALSE;
WHILE NOT ready DO
BEGIN ready:=TRUE;
FOR current_arrow:=0 TO number_of_arrows-1 DO
IF reachable [Arrows[current_arrow,0]] AND
NOT reachable [Arrows[current_arrow,1]] AND
(Arrows[current_arrow,1]<>current_point)
THEN BEGIN reachable[Arrows[current_arrow,1]]:=TRUE;
ready:=FALSE
END;
END
END;

FUNCTION is_splitting:BOOLEAN;
VAR current_arrow:INTEGER;
OK:BOOLEAN;
BEGIN
current_arrow:=0;
OK:=TRUE;
WHILE (current_arrow<number_of_arrows) AND OK DO
BEGIN
OK:=reachable [Arrows[current_arrow,0]] OR
NOT (reachable [Arrows [current_arrow,1]]);
INC(current_arrow)
END;
is_splitting:=OK
END;

BEGIN
FOR current_point:=1 TO number_of_points-2 DO
BEGIN
find_reachable (current_point);
IF NOT reachable[number_of_points-1]
THEN BEGIN
unavoidable [current_point] := TRUE;
INC (number_unavoidable_points);
IF is_splitting
THEN BEGIN
splitting[current_point]:=TRUE;
INC (number_splitting_points)
END
END
END;
END;

BEGIN
initialisation;
read_input;
compute_results;
write_output;
finalisation;
END.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2013, 19:23     Перевод из языка Паскаль в язык С++
Посмотрите здесь:

Не получается переложить код с языка C# на язык С C++
C++ перевод из одного языка в другой
C++ Перевести программу с языка Паскаль на С++
C++ Перевести программу с языка Паскаль в язык С++
Перевод дроби на язык СИ C++
C++ Транслятор из языка Паскаль в СИ (текст программы) возможен ли
C++ Кто нибудь можете подсказать, есть ли вообще программы конверторы с языка c++ в паскаль
Перевод формулы на язык C++ C++
Первый язык программирования на подходе к С++: Паскаль или С? C++
Перевод кода с языка Pascal на C++ C++
C++ Перевести код с языка Pascal на язык C++
Перевести код с языка Pascal на язык С++ C++

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

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

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