Даны вещественные числа a, b и c, причем a отлично от 0. решить квадратное уравнение a•x2 + b•x + c = 0 или сообщить о том, что решений нет. написать программу на компиляторе !
INPUT "a="; a INPUT "b="; b INPUT "c="; c IF c = 0 THEN IF b = 0 THEN PRINT "x=0" ELSE x1 = 0: x2 = -b / a PRINT "x1="; x1, "x2="; x2 END IF ELSE IF b = 0 THEN x1 = -c / a: x2 = -x1 PRINT "x1="; x1, "x2="; x2 ELSE D = b ^ 2 - 4 * a * c IF D < 0 THEN PRINT "Нет действительных корней" ELSE IF D = 0 THEN x = -b / (2 * a) PRINT "x="; x ELSE D = SQR(D) x1 = (-b - D) / (2 * a): x2 = (-b + D) / (2 * a) PRINT "x1="; x1, "x2="; x2 END IF END IF END IF END IF END
var x,n,p:longint; i:integer; begin readln (x,n); p:=1; for i := 1 to N do p:=p*x; writeln(x,' в степени ',n,' равно ',p ); end.
2. Для цикла While var x,n,p:longint; i:integer; begin readln (x,n); p:=1; i:=1; while i<=n do begin p:=p*x; i:=i+1; end; writeln(x,' в степени ',n,' равно ',p ); end.
3. Для цикла Repeat
var x,n,p:longint; i:integer; begin readln (x,n); p:=1; i:=1; repeat p:=p*x; i:=i+1; until i>n; writeln(x,' в степени ',n,' равно ',p ); end.
INPUT "b="; b
INPUT "c="; c
IF c = 0 THEN
IF b = 0 THEN
PRINT "x=0"
ELSE
x1 = 0: x2 = -b / a
PRINT "x1="; x1, "x2="; x2
END IF
ELSE
IF b = 0 THEN
x1 = -c / a: x2 = -x1
PRINT "x1="; x1, "x2="; x2
ELSE
D = b ^ 2 - 4 * a * c
IF D < 0 THEN
PRINT "Нет действительных корней"
ELSE
IF D = 0 THEN
x = -b / (2 * a)
PRINT "x="; x
ELSE
D = SQR(D)
x1 = (-b - D) / (2 * a): x2 = (-b + D) / (2 * a)
PRINT "x1="; x1, "x2="; x2
END IF
END IF
END IF
END IF
END