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

  1. помогите не могу написать код... напишите программу пожалуйста... Даны действительные числа x, y. Если x, y отрицательны, то каждое значение заменить его модулем; если отрицательное только одно из них, то оба значения увеличить на 0.5; если оба значения не отрицательны и ни одно из них не принадлежит отрезку [0.5, 2.0], то оба значения уменьшить в 10 раз; в остальных случаях x, y оставить без изменения.


textual

Код к задаче: «Если x, y отрицательны, то каждое значение заменить его модулем - Turbo Pascal»

var
  x,y: real;
begin
  write('Введите х: ');
  readln(x);
  write('Введите y: ');
  readln(y);
  if (x<0)and(y<0) then
  begin
    x:=abs(x);
    y:=abs(y);
  end
    else if (x<0)or(y<0) then
    begin
      x:=x+0.5;
      y:=y+0.5;
    end
      else if ((x>=0)and(y>=0)and(x<0.5)
        and(y<0.5))or((x>2)and(y>2)) then
        begin
          x:=x/10;
          y:=y/10;
        end;
  writeln('x = ',x);
  writeln('y = ',y);
  readln;       
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.167 из 5



Похожие ответы
  1. вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).

  1. (Фотография текста заменена текстом) Материальная точка движется вдоль плоскости OXY согласно закону Построить траекторию точки.№x(t)y(t)1sin(2t)cos(3t)2sin(3t)cos(4t)3sin(4t)cos(5t)4sin(5t)cos(6t)5sin(6t)cos(7t)6sin(7t)cos(8t)7sin(8t)cos(9t)8sin(9t)cos(10t)9sin(10t)cos(11t)10sin(11t)cos(12t)

  1. Задание собственно такое: Составить программу формирования из вектора A={ai}, i=1/3n вектора B={bi}, i=1/n, очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора. вот сама программа:

  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Каждая из трех доярок надоила за год (365 дней) R1, R2,R3 литров молока. Определить, у какой доярки наибольший среднесуточный надой молока и вывести на экран ее номер.

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Здравствуйте) Помогите пожалуйста определиться, что конкретно нужно сделать в задаче: Записать указанное действие в виде одного условного оператора: arcsin(1+ln x)=a, если такой существует. Я само условие не могу понять Как должна работать программа (у меня пока два варианта):Вводятся (с клавиатуры) a и x, в условном операторе проверяется равенство и выводится соответственно true или false Вводится x (с клавиатуры) и если x>0 вычисляется a, иначе сообщение, что a невозможно вычислить (из-за отрицательного значения в логарифме) Какой вариант решения выбрать? Или меня совсем не в ту степь понесло?

  1. Как мы знаем, Владимир периодически посещает плавательный бассейн. При взгляде сверху бассейн представляет собой прямоугольник размера W × H; его юго-западный угол имеет координаты (0; 0), северо-восточный — (W; H). Владимир находился в точке с координатами (X; Y), когда прозвенел звонок, оповещающий об окончании сеанса. Теперь Владимиру нужно плыть к ближайшему бортику, чтобы выйти из бассейна. Помогите ему определить, в какую сторону следует плыть. Входные данные Первая строка содержит целые числа W и H (1 ≤ W, H ≤ 100) — соответственно длину и ширину бассейна. Первая строка содержит целые числа X и Y (0 ≤ X ≤ W, 0 ≤ Y ≤ H) — координаты точки, в которой находится Владимир. Выходные данные Выведите один из символов 'N' (север), 'E' (восток), 'S' (юг), 'W' (запад), соответствующий направлению до ближайшего бортика. Если подходящих ответов несколько, выведите любой из них.