Написать программу решения уравнения ax3+bx=0 для произвольных a, b. помогите))плииииз!!

Знания

Информатика

1 ответ:

VolkVadim4 года назад

0 0

Var
a,b,x1,x2:real;
begin
Read(a);readln(b);
if (a*b>0) and( b<>0) then writeln(-2*sqrt(b),' ',2*sqrt(b),' ','0'); else writeln('0');
end.

Читайте также

1)дана сторона квадрата а. найдите его площадь S=a22) Дано целое число. если оно является положительным, то прибавить к нему 1;

Hаталья

Var a:real;
Begin
Write('a = ');ReadLn(a);
WriteLn('S = ',a*a);
End.

Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if A > 0 then A:=A+1;
WriteLn(A)
End.

0 0

4 года назад

Пользователь работал с диском F: В корневом каталоге этого диска он создал каталог Архив, а в нем подкаталог Класс8, в который п

Salavat Ore

F:/Архив/Класс8/Реферат.txt.

0 0

4 года назад

Прочитать ещё 2 ответа

Определите значение переменной c после выполнения следующего фрагмента программы: a := 125; b := a div 10; b := b / 4 + 2; b :=

RadVi [1]

<span>b := a div 10 = 12
</span><span>b := b / 4 + 2 = 5
</span>b := b * 25 +2 = 127
a:= a + b = 252
a = 252 ; b = 127

0 0

4 года назад

От чего может зависить способ кодирования информации

Вадиной

Ну вроде как от компьютера. Информация кодируется двоичным кодом, из нулей и едениц.

0 0

4 года назад

Помагите, пожайлуйста. Составьте блок схему вычисления первых десяти членов последовательности, заданной формулами n-го члена: x

solics55

var x: array[1..10] of real;

n: integer;

begin

for n:=1 to 10 do begin

x[n]:=power(3,n)-5;

writeln(x[n]);

end;

end.

Норм.

0 0

4 года назад