Turbo Pascal i "MENU"

[Mlody120 0]

Siema!

Potrzebuje zrobić coś rodzaju "menu" w TPX za pomocą instrukcji warunkowej CASE

Program który napisałem wygląda tak:

program bot;

uses crt;

var a:string;

 

BEGIN

Writeln('Menu');

writeln('1 - cos tam');

writeln('2 - cos tam');

writeln('Wcisnij cos tam');

read(a)

case a of

'1' : writeln('Wcisnales 1 bocie');

'2' : writeln('Wcisnales 2 bocie');

else writeln('Pocwicz OMG');

readkey;

end.

 

bład "Ordinal expression expected" jest w linijce

 

case a of

 

i podkresla pierwszą literkę słowa "of" i w tym momencie jestem w kropce ;o

 

Z góry dziękuje za wszelką pomoc i wszystkie posty wnoszące coś do tematu

Pozdrawiam x)

Rafał.

[Nerio 17]

wypada dać średnik po read(a)... -.- ...

[Mlody120 0]

wypada dać średnik po read(a)... -.- ...

 

Błąd przy przepisywaniu...

 

Mimo to błąd jest dalej tam gdzie napisałem.

 

Pozdrawiam

Rafał

[luk1999 17]

Przecież kompilator sam napisał, w czym jest problem: parametr case musi być typu całkowitego.

W tym wypadku zamiast stringa należy użyć char.

[Mlody120 0]

Po zmianie "string" na "char" wyskakuje błąd

";" expected

Podkreślona jest kropka w end na końcu... tyle że średnik jest w "readkey" linijkę wyżej więc nie wiem co teraz...

[Nerio 17]

typowy błąd cudownego pascala... nowy plik otworzyć i przepisać cały kod od nowa..

[kamil3392 0]

daj end; a po nim end.