Другие языки программирования и технологии

помогите перевести программу из паскаля на Си+

задание: Пусть
даны координаты трех вершин прямоугольника. Определите координаты четвертой
вершины.
решение (не знаю правильное ли)
Код Pascal1
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
uses crt;
var x1,y1,x2,y2,x3,y3,x4,y4,k:integer;
begin
clrscr;
writeln('Введите координаты 3х вершин прямоугольника: ');
readln(x1,y1,x2,y2,x3,y3);
k:=0;
{если первая точка вершина прямого угла}
if (x2-x1)*(x3-x1)+(y2-y1)*(y3-y1)=0 then
begin
x4:=x3+x2-x1;
y4:=y3+y2-y1;
end
{если вторая}
else if (x1-x2)*(x3-x2)+(y1-y2)*(y3-y2)=0 then
begin
x4:=x3+x1-x2;
y4:=y3+y1-y2;
end
{если третья}
else if (x1-x3)*(x2-x3)+(y1-y3)*(y2-y3)=0 then
begin
x4:=x2+x1-x3;
y4:=y2+y1-y3;
end
{если нет прямого угла}
else k:=1;
if k=0 then write('Координаты четвертой вершины ',x4,' ',y4)
else write('Данные точки не вершины прямоугольника');
readln
end.
Юрий Павлов
Юрий Павлов
85
#include <iostream>
using namespace std;
int main() {
setlocale(2, "");
cout << " x1: "; int x1; cin >> x1;
cout << " y1: "; int y1; cin >> y1;
cout << " x2: "; int x2; cin >> x2;
cout << " y2: "; int y2; cin >> y2;
cout << " x3: "; int x3; cin >> x3;
cout << " y3: "; int y3; cin >> y3;
int x4, y4;
bool ex = false;
if ((x1 == x2 || x2 == x3 || x1 == x3) && (y1 == y2 || y2 == y3 || y1 == y3)) {
ex = true;
if (x1 == x2 && x3 != x2) x4 = x3;
else if (x1 == x3 && x2 != x3) x4 = x2;
else if (x1 != x2) x4 = x1;
else ex = false;
if (ex) {
if (y1 == y2 && y3 != y2) y4 = y3;
else if (y1 == y3 && y2 != y3) y4 = y2;
else if (y1 != y2) y4 = y1;
else ex = false;
}
}
if (ex) cout << " x4: " << x4 << "\n y4: " << y4 << endl;
else cout << " Данные точки не вершины прямоугольника\n";
cin.sync();
cin.get();
}
Ахрор Н
Ахрор Н
80 885
Лучший ответ
Тебе даже номера строк лень удалить из вопроса, а ты хочешь чтобы за тебя кто-то твою работу сделал?
ВА
Влад Алешьников! )))
2 078
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
x, y, z, a, b, c, max, min: real;

begin
cls;
write('x = ');
readln(x);
write('y = ');
readln(y);
write('z = ');
readln(z);
a := sqrt(4 * sqr(y)) + z * z * z / 1 * 2 * 3;
b := 1 / sqrt(4 * sqr(y)) + 5;
c := (((z * z * z) * x / 6)) + ln(1);
if a > b then max := a
else max := b;
max := sqr(max);
min := c * c;
if max < min then min := max;
writeln;
writeln('Результат: ', min)
end.
Помогите перевести на си++
ВЮ
Вера Юрьевна Скворцова
132

Похожие вопросы