Помогите написать программу для Pascal ABC для нахождения корней дискриминанта

1 Январь 0001



Помогите написать программу для Pascal ABC для нахождения корней дискриминанта

  • program z1; 
    var a,b,c,D:real; 
    begin 
    writeln(‘Vvedite a’); 
    readln(a); 
    writeln(‘Vvedite b’); 
    readln(b); 
    writeln(‘Vvedite c’); 
    readln(c); 
    D:=(b*b)-(4*a*c); 
    writeln(‘Discriminant’); 
    writeln(D:1:2); 
    D:=(-b+sqrt(D))/(2*a); 
    writeln(’1 koren’); 
    writeln(D:1:2); 
    D:=(-b-sqrt(D))/(2*a); 
    writeln(’2 koren’); 
    writeln(D:1:2); 
    readln 
    end.

  • program korni;

    var a,b,c,d,x1,x2:real;

    begin

    writeln(‘введите a’);

    readln(a);

    writeln(‘введите b’);



    readln(b);

    writeln(‘введите c’);

    readln(c);

    writeln(‘Вычисляем дискриминант’);

    d:=b*b-4*a*c;

    writeln(‘d=’,d );

    if d>0 then x1:=(-b+sqrt(d)/2*a);

    x2:=(-b-sqrt(d)/2*a);

    writeln(‘x1=’,x1);

    writeln(‘x2=’,x2);

    if d=o then  x1:=(-b+sqrt(d)/2*a);

    writeln(‘один корень – x1=’,x1);

    if d<0 then writeln(‘нет корней’);

    end.









Информатика

Комментарии закрыты.