Решение задачи Begin 39

#include <stdio.h>
#include <math.h>

int main(void)
{
    float A,B,C;
    printf("A:");
    scanf ("%f", &A);

    printf("B:");
    scanf ("%f", &B);

    printf("C:");
    scanf ("%f", &C);

    float D;
    D=pow(B,2)-4*A*C;

    float x1,x2;
    x1=((-1)*B+sqrt(D))/(2*A);
    x2=((-1)*B-sqrt(D))/(2*A);

    if (x1<x2)  printf("x1:%f\nx2:%f\n",x1,x2);
    else    printf("x2:%f\nx1:%f\n",x2,x1);

    return 0;
}

import random
import math

r = list(range(-10,0)) + list(range(1,11))
A = random.choice(r)
C = random.randrange(-10,11)
B1 = math.ceil(math.sqrt(abs(4*A*C)))
#B = (random.randrange(0,2)-1)*(random.randrange(B1,B1+10))
B = random.randrange(B1,B1+10)
coef = random.choice([-1,1])
A = coef * A
B = coef * B
C = coef * C

print("Ax^2 + Bx + C = 0")
print("A = ",A)
print("B = ",B)
print("C = ",C)

D = B*B - 4*A*C
x1 = (-B - math.sqrt(D))/(2*A)
x2 = (-B + math.sqrt(D))/(2*A)
s = sorted([x1,x2])

print("D = ",D)
print(s)
print("Check x1:",A*x1*x1+B*x1+C)
print("Check x2:",A*x2*x2+B*x2+C)
									

program Begin39;
var
  A,B,C,D,x1,x2: Real;
begin
  Write('Введите коэфициент A: ');
  Readln(A);
  Write('Введите коэфициент B: ');
  Readln(B);
  Write('Введите коэфициент C: ');
  Readln(C);
  D:=Sqr(b)-4*A*C;
  x1:=((-1)*B+sqrt(D))/(2*A);
  x2:=((-1)*B-sqrt(D))/(2*A);
  if x2<x1 then
   begin
    Writeln('Меньший корень равен : ',X2);
    Writeln('Больший корень равен : ',X1);
   end
  else
   begin
    Writeln('Меньший корень равен : ',X1);
    Writeln('Больший корень равен : ',X2);
   end;
end.