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.