Dusi Napisano Listopad 1, 2014 Zgłoś Share Napisano Listopad 1, 2014 program delta; uses crt; var a ,b ,c :integer; d ,x1 ,x2 ,t :real; begin writeln('wprowadz a'); readln(a); writeln('wprowadz b'); readln(b); writeln('wprowadz c'); readln©; b*b-4*a*c := d; if d=0 then t := -b*2*a; writeln('t'); else if d >0 then x1 := (-1*b) - sqrt(d) / 2a; writeln(x1); x2 := (-1*b) + sqrt(d) / 2a; writeln(x2); else d < 0 writeln('rownanie nie ma rozwiazan'); readkey; end. Jestem dosć początkujący w te klocki zechciał by ktos powiedziec gdzie tu jest blad i go poprawic ? Z góry dziekuje Link do komentarza Udostępnij na innych stronach More sharing options...
babubabu Napisano Listopad 2, 2014 Zgłoś Share Napisano Listopad 2, 2014 błąd jest w formatowaniu i braku znaczników. Link do komentarza Udostępnij na innych stronach More sharing options...
Dusi Napisano Listopad 2, 2014 Autor Zgłoś Share Napisano Listopad 2, 2014 Tz można odrobinę jaśniej ? Link do komentarza Udostępnij na innych stronach More sharing options...
olesio Napisano Listopad 4, 2014 Zgłoś Share Napisano Listopad 4, 2014 Ręce opadają. Jaśniej się nie da. Ale skoro musimy tłumaczyć "oczywiste oczyistości". Sformatuj kod, jeśli nie umiesz sam to użyj http://olesio.eu/jcf i wstaw go najlepiej na zewnętrzny pastebin - z kolorowaniem Delphi/Pascal, bo tutaj i tak parser forum najpewniej rozwali formatowanie i dalej kod będzie niezbyt czytelny. Kiedy to zrobisz to dopiero ktoś spojrzy, a tak szkoda oczu. Pozdrawiam: olesio Link do komentarza Udostępnij na innych stronach More sharing options...
xevil21 Napisano Listopad 6, 2014 Zgłoś Share Napisano Listopad 6, 2014 Mnie zastanawia co to jest "2a", kompilator też może się zastanawiać. Link do komentarza Udostępnij na innych stronach More sharing options...
babubabu Napisano Listopad 7, 2014 Zgłoś Share Napisano Listopad 7, 2014 b*b-4*a*c := d O.o? Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.