МОля за малко помощ за задача на Паскал

[wikinceto]

Имам задача по информатика и тя е следната : Да се състави блок схема и програма на Паскал за решаване на квадратно уравнение . Ако някой може да помогне ще му бъда много благодарна

[thefreak2]

program h;

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

begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
writeln;
d := b*b - 4*a*c;
if d < 0 then
begin
  writeln('Niama realni koreni.');
  exit;
end;
if a = 0 then
begin
  x = -c / b;
  writeln('x = ', x);
  exit;
end;
if d = 0 then
begin
  x1 := -b / 2*a;
  writeln('x1,2 = ', x1);
  exit;
end;
if d > 0 then
begin
  x1 := (-b + sqrt(d)) / 2*a;
  x2 := (-b - sqrt(d)) / 2*a;
  writeln('x1 = ', x1);
  writeln('x2 = ', x2);
  exit;
end;
readln;
end.

Блок схемата самичка

[Foreverbg]

На момичетата безплатно ли помагаш?

[thefreak2]

На момичетата безплатно ли помагаш?

Усещам, че ще следва да ми се качат на главата вероятно, за това исках просто да спра.

[wikinceto]

mersiiii mnogooo i wse pak nemojesh li da pomognesh s taq blokshema 4e ... se izmu4wam cqla sedmica ;x

[thefreak2]

Мога но не искам. Фани прочети, има примери ама колкото искаш - Клик

[straus]

Егати мързеливата работа, аз тия работи всичките сам си ги писах!
Спам, не спам, треаше да го кажа.

[JDeel]

Програмирането е много специфично нещо. Отдава се само на някой, който има интерес в него, а в противен случай е като нещо на китайски.

В университета нищо не разбирах от програмиране, макар иначе да ме бива в техниката и компютрите. Чертали са ми някакви блок схеми и чудновати работи, които никога не схванах... докато веднага след университета не започнах сам да се интересувам от програмирането, и така всъщност научих нещата.

Тъй че не се притеснявай ако и хал хабер си нямаш. Но ще трябва да скалъпиш нещо, затова хващай Паскала и започвай да пишеш разни неща. По време на писането ти идва онова "аха" в главата и вече нещата не изглеждат толкоз трудни