martha_black

martha_black

User

Contact

Stats

Views904
Comments13
Pictures4
Collabs0

Galleries

Draws with

Narucianka

Oekaki @dA

Meet us at deviantart

Profile: martha_black

Promoted by martha_black » show more

Entries

Futaba

Futaba

O Martuch ;o!
Futaba - 10:49, 6 May 2009
Liska

Liska

{program rozwiazuje rownania kwadratowe. Autor:Sweetie :)}
program rownanie_kwadratowe;
uses crt;
var a,b,c:integer;
delta:integer;
x1,x2,x0:real;
begin
clrscr;
writeln('podaj wsp˘lczyniki:');
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if a<>0 then
begin
delta:=b*b-4*a*c;
writeln('delta wynosi:',delta);
if delta=0 then
begin
x0:=(-b)/2*a;
write('jest jedno rozwiazanie:',x0:0:2);
end;
if delta>0 then
begin
x1:=(-b-sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);
writeln('Sa dwa rozwiazania');
writeln('x1=',x1:0:2);
writeln('x2=',x2:0:2);
end;
if delta<0 then write ('brak rozwiazan');
end
else write ('Wsp˘lczynik "a" musi byc rozny od 0');
readln;
End.
Liska - 12:40, 16 Nov 2007