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.
0> |