PDA

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



wikinceto
06-15-2011, 12:31
Имам задача по информатика и тя е следната : Да се състави блок схема и програма на Паскал за решаване на квадратно уравнение . Ако някой може да помогне ще му бъда много благодарна :)

thefreak2
06-15-2011, 13:19
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
06-15-2011, 13:42
На момичетата безплатно ли помагаш? 8-)

thefreak2
06-15-2011, 13:45
На момичетата безплатно ли помагаш? 8-)
Усещам, че ще следва да ми се качат на главата вероятно, за това исках просто да спра.

wikinceto
06-15-2011, 13:51
mersiiii mnogooo :) i wse pak nemojesh li da pomognesh s taq blokshema 4e ... se izmu4wam cqla sedmica ;x

thefreak2
06-15-2011, 14:30
Мога но не искам. Фани прочети, има примери ама колкото искаш - Клик (http://1001zadachi.com/%D0%B7%D0%B0%D0%B4%D0%B0%D1%87%D0%B8-%D1%82%D0%B5%D1%81%D1%82%D0%BE%D0%B2%D0%B5-%D0%BE%D0%BB%D0%B8%D0%BC%D0%BF%D0%B8%D0%B0%D0%B4%D 0%B8-%D0%B8%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%82%D 0%B8%D0%BA%D0%B0/%D0%B1%D0%BB%D0%BE%D0%BA_%D1%81%D1%85%D0%B5%D0%BC% D0%B0_%D0%B0%D0%BB%D0%B3%D0%BE%D1%80%D0%B8%D1%82%D 1%8A%D0%BC.html)

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

JDeel
06-15-2011, 18:18
Програмирането е много специфично нещо. Отдава се само на някой, който има интерес в него, а в противен случай е като нещо на китайски.

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

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