Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.93/40: Рейтинг темы: голосов - 40, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 12.12.2014
Сообщений: 7

Если x, y отрицательны, то каждое значение заменить его модулем

12.12.2014, 15:11. Показов 7284. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1) Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем;
- если отрицательно только одно из них, то оба значения увеличить на 0,5;
- если оба значение не отрицательны и ни одно из них не принадлежит отрезку [0,5, 2], то оба значения уменьшить в 10 раз;
- в остальных случаях X, и Y оставить без изменения;
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
12.12.2014, 15:11
Ответы с готовыми решениями:

Если x, y отрицательны, то каждое значение заменить его модулем
2.Даны действительные числа x, y. Если x, y отрицательны, то каждое значение заменить его модулем; если отрицательное только одно из них,...

Если x, y отрицательны, то каждое значение заменить его модулем
Даны действительные числа x, y. Если x, y отрицательны, то каждое значение заменить его модулем; если отрицательное только одно из них, то...

Если первое число отрицательно, то его значение заменить его модулем; в противном случае второе число заменить
Доброго времени суток. В университете задали эти задания по информатике (PascalABC). Сама полный ноль в этом, друзья посоветовали написать...

1
26 / 26 / 42
Регистрация: 25.03.2014
Сообщений: 233
12.12.2014, 20:14
Лучший ответ Сообщение было отмечено savvkoss как решение

Решение

Pascal
1
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
var
  x, y: real;
  
begin
  readln(x, y);
  if (x < 0) and (y < 0) then
  begin
    x := abs(x);
    y := abs(y);
  end
  else
    if ((x > 0) and (y < 0)) or ((x < 0) and (y > 0)) then
    begin
      x := x + 0.5;
      y := y + 0.5;
    end
    else
      if (x > 0) and (y > 0) then
        if ((x < 0.5) or (x > 2)) and ((y < 0.5) or (y > 2)) then
        begin
          y := y / 10;
          x := x / 10;
        end;
  writeln(x:0:2);
  writeln(y:0:2);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
12.12.2014, 20:14
Помогаю со студенческими работами здесь

Если x, y отрицательны, то каждое значение заменить его модулем
помогите не могу написать код... напишите программу пожалуйста... Даны действительные числа x, y. Если x, y отрицательны, то каждое...

Если х и у отрицательны, то каждое значение заменить его модулем
\. Даны действительные числа х и у. Если х и у отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из...

Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем
Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем;если отрицательно только одно из них, то...

Даны 3 числа, если они отрицательны, то каждое значение заменить его модулем
даны 3 числа если они отрицательны, то каждое значение заменить его модулем. Если одно из них отрицательно, то оба значения уменьшить в 2...

Даны действительные числа x, y. Если х и у отрицательны, то каждое значение заменить его модулем
Товарищи программисты, помогите с выполнением 1. Даны действительные числа х, у. Если х и у отрицательны, то каждое значение заменить его...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru