Skocz do zawartości

Poprawa kodu programu


Dusi

Polecane posty

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

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

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...