Собственно, надо сделать то, что написано на фотике, помогите, пожалуйста.
Все говорят, что легко, а я сделать не могу :(

1

Ответы и объяснения

2013-10-07T12:44:10+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Program Deil4ek1;
{Вычисление функции Y1 (без опреаторов and, or, not, xor)}
uses crt;
var x,y:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите X: ');
  write('X = ');readln(x);
  if abs(x)>2 then y:=abs(x)-2
    else
      if abs(x)>1 then y:=-abs(x)+2
        else
          y:=1;
  writeln('При X =',x:8:2,' значение функции Y=',y:8:2);
end.

Program Deil4ek2;
{Вычисление функции Y2 (без опреаторa else}
uses crt;
var x,y:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите X: ');
  write('X = ');readln(x);
  if abs(x)>2 then y:=abs(x)-2;
  if (abs(x)<=2) and (abs(x)>1) then y:=-abs(x)+2
  if abs(x)<=1 then y:=1;
  writeln('При X =',x:8:2,' значение функции Y=',y:8:2);
end.