Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
k4pral_levi
1 / 1 / 2
Регистрация: 27.05.2015
Сообщений: 47
#1

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

11.11.2015, 14:43. Просмотров 228. Ответов 2
Метки нет (Все метки)

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
uses crt;
type prm=record {прямая с полями, коэффициентами}
         a,b,c:real;
         end;
     tch=record {точка с полями, координатами}
         x,y:real;
         end;
{процедура вычисления точки пересечения 2х прямых}
procedure Peres2(a,b:prm; var t:tch);
begin
  t.x:=(b.c*a.b-a.c*b.b)/(a.a*b.b-a.b*b.a);
  t.y:=(b.a*a.c-a.a*b.c)/(a.a*b.b-a.b*b.a);
end;
{функция проверки на пересечение}
function Prov(a,b:prm):boolean;
begin
Prov:=a.a*b.b-a.b*b.a<>0;
end;
{процедура ввода данных}
procedure Vvod(var a:prm;k:byte);
begin
repeat
writeln('Введите коэффициенты прямой ',k);
readln(a.a,a.b,a.c);
if(a.a=0)and(a.b=0)then writeln('Это не прямая, повторите ввод')
until(a.a<>0)or(a.b<>0);
a.c:=-a.c;{перенесем C в левую часть получим ax+by+c=0}
end;
var a,b,c:prm;
    m12,m13,m23:tch;
    s:real;
begin
clrscr;
Vvod(a,1);
Vvod(b,2);
Vvod(c,3);
if not Prov(a,b)or not Prov(a,c)or not Prov(b,c) then
 begin
  write('Прямые попарно не пересекаются');
  readln;
  exit
 end;
Peres2(a,b,m12);
Peres2(a,c,m13);
Peres2(b,c,m23);
writeln('Точка пересечения 1-2: ',m12.x:5:2,';',m12.y:5:2);
writeln('Точка пересечения 1-3: ',m13.x:5:2,';',m13.y:5:2);
writeln('Точка пересечения 2-3: ',m23.x:5:2,';',m23.y:5:2);
s:=abs(m12.x*(m23.y-m13.y)+m23.x*(m13.y-m12.y)+m13.x*(m13.y-m23.y))/2;
write('Площадь треугольника пересечений=',s:0:2);
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.11.2015, 14:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевод с Паскаля в С++ (C++):

Перевод из паскаля в С++
помогите, пожалуйста, перевести : Program enot; var c, a : integer; begin...

Перевод с паскаля в С++
помогите перевести код программы с паскаля в С++, пожалуйста! Program pr1;...

Перевод с Паскаля на си++
Помогите перевести на си++. uses crt; const gl=; var s:string; ...

Перевод из Паскаля в С++
const RusLit = ; EngLit = ; var Str: string; procedure...

Перевод с паскаля на с++
С Паскаля на С++ var n: Integer; d: Longint; begin repeat...

Перевод из Паскаля на С++
Привет всем. Нужна помощь. У меня есть алгоритм на Паскале, а нужен на С++,...

2
Eva Rosalene
11.11.2015, 14:43
  #2

Не по теме:

Огнормное спасибо
Не за что :)

0
k4pral_levi
1 / 1 / 2
Регистрация: 27.05.2015
Сообщений: 47
11.11.2015, 14:49  [ТС] #3
поможешь?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2015, 14:49
Привет! Вот еще темы с решениями:

Перевод с паскаля на С++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe:...

перевод с Паскаля
Надо перевести: program zz; var n,m:integer; i,j,g,z,bilkol:integer; ...

Перевод из Паскаля в С++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само...

Перевод с паскаля на С++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. const n = 67; var...


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

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

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