Предмет: Информатика,
автор: jrjjgjkfj
ПОМОЖІТЬ ДАЮ 100 БАЛІВ
Перетворити задані значення двох дійсних змінних х та у за таким правилом: якщо значення х та у від'ємні, то кожнез них замінити їх добутком, якщо від'ємне тільки одне з них, то обидва значення збільшити на 0.5, якщо ж обидва значення
невід'ємні і жодне з них не належить відрізку [0.5; 2.0], то обидва значення зменшити в 10 разів. У інших випадках значення
х та у залишаються без змін.
В lazarus
Ответы
Автор ответа:
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, давайте попробуем
Похожие вопросы
Предмет: Химия,
автор: katataran636
Предмет: Математика,
автор: Аноним
Предмет: Українська мова,
автор: agnepa69
Предмет: Английский язык,
автор: temabasota
Предмет: Українська мова,
автор: a4a4a4pro