Turbo pascal- wyrzuca po podaniu litery jako zmiennej


(Witex Polska Sp Z O O) #1

Jak zrobić aby po wpisaniu litery lub jakiegoś innego znaku oprócz liczby program nie wyrzucał np.

mam program który liczy pierwiastki równania kwadratowego i co dopisać żeby jak wpisuje literę pod "a" żeby program mnie informował, że muszę wprowadzić liczbę a nie literę (teraz jak wprowadzę literę to mi program wyrzuca)?

Program kwadratowe;

Var

a,d,b,c,x: real;

Begin

Writeln ('podaj a');

Read (a);

Writeln ('podaj b');

Read (b);

Writeln ('podaj c');

Read ©;

If a= 0 then

Begin

Writeln ('funkcja liniowa x=', -c/b);

End

Else

Begind:=b*b*-4*a*c;

If d<0 then

Writeln (' nie ma miejsc zerowych');

If d=0 then

Writeln ('jest jedno miejsce zerowe x=',-b/(2*a));

If d>0 then

Writeln ('sa dwa miejsca zerowe','x1', (-b-sqrt(d))/(2*a)','x2', (-b+sqrt(d))/(2*a));

end;

end.


([alex]) #2

Wczytaj do string'a, a potem parsuj.


(Witex Polska Sp Z O O) #3

tzn? Mógłbyś mi to dokleić do mojego programu?


([alex]) #4
Program calc;