Мне через паскаль надо: даны два действительных числа x и y, не равные друг другу. заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. раз-работать схему алгоритма для решения этой . протестировать алгоритм на числах 5.5 и -4.3, а так-же на числах 1 и 14.5.

Вот программа и результат теста (смотри скриншоты)

Программа:
var
  x, y, tmp: real;
 
begin
  writeln('Исходные числа:');
  write('X = ');
  read(x);
  write('Y = ');
  read(y);
  if x > y then
  begin
    tmp := x;
    x := 2 * x * y;
    y := (tmp + y) / 2;
  end
  else
  begin
    tmp := y;
    y := 2 * x * y;
    x := (tmp + x) / 2;
  end;
  writeln('Результат:');
  writeln('X = ', x);
  writeln('Y = ', y);
end.
Пример 1:
Исходные числа:
X = 5.5
Y = -4.3
Результат:
X = -47.3
Y = 0.6
Пример 2:
Исходные числа:
X = 1
Y = 14.5
Результат:
X = 7.75
Y = 29

9 км, путь К-Н-М-О

Объяснение:

Из пункта К можно попасть в Л или Н, при этом изначально для нас предпочтительнее Н, т.к. он короче на 1 км.

Глянем теперь на конечный пункт - из пункта О можно попасть только в пункт М, таким образом нам необходимо найти кратчайший путь из пункта К в пункт М.

Рассмотрим наиболее предпочтительный путь для начала: К-Н.

Можем ли мы попасть из пункта Н в путь М сразу? Да, за 4 км.

Сравним с ситуацией в пункте Л. Можем ли мы попасть в пункт М сразу? Да, тоже за 4 км.

Поскольку из Л и Н попасть в пункт М можно за 4 км, то мы сразу можем понять, что правильный путь это К-Н, потому что он выгоднее на 1 км изначально, а в дальнейшем пути одинаковые.

В результате чего у нас получается путь К-Н-М-О или 2+4+3 = 9 км.

Надеюсь, логика понятна :)

#include "stdafx.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
float gip, katet1,katet2,radius;
cout << "Введите величину гипотенузы ( см ): ";
cin >> gip;cout << "Введите величину известного катета ( см ) : ";
cin >> katet1;
katet2 = sqrt((float(gip*gip - katet1 * katet1)));
radius = (katet1 + katet2 - gip) / 2;
cout << "Второй катет равен: " << katet2 << " см \nРадиус вписанной
окружности: " << radius << endl;
return 0;
}
использовал формулу для радиуса radius = (katet1+katet2-gip)/2
Для нахождения катетов katet2 = корень квадратный из gip^2-katet1^2
Писал в visual c++, советую там и проверять. Чтобы с синтаксисом проблем не возникло