Witam. W jaki sposób można zapisać w Turbo Pascalu znak "nie równa się", to =/= nie działa. Chciałem go wykorzystać w menu programu. Odpowiednia litera (właściwie znak typu char odczytywany przez funkcję ReadKey) uruchamia odpowiednią procedurę. Jednak wciśnięcie innych klawiszy miałoby skutkować tym:
. Zamieszczam tu fragment tego kodu z menu. Tam gdzie są symbole =/= chciałbym zastosować znak "nie równa się"
Kod:
WriteLn('Nieodpowiedni symbol!');
Kod:
figura:=readkey; {odczyt wciśniętego klawisza}
ClrScr;
WriteLn(' ');
Delay(300);
If figura='0' Then exit; {zero zamyka program}
If figura='1' Then procedura1; {uruchamia wcześniej zadeklarowaną procedurę}
If figura='2' Then procedura2; {uruchamia wcześniej zadeklarowaną procedurę}
If figura='3' Then procedura3; {uruchamia wcześniej zadeklarowaną procedurę}
If figura='4' Then procedura4; {uruchamia wcześniej zadeklarowaną procedurę}
If figura='5' Then procedura5; {uruchamia wcześniej zadeklarowaną procedurę}
If figura=/=0 or figura=/=1 or figura=/=2 or figura=/=3 or figura=/=4 or figura=/=5 then WriteLn('Nieodpowiedni symbol!');