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 |
W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.
Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.