Misja Tereski
Witam Wszystkich. Czy kto¶ mógłby mi zrobić zadanie?(nie umiem go napisać). Chodzi o zadanie z pracy kontrolnej, trzeba je napisać w Pascalu 7.0, sam nie umiem tego zrobić. To jest tre¶ć:
Napisz program, który obliczy pierwiastki równania kwadratowego a*x*x+b*x+c+0. Współczynniki równania wczytaj z klawiatury. Z góry dziękuję za pomoc. program rownanie; var a,b,c,delta,x1,x2,x0:real; begin writeln('podaj a'); readln(a); writeln('podaj b'); readln(b); writeln('podaj c'); readln©; delta:=b*b-4*a*c; writeln('delta= ',delta:0:2); if delta<0 then writeln('brak pierwiastkow') else begin if delta>0 then begin x1:=(-b-sqrt(delta))/(2*a); x2:=(-b+sqrt(delta))/(2*a); writeln('x1= ',x1:0:2); writeln('x2= ',x2:0:2); end else begin x0:=(-b)/(2*a); writeln('x0= ',x0:0:2); end; end; readln; end. nie wiem na ile dziala ale dziala |