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

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

Войти
Регистрация
Восстановить пароль
 
Profain
Сообщений: n/a
#1

Перевод программы с Pascal на С++ - C++

30.01.2014, 19:54. Просмотров 183. Ответов 0
Метки нет (Все метки)

Здравствуйте. Прошу помочь с одной задачей. Программа была написана на Pascal и теперь нужно перевести ее на С++. С чем у меня и проблемы.

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
46
47
48
49
Program okruz;
 
Type Vector = Array of integer;
Var
Tochki:Array of Vector;
center: Vector;
i, k,l,z:integer;
N,M,R:integer;
cur_R: real;
 
begin
write('input space Dimension:');
readln(N);
 
write('input Radius:');
readln(R);
setlength(center,N)  ;
 
for I := 0 to n - 1 do
  begin
    write('input [',i,'] coordinate of center ');
    readln(center[i]);
  end;
 
write('Input count of points:');
readln(M);
 
 
 setlength(tochki,M,N);
 
for k:=0 to M - 1 do
  For l:=0 to N - 1 do
  begin
    write('input [',l,'] coordinate of ',k,'-point  ');
    readln (Tochki[k,l]);
  end;
for k:=0 to M - 1 do
begin
  cur_R:=0;
  For l:=0 to N - 1 do
  begin
  cur_R:=cur_R+(Tochki[k,l]-center[l])*(Tochki[k,l]-center[l]);
  end;
  cur_R:=sqrt(cur_r);
  if cur_R< R  then   z:= z+1;
end;
 write ('Points Count  is ',z);
 readln;
 end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2014, 19:54     Перевод программы с Pascal на С++
Посмотрите здесь:

Перевод программы Pascal -> C++ - C++
Помогите на Си++ перевести program a1; uses crt; var s,tmp:string; i,x:longint; code:integer; begin tmp:=''; ...

Перевод программы с Pascal на С++ - C++
uses crt; var i :integer; BEGIN ClrScr; Write('Результат: '); for i := 20 to 50 do if (i mod 3 = 0) and (i mod 5 &lt;&gt; 0)...

Среднеарифметическое каждого столбца матрицы: перевод программы с Pascal - C++
Всем доброго времени суток! Помогите, пожалуйста, с переводом программы. const n=10; var mas:array of integer; srmas:array...

Перевод с Pascal на С++ - C++
Будьте добры, кто понимает, кому не сложно, очень нужна помощь в переводе. program z2; var a,b,s : integer; begin ...

Перевод из Pascal в C++ - C++
Перевод из Pascal в C++ Здравствуйте, помогите пожалуйста с переводом, сам нисколько не знаю паскаль, только в этом году начал...

Перевод с pascal на С++ - C++
разбиваем n-элементного множество Х на k блоков разбиения для n=4 Последовательность разбиений множества {1,2,3,4} ( 1 2 3 4 ) ( 1...

перевод в C++ из Pascal - C++
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая. вот на всякий случай сама задача: Таблица...

Перевод из Pascal в C++ - C++
Добрый день, дорогие форумчане) Буду благодарен за перевод) uses crt; const nmax = 20; type mtr = array of integer;

Перевод с Pascal на C++ - C++
Вечер добрый. Перевожу с pascal на c++. Подскажите или отредактируйте код, что не так? program z1; var a,b:real; begin; ...

Перевод с Pascal на C++ - C++
Помогите пожалуйста перевести код с Pascal на C++, паскаль совсем не знаю. Задание :Дана строка символов, в конце которой стоит точка....


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

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

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