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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ помогите! http://www.cyberforum.ru/cpp-beginners/thread1017618.html
после включения компа монитор гаснет и пишет переход в режим ожидания а системный блок продолжает работать переустанавливал драйвера на видюху помогает но не надолго
C++ Выводит ошибку на system ("pause"); в чем дело? #include <iostream> using namespace std; int main() { int n, o; cout << " Ya sobirayus syest "; cin >> n; o = n % 100; if (0 < 10 && o > 20) http://www.cyberforum.ru/cpp-beginners/thread1017617.html
C++ Построение графика. Готовая программа, нужно перевести на си++
Помогите перевести на Си++ Построить кривые по заданному параметрическому представлению Кардиоида x = a*cost(1+cost), y = a*sint(1+cost), a>0, t Є [ 0, 2π ) uses graphABC; var...
C++ о боже.опять ошибки(
Создать 2 класса 1 класс - массив чисел 2 класс - массив порядковых номеров, макс.чисел 1-го массива #include <iostream> #include "StdAfx.h" using namespace std; class list2; class list1 {
C++ Наследование http://www.cyberforum.ru/cpp-beginners/thread1017609.html
Как избавиться от неоднозначности при ромбовом наследовании?
C++ c=(a+b)/(a-b) Помогите пожалуста, а то я не очень то и понимаю х) подробнее

Показать сообщение отдельно
s2df
0 / 0 / 0
Регистрация: 29.03.2013
Сообщений: 5

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

24.11.2013, 19:23. Просмотров 293. Ответов 0
Метки (Все метки)

Здравствуйте,вот есть программа, можете её перевести на язык С++.Заранее спасибо.
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru