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

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

Войти
Регистрация
Восстановить пароль
 
Profain
#1

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

30.01.2014, 19:54. Просмотров 190. Ответов 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 на С++ (C++):

Перевод программы с Pascal в С++ - C++
Добрый день,мне нужно написать правильный код программы с Pascal на С++ var n,k:longint; begin read ( n ); k:=1; while n mod 10...

Перевод программы из Pascal на C++ - C++
program vlad; uses crt; var m:integer; a:real; begin clrscr; write('a: '); readln(a); for m:=-5 to 5 do

Перевод программы с Pascal на C++ - C++
Здравствуйте уважаемые форумчане, помогите перевести следующую программу на C++: program z3; var a, b, c, x, x1, x2, dX, k:...

Перевод программы с 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++
1. procedure TForm1.Button1Click(Sender: TObject); var i,k,n:integer; x,y,S:array of real; D:real; begin ...

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

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

Перевод программы с pascal на С++ - C++
Столкнулся с трудностями при переводе данной программы на С++ Type Mat = array of real; var x, y, l:Mat; a, b, s:real; i:byte; ...

Перевод программы с Pascal на С++ - C++
Нужно перевести программу с языка Pascal на язык С++. Буду благодарен за помощь :) var text: string; i: integer; count:...

Перевод программы из Pascal в C++ - C++
Здравствуйте! Помогите перевести готовую программу сделанную на Pascal'e в С++. Знания Паскаля нулевые, знания С++ - скромные,...

Перевод программы из Pascal на С++ - C++
Прошу людей которые знают Pascal и С++ перевести программу из Паскаля на С++. uses crt; const nmax=100; var a:array of integer; ...


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

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

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