1. Зчитуємо величини а, b

1. Зчитуємо величини а, b .

• 1. Зчитуємо величини а, b .

• 2. Якщо а = 0 = b, то виводимо повідомлення:

• „R – множина розв’язків”.

• 3. Якщо a = 0 ≠ b, то виводимо повідомлення: „Множина розв’язків порожня”.

• 4. Якщо а ≠ 0, то виводимо повідомлення:

• „Розв’язок єдиний: x = ”, – b/a .

1. Виведення величин a, b .

• 1. Виведення величин a, b .

• 2. Якщо a = b = 0, то виводимо повідомлення: „Розв’язком є довільне число, відмінне від нуля”.

• 3. Якщо a = 0 ≠ b або a ≠ 0 = b, то виводимо повідомлення: „Розв’язків немає”.

• 4. Якщо a ≠ 0 ≠ b, то виводимо повідомлення: „Розв’язок єдиний: x = ”, – a/b .

uses crt; var a,b,c,x: real; d: byte; begin

• uses crt; var a,b,c,x: real; d: byte; begin

• writeln('Розв''яжемо рiвняння: 2 ');

• writeln ('1) ax+b=0; 2) a/x+b=0; 3) ax +bx+c=0.');

• write ('Задайте величини a, b, c '); readln(a,b,c);

• repeat write('Виберiть рiвняння 1,2 або 3 ');readln(d)

• until (d=1) or (d=2) or (d=3); case d of

• 1: begin if (a=0) and (b=0) then

• writeln('Розв''язком є будь-яке число.')

• else if (a=0)and(b<>0) then writeln('Розв''язкiв нема.')

• else writeln('Один розв''язок ',-b/a) end;

• 2: begin if (a=0) and (b=0) then writeln

• ('Розв''язком є будь-яке число, вiдмiнне вiд 0.')

• else if (a=0) and (b<>0) or (a<>0) and (b=0)

• then writeln ('Розв''язкiв нема.')

• else writeln ('Єдиний розв''язок ',-a/b) end;

3: begin x:=b*b-4*a*c;

• 3: begin x:=b*b-4*a*c;

• if (a=0) and (b=0) and (c=0) then writeln

• ('Розв''язком є довільне число.')

• else if (a=0) and (b=0) and (c<>0) then writeln

• ('Розв''язкiв нема.')

• else if (a=0) and (b<>0) then writeln

• ('Єдиний розв''язок ',-c/b)

• else if x<0 then writeln ('Розв''язкiв нема.')

• else if x=0 then writeln ('Єдиний розв''язок ',-b/(2*a))

• else writeln('Два розв''язки ',(-b-sqrt(x))/(2*a),

• ' , ',(-b+sqrt(x))/(2*a))end end;

• readln end.