NiGhtWolFs
1) var x,y:real; begin write('x = '); readln(x); if ((x >= 0) AND (x <= 2)) then y:=1.5*x; if ((x > 2) AND (x <= 6)) then y:=3; if ((x > 6) AND (x <= 8)) then y:=-1.5*x+12; if ((x < 0) OR (x > 8)) then writeln ('Функция не существует в данной точке!!') else writeln('При x = ', x, ' функция принимает значение = ', y); end.
2) var x,y,z,min:real; begin write('Введите 1ое значение: '); readln(x); write('Введите 2ое значение: '); readln(y); write('Введите 3е значение: '); readln(z); min:=x; if (min > y) then min:=y; if (min > z) then min:=z; if (min = x) then x:=1; if (min = y) then y:=1; if (min = z) then z:=1; WRITELN; writeln('x = ',x ,', y = ',y ,', z = ',z); end.
Answers & Comments
var x,y:real;
begin
write('x = ');
readln(x);
if ((x >= 0) AND (x <= 2)) then y:=1.5*x;
if ((x > 2) AND (x <= 6)) then y:=3;
if ((x > 6) AND (x <= 8)) then y:=-1.5*x+12;
if ((x < 0) OR (x > 8)) then writeln ('Функция не существует в данной точке!!') else
writeln('При x = ', x, ' функция принимает значение = ', y);
end.
2) var x,y,z,min:real;
begin
write('Введите 1ое значение: ');
readln(x);
write('Введите 2ое значение: ');
readln(y);
write('Введите 3е значение: ');
readln(z);
min:=x;
if (min > y) then min:=y;
if (min > z) then min:=z;
if (min = x) then x:=1;
if (min = y) then y:=1;
if (min = z) then z:=1;
WRITELN;
writeln('x = ',x ,', y = ',y ,', z = ',z);
end.