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

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

Войти
Регистрация
Восстановить пароль
 
Лейля
0 / 0 / 0
Регистрация: 23.03.2016
Сообщений: 4
#1

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

13.07.2016, 20:03. Просмотров 184. Ответов 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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
uses crt;
const e=0.01;{точность сравнения вещественных чисел}
type Point=record{тип точка}
           x,y:real;
           end;
{площадь треугольника}
function Strg(a,b,c:Point):real;
begin
Strg:=abs((a.x-c.x)*(b.y-c.y)-(b.x-c.x)*(a.y-c.y))/2;
end;
{принадлежит ли точка треугольнику}
function Prin(a,b,c,t:Point):boolean;
var s,s1,s2,s3:real;
begin
{площади 3х маленьких треугольников, образованных
двумя вершинами и точкой}
s1:=Strg(a,b,t);
s2:=Strg(a,c,t);
s3:=Strg(b,c,t);
{площадь самого треугольника}
s:=Strg(a,b,c);
Prin:=(s1>e)and(s2>e)and(s3>e){если все площади маленьких > заданной точности
                              (точки не лежат на сторонах)}
and(abs(s-s1-s2-s3)<=e);{и если площиди маленьких=большому
                         с заданой точностью, то точка внутри треугольника}
end;
 
const nmax=15;{чтобы вошли в строку по щирине экрана}
var m:array[1..nmax] of Point;{множество точек}
    n:integer;{его размер}
    kt,mx:integer;{кол. точек в треугольнике и их максимум}
    imx,jmx,kmx:integer;{номера вершин треугольника с макс. кол. точек}
    i,j,k,p:integer;{счетчики циклов}
begin
randomize;
repeat
write('Количество точек множества от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
writeln('Множество:');
for i:=1 to n do
 begin
  m[i].x:=10*random;
  m[i].y:=10*random;
 end;
write(' ':2);
for i:=1 to n do
write(i:5);
writeln;
write('X:');
for i:=1 to n do
write(m[i].x:5:2);
writeln;
write('Y:');
for i:=1 to n do
write(m[i].y:5:2);
writeln;
mx:=0;
{перебираем треугольники из множества и ищем в каком больше точек}
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
 begin
  kt:=0;
  for p:=1 to n do
  if Prin(m[i],m[j],m[k],m[p]) then kt:=kt+1;
  if kt>mx then
   begin
    mx:=kt;
    imx:=i;
    jmx:=j;
    kmx:=k;
   end;
 end;
writeln('Максимальное количество точек в треугольнике');
writeln(imx,'(',m[imx].x:0:2,';',m[imx].y:0:2,')');
writeln(jmx,'(',m[jmx].x:0:2,';',m[jmx].y:0:2,')');
writeln(kmx,'(',m[kmx].x:0:2,';',m[kmx].y:0:2,')');
writeln('Количество точек=',mx);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.07.2016, 20:03
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод кода из Паскаля в C++ (C++):

Перевод кода из паскаля в с++ - C++
Незнаю как перевести из паскаля в с++ ar x, y: real; begin readln(x, y); if ((x &lt; 0) and (y &lt; 0)) then begin ...

Перевод кода из Паскаля в С++ - C++
uses crt,graph; type TPoint=record x,y:integer; end; var p1,p2,p3,p4:arrayof TPoint; gd,gm:integer; ...

Перевод кода с паскаля в С++ - C++
помогите перевести код с Паскаля в С++, пожалуйста! Program pr1; uses crt; var s:string; begin clrscr; write('введите слова:');...

Перевод кода с Паскаля на С++ - C++
помогите перевести код программы с Паскаля в с++, пожалуйста! Program pr1; uses crt; var f:text; s:string; i:byte; n:integer; ...

Перевод кода с паскаля на С++ - C++
Нужно перевести на С++ program dvumerniu; uses crt; const m=2; n=4; type mat=array of integer; var ...

Перевод кода из Паскаля в С++ - C++
Я в С++ не бум бум, написал прогу на паскале а нуно на Си++ помогите перевести Задача : Назовем допустимым преобразованием матрицы...

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

Перевод кода с Паскаля на C++ - C++
Помогите пожалуйста перевести код программы из паскаля в с++ Uses crt; Var j,i,nech_kol,ch_kol,q,p,sum_nech,sum_ch: Integer; ...

Перевод кода из Паскаля в C++ - C++
помогите пожалуйста перевести код в c++ integer procedure F2(ref(position) p,integer alpha,integer beta): begin integer m,t;...

Перевод кода из паскаля в c++ - C++
Собственно надо перевести этот код из паскаля в c++, чтобы программа выдавала такие же данные и тот же результат. const n=30; ...

Перевод кода с Паскаля на С++ - C++
Помогите плиз перевести код с Паскаля на С++, компилятор DEV C++. Буду вам очень благодарен. Код Pascal Var i:longint; n,k:byte; ...


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

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

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