Информатика

[xXxScreamxXx]

СПЕШНО Е! ЗА УТРЕ !!!
Имам задача,на която условието е :

Да се напише задача на Паскал, която намира корените на едно квадратно уравнение (а,б,с).Да се намери Д(дискриминантата) и да се дадат евентуалните решения ако Д е по-малка,равна или по-голяма от 0 :)

Мерси предварителноо :)

[Chacho]

program asdf;

var

x1, x2, a, b, c, D: real;

begin

write("Please entera a value for a:");
readln(a);

write("Please enter a value for b:");
readln(b);

write("Please enter a value for c:");
readln(c);

D:=b*b - 4*a*c

if D<0 then
writeln("Nqma realni koreni")

else if a=0 then
begin
x1:=-c/b;
x2:=x1;
end

else
begin
x1:=(b-sqrt(D))/2*a;
x2:=(b+sqrt(D))/2*a;
end;

if x1=x2 then
writeln("Korenut na uravnenieto e x=", x1)
else
writeln("Korenite na uravnenieto sa x1=", x1, " i x2=", x2);
readln;
end.


Нямам компилатор и ме мързи да свалям, така че сигурно имам синтактични грешки, но семантиката ми се струва изрядна.

[xXxScreamxXx]

БЛАГОДАРЯ ТИ МНОГО !! :) :grin: :-)

[Chacho]

Пак заповядай! Надявам се да бачка.