2 задачи по паскалю надо!!

[Сергей004]

Решите плиз 2 задачи срочно очень сильно прошу надо!
1) Даны a , b , c.Вычислить дискриминант и определить кол-во корней.
2)Дан x , a . Вычислить незнаю как написать вот все на фотографии прошу помогите сделать 5555.jpg

[Mad_Cat]

var a,b,c,d:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
if d>0 then writeln(2) else 
if d=0 then writeln(1) else
writeln(0);
readln;
end.

var x,a:real;
begin
read(x,a);
if x<=1 then writeln(sin(x+a)/cos(x+a))
else if (x+a)>=0 then writeln(sqrt(x+a));
readln;
end.

[Сергей004]

а можно пожайлуста полностью

[Poma][a]

Решите плиз 2 задачи срочно очень сильно прошу надо!

А пишите плиз членораздельно очень сильно прошу надо!

Что у Вас с наработками? Если нет, то иди во фриланс, там Вам за деньгу всё с радостью решат! Тут же, форумчане помогают людям, желающим понять эту великую науку - программирование

[Сергей004]

Мне просто нужна помощь

[Abstraction]

Дискриминант, говорите... Вот Вам C, перевод на Pascal не должен стать проблемой.

double Discriminant(double a, double b, double c) { 
    double d=b-a; 
    double e=b-c;
    double f=c+c;
    double g=a+e;
    double h=d-g;
    double i=g+c;
    double j=b*d;
    double k=d-a;
    double l=i+a;
    double m=0.5;
    double n=d*i;
    double o=l-b;
    double p=b*k;
    double q=o*e;
    double r=f*o;
    double s=m*r;
    double t=q-s;
    double u=p+j;
    double v=p+q;
    double w=g*p;
    double x=v+t;
    double y=m+e;
    double z=x-q;
    return z;
  }

[Сергей004]

что то моему преподаватели верхний код не понравился

[Rififi]

что то моему преподаватели верхний код не понравился

Преподу своему скажи: "а он не червонец, чтобы всем нравится. если код выдает правильный результат, ставьте зачет, или говорите конкретно, что вас не устраивает.
А если вам непонятно, что мне написали на programmersforum, так можно и другого препода найти... ^_^"

[Сергей004]

Я с вами полностью согласен , но в этом коде как то не так я сам вводил не то что нужно , лучше бы полностью а тут как то сокращенно))^_^

[Сергей004]

Вот в первом решении дискреминант даже не находим