Альтернативный клиент Ultima Online
https://stealth.od.ua/forum/
Code: Select all
Q:= 50;
case Q of
0..9 : addtosystemjournal('однозначное');
10..99 : addtosystemjournal('двузначное');
100..999 : addtosystemjournal('трехзначное');
else addtosystemjournal('Число "Q" не входит в указанный диапазон');
end;
можно ли как то в стелзе сделать такое?9:25:51 [8]: Compiler: [Error] (test at 8:6): colon (':') expected
9:25:51 [8]: Compiling failed
нет. integerCFA wrote:можно. на первый взгляд все правильно. переменная Q какого типа, не byte случайно?
Code: Select all
else addtosystemjournal('Число "Q" не входит в указанный диапазон');его, собственно говоря, и не должно там быть. может он ругается на строчку, которой тут вообще нет.Ko wrote:видимо вот 8 строчка, ругается что двоеточия нету..Code: Select all
else addtosystemjournal('Число "Q" не входит в указанный диапазон');
CFA wrote:тогда стоит указать какая из этих строк восьмая, тк ошибка в ней.
Code: Select all
program Testing;
var
Q : integer;
begin
Q:= 50;
case Q of
0..9 : addtosystemjournal('однозначное');
10..99 : addtosystemjournal('двузначное');
100..999 : addtosystemjournal('трехзначное');
else addtosystemjournal('Число "Q" не входит в указанный диапазон');
end;
end.
агаCFA wrote:только отдельные значения или списки через запятую получается использовать.
