hitman47 [ Pretorianin ]
Problem w Turbo Pascalu
Chce zrobić pętle która ma wyglądać tak:
repeat
readkey;
until (i tu ma być: "az readkey =1, 2 lub 3')
na początku chcialem zrobic tak:
var a:char
repetat
readkey;
a:=readkey;
until 0<a<3
ale niestety zmiennej char nie mozna wykozystac do dzialan matematycznych a zmiennej byte nie mozna wykozystac w funkcji readkey;-P
czy ktos moze mi powiedziec jak rozwiazac ten problem?
VinEze [ Hasta la victoria siempre! ]
until (a='1' or a='2' or a='3')
hitman47 [ Pretorianin ]
niestety nie dziala, "Operand types do not match operator" .Zmienna A ma byc char'em?
M'q [ Schattenjager ]
Spróbuj z normalnym readln(a), zamiast readkey.
a zdefiniować jako char, a dalej już tak jak pisze VinEze.
hitman47 [ Pretorianin ]
Zalezy mi na readkey'u bo chce by mozna bylo wcisnąc tylko jeden przycisk.
_Robo_ [ Generaďż˝ ]
To dziala
uses crt;
var
a : char;
begin
repeat
a:=readkey;
until ((a='1') or (a='2') or (a='3'));
end.
hitman47 [ Pretorianin ]
Dzieki wszystkim, dzieki linijce "until ((a='1') or (a='2') or (a='3')); " wszystko działa :-)
Szwaroc [ ]
oczysiscie ze dziala bo przy or i and itp musisz wszystkie warunki wklepac do nawiasow... zapamietaj to sobie