1. Функция Y задана следующим образом Y=1, если X>0; Y=0, если X=0; Y=-1, если X<0;

2. Решите квадратное уравнение ax (в квадрате) + bx+c=0, где a, b, c вводим с клавиатуры. Посчитайте дискриминант и выведите три ответа: 1. Два корня (по формуле) 2. один корень (по формуле) 3. Решений нет

3. Даны целые числа a, b, c. Если a<=b<=c, то все числа заменить наименьшим из них, в противном случае сменить знак каждого числа.

1.

var x, y:integer;

begin

write ('x = ') ;

readln (x) ;

if x>0

then y:=1

else if x=0 then y:=0 else y:=-1;

writeln ('y = ', y) ;

end.

Пример:

x = - 5

y = - 1

2.

var a, b, c, x1, x2, d:real;

begin

writeln ('Введите a, b, c:') ;

readln (a, b, c) ;

d:=b*b-4*a*c;

if d>0

then begin

x1: = (-b+sqrt (d)) / (2*a) ;

x2: = (-b-sqrt (d)) / (2*a) ;

writeln ('x1 = ', x1,' x2 = ', x2) ;

end

else if d=0 then begin

x1:=-b / (2*a) ;

writeln ('x = ', x1) ;

end

else writeln ('Корней нет') ;

end.

Пример:

Введите a, b, c:

2 5 - 3

x1 = 0.5 x2 = - 3

3.

var a, b, c:real;

begin

writeln ('Введите a, b, c:') ;

readln (a, b, c) ;

if (a<=b) and (b<=c)

then begin

b:=a; c:=a;

end

else begin

a:=-a; b:=-b; c:=-c;

end;

writeln ('a = ', a,' b = ', b,' c = ', c) ;

end.

Пример 1:

Введите a, b, c:

2 5 9

a = 2 b = 2 c = 2

Пример 2:

Введите a, b, c:

2 9 5

a = - 2 b = - 9 c = - 5