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

Формулировка задачи:

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

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

textual
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


СОХРАНИТЬ ССЫЛКУ