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

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

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

Перевести с паскаля на С++ - C++

09.06.2014, 18:55. Просмотров 141. Ответов 0
Метки нет (Все метки)

Здравствуйте! Переведите пожалуйста программу на С++
Кликните здесь для просмотра всего текста
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
50
51
52
53
54
55
56
57
Program MINE;
Const max=1000;
var 
    n,n1,count,i,x1,y1,x2,y2,m,m1,m2,m0:longint;
    l1,l2,l3:real;
    a:array[1..2,1..max] of longint;
    h:array[1..max] of byte;
    r,r1:real;
begin
read(n);
for i:=1 to n do
    read(a[1,i],a[2,i]);
n1:=n;
count:=0;
fillchar(h,sizeof(h),0);
while n1>=3 do
      begin
      inc(count);
      m:=1;
      x1:=32001;  {min x}
      for i:=1 to n do
          begin
          if (a[1,i]<x1) and (h[i]=0)
             then begin
                  m:=i;
                  x1:=a[1,i];
                  end;
          end;
      m0:=m;
      x1:=0;
      y1:=1;
      repeat
        r:=-2;
        for m1:=1 to n do
            if (m1<>m) and (h[m1]=0) then
            begin
            x2:=a[1,m1]-a[1,m];
            y2:=a[2,m1]-a[2,m];
            l1:=1.0*x1*x1+1.0*y1*y1;
            l2:=1.0*x2*x2+1.0*y2*y2;
            l3:=1.0*x1*x2+1.0*y1*y2;
            r1:=l3/((sqrt(l1))*(sqrt(l2)));
            if r1>r
               then begin
                    r:=r1;
                    m2:=m1;
                    end;
            end;
        dec(n1);
        h[m2]:=1;
        x1:=a[1,m2]-a[1,m];
        y1:=a[2,m2]-a[2,m];
        m:=m2;
      until m2=m0;
      end;
writeln(n1,' ',count);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.06.2014, 18:55     Перевести с паскаля на С++
Посмотрите здесь:

C Паскаля перевести в С++ - C++
Дана матрица размера M x N. Удалить столбец, содержащий максимальный элемент матрицы. program Matrix64; var ...

Перевести с Паскаля на С++ - C++
uses crt; var n,k:byte; p,s:longint; begin clrscr; write('Введите произведение нескольких первых нечетных натуральных чисел...

Перевести с Паскаля на Си - C++
Структура элемента массива работник: фамилия, число, месяц и год рождения, пол. определить: ─ фамилия самого старшего мужчины; ─...

Перевести с паскаля на си - C++
Здравствуйте,помогите пожалуйста перевести с паскаля на си var s: string; i: byte; sum,c,k,max: integer; begin sum:=0;...

Перевести с Паскаля на С++ - C++
Program Proc; procedure MinMax(var A,B:real); var temp:real; begin if (A&gt;B)then begin temp:=A; A:=B; B:=Temp;

Перевести из паскаля в С - C++
Условие: Постройте массив p=2,p,...,p, где p=2, p=3, ..., p - n-е простое число uses crt; const maxn = 100; var a: array of...

Перевести из паскаля на c++ - C++
program laba2; var x,y: real; begin writeln ('введіть координати точки: '); read(x,y); if (sqrt(x)+sqrt(y)&lt;=4) AND NOT((...

Перевести с паскаля на С++ - C++
Var s,s1:string; i,k:byte; Begin write('Введите строку: ');readln(s); k:=0;s1:=''; For i:=Length(s) downto 1 do ...

перевести на c++ с паскаля - C++
переведите пожалуйста как написать эти строчки на с++ for i:=1 to Length(s) do for j:=length(sl) downto 1 do Добавлено...

перевести в си++ из паскаля - C++
var n:longint; i,c:integer; s:string; A:array of boolean; begin write('Введите N: '); readln(n); str(n,s); ...


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

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

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