Даны координаты левой верхней и правой нижней вершин квадрата. найти координаты точки пересечения диагоналей квадрата.

👇

Ответ:

точно2

19.11.2022

Var x1,y1,x2,y2,x,y:real;
begin
writeln('Введите координаты левой верхней вершины квадрата');
readln(x1,y1);
writeln('Введите координаты правой нижней вершины квадрата');
readln(x2,y2);
x:=x1+(x2-x1)/2;
y:=y2+(y1-y2)/2;
writeln('Координаты точки пересечения диагоналей квадрата:');
writeln('x = ',x,' y = ',y);
end.

Пример:
Введите координаты левой верхней вершины квадрата
4 3
Введите координаты правой нижней вершины квадрата
6 1
Координаты точки пересечения диагоналей квадрата:
x = 5 y = 2

4,7(63 оценок)

Ответ:

Vikanigmatulina

19.11.2022

Var
x1,x2,y1,y2:real;
Begin
Write('x1 = ');
ReadLn(x1);
Write('y1 = ');
ReadLn(y1);
Write('x2 = ');
ReadLn(x2);
Write('y2 = ');
ReadLn(y2);
WriteLn('(',x1+(x2-x1)/2,',',y2+(y1-y2)/2,')')
End.

4,5(97 оценок)

Открыть все ответы

Ответ:

shpep

19.11.2022

Procedure GetRV(var r, v: real; var Final: boolean);
{ Организует ввод и возвращает значения роста и веса.
Значение параметра Final=true - сигнал окончить ввод данных,
для чего вводят нули }
begin
Write('Введите рост (см) и вес (кг) ->');
Readln(r, v);
Final := ((r > 0) and (v > 0))
end;

function DefDesk(r: real): string;
begin
if r <= 140 then DefDesk := 'S'
else if r < 150 then DefDesk := 'M'
else DefDesk := 'L'
end;

var
rost, ves: real;
flag: boolean;

begin
repeat
GetRV(rost, ves, flag);
if flag then Writeln('Нужна парта типа ', DefDesk(rost))
until (not flag)
end.

Тестовое решение:
Введите рост (см) и вес (кг) ->135 31
Нужна парта типа S
Введите рост (см) и вес (кг) ->143 41
Нужна парта типа M
Введите рост (см) и вес (кг) ->151 48
Нужна парта типа L
Введите рост (см) и вес (кг) ->0 0

4,6(3 оценок)

Ответ:

volgaslob

19.11.2022

Чтобы не искать число за числом по калькулятору, будем рассуждать логически:

Попробуем составить уравнение, которое нам.

Нам нужно, чтобы двузначное число делилось на произведение своих цифр. Представим само число как сумму десятков и единиц:

10x + y

А произведение представим просто:

x × y

Теперь уравняем их:

10x + y = x × y

x ≠ 0

y ≠ 0

1. Возьмём x = 1

10 × 1 + y = 1 × y

10 + y = y

Теперь разделим левую часть на правую. Суть этого уравнения состоит в том, что левая часть уравнения должна делиться на правую без остатка. Таким образом мы и найдём все двузначные числа, которые кратны произведению своих цифр.)

Значится:

(10 + y) ÷ y = 10/y + y/y = 10/y + 1

Смотрим. В сумме должно получится ЦЕЛОЕ число. Чтобы оно получилось, надо знать, на что делится десятка без остатка. А делится она на 1, 2 и 5.) Значит, "игрек" будет равен этим числам. первые три числа уже нашли. Это:

11, 12 и 15.

2. Теперь возьмём x = 2

10 × 2 + y = 2 × y

20 + y = 2y

(20 + y) ÷ 2y = 20/2y + y/2y = 10/y + 1/2

Опять же - в сумме должно получится ЦЕЛОЕ число. Значит надо думать, на что поделить десятку, чтобы потом полученное число сложить с дробью 1/2 (0,5) и в конечном счёте получить целое число.

Очевидно, что это цифра "4", т.к. 10 ÷ 4 = 2,5. А 2,5 + 0,5 = 3 - целое число.)

Значит, y = 4. В итоге получаем ещё одно число, кратное произведению своих цифр:

24.

3. Теперь x = 3

10 × 3 + y = 3 × y

30 + y = 3y

(30 + y) ÷ 3y = 30/3y + y/3y = 10/y + 1/3

Те же манипуляции. Ищем, на что дожна делиться десятка, чтобы полученное число прибавить к 1/3 и получить целое число.)

Это цифра "6". y = 6

10/6 = 5/3 = 1 целая и 2/3. 1 целая и 2/3 + 1/3 = 3.

Нашли ещё одно число:

36.