Составить программу решения квадратичного уравнения заданными коэфицентами a, b,c. В Паскаль

Составить программу решения квадратичного уравнения заданными коэфицентами a,b,c. В Паскаль.

  • # -*- coding: cp1251 -*-
    import math
    a = float(raw_input("Введите a:"))
    b = float(raw_input("Введите b:"))
    c = float(raw_input("Введите c:"))
    d = b*b - 4*a*c
    if d < 0:
    print 'нет корней'
    elif d == 0:
    x = -b/(2*a)
    print 'x=', x
    elif d > 0:
    x1 = (-b + math.sqrt(d))/(2*a)
    x2 = (-b - math.sqrt(d))/(2*a)
    print 'x1=', x1, ' ', 'x2=', x2

     

    уруру. могу только на питоне. 

    паскаль долго вспоминать.

  • Program blah;
    Uses Crt;
    Var a,b,c,x1,x2,d,x: real;
    begin
    Write ('Введите коэффицент a='); Readln (a);
    Write ('Введите коэффицент b='); Readln (b);
    Write ('Введите коэффицент c='); Readln (c);
    If a=0 then
    begin
    x:=(0-c)/b;
    Writeln ('Ответ:x=',x);
    end
    else
    begin
    d:=sqr(b)-4*a*c;
    if d<0
    then Writeln ('Корней нет.')
    else
    begin
    x1:=(-b+sqrt(D))/2*a;
    x2:=(-b-sqrt(D))/2*a;
    if x1=x2
    then Writeln ('Ответ:x=',x1) else Writeln ('Ответ:x=',x1,';',x2);
    end;
    end;
    end.

Ссылка на основную публикацию
2018