Предмет: Информатика, автор: jrjjgjkfj

ПОМОЖІТЬ ДАЮ 100 БАЛІВ
Перетворити задані значення двох дійсних змінних х та у за таким правилом: якщо значення х та у від'ємні, то кожнез них замінити їх добутком, якщо від'ємне тільки одне з них, то обидва значення збільшити на 0.5, якщо ж обидва значення
невід'ємні і жодне з них не належить відрізку [0.5; 2.0], то обидва значення зменшити в 10 разів. У інших випадках значення
х та у залишаються без змін.
В lazarus

Ответы

Автор ответа: cevase
3

Ответ:

program TransformVariables;

var

x, y: Real;

begin

// Зчитування значень змінних x та y з клавіатури

Write('Введіть значення x: ');

Readln(x);

Write('Введіть значення y: ');

Readln(y);

// Застосування правил перетворення

if (x < 0) and (y < 0) then

begin

x := x * y;

y := x;

end

else if (x < 0) or (y < 0) then

begin

x := x + 0.5;

y := y + 0.5;

end

else if (x < 0.5) or (x > 2.0) or (y < 0.5) or (y > 2.0) then

begin

x := x / 10;

y := y / 10;

end;

// Виведення результату

Write('Результат перетворення: x = ', x:0:2, ', y = ', y:0:2);

end.


cevase: @cevase tg, давайте попробуем
cevase: да
Похожие вопросы
Предмет: Математика, автор: Аноним