Написать програму решения уравнения ах^3 + вх = 0 для произвольных а, в

Ответы

Ответ дал: mqu

vara, b, x2, x3 : real; begin writeln('введите коэффициент a'); readln (a); writeln('введите коэффициен b'); readln (b); if b = 0 then begin if a = 0 then writeln ('x - любое число') else writeln('корни ур-я равны: 0') end else if (a = 0) or (- b / a < = 0) then writeln ('корни ур-я равны: 0') else begin x2 : = sqrt(-b / a); x3 : = -sqrt(-b / a); writeln('корни ур-я равны 0, ', x2,' ',x3); end; readln; end.

Спасибо

Ответ дал: ангел769

(pascal.)

program ; var a,b,x1,x2,x3: real; beginwriteln('введите коэффициент a'); readln(a); writeln('введите коэффициен b'); readln(b);

x1: =0;

if (b> 0) and (a> 0) then writeln('корни ур-я равны ',x1) elsex2: =sqrt(-b/a); x3: =-sqrt(-b/a); writeln('корни ур-я равны ',x1,x2,x3);

end.

Спасибо

Ответ дал: Гость

Наливаешь в 3-х литровую, переливаешь в 5, опять в 3-литровую, и опять в 5-ти, в трех литровой остается 1 литр. из пятилитровой выливаешь в 8-литровую назад, из 3- литровой переливаешь оставшийся литр в 5-литровую и еще раз полную трех литровую, у тебя в 8-литровой останется 4 литра и в 5-литровой тоже

Ответ дал: Гость

uses crt; var

a,b,c,min: integer; begin writeln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел: ',min); end.