Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Case

14K
10 декабря 2006 года
DarkKnight
41 / / 18.11.2006
Вот.программа,которая загадывает число,пользователь должен его отгадать.Все вроде правильно.Проблема в case.
код:
Цитата:
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
a,b,c,d,e,f,g,n,s:integer;
label nachalo;
begin
//Êîìïüþòåð çàãàäûâàåò ÷èñëî.
randomize;
a:=random(9);
b:=random(9);
c:=random(9);
//Îáíóëÿåì ïåðåìåííûå
d:=0;
e:=0;
f:=0;
g:=0;
n:=0;
s:=0;
//Âçàèìîäåéñòâèå ñ ïîëüçîâàòåëåì
//(ïîëüçîâàòåëü ââîäèò ÷èñëî)
nachalo:
writeln('vvedite trehznachnoe chislo:');
readln(d);
//Åñëè ÷èñëî â ðàìêàõ 100-999,òî íà÷èíàåì ðàáîòó:
IF (d<=999)and(d>=100) THEN
BEGIN
//&#208;&#224;&#231;&#225;&#232;&#226;&#224;&#229;&#236; &#247;&#232;&#241;&#235;&#238; &#239;&#238;&#235;&#252;&#231;&#238;&#226;&#224;&#242;&#229;&#235;&#255; &#237;&#224; 3 &#241;&#238;&#241;&#242;&#224;&#226;&#235;&#255;&#254;&#249;&#232;&#229;
e:=d div 100;
f:=(d div 10)-(e*10);
g:=d mod 10;

//&#207;&#240;&#238;&#226;&#229;&#240;&#255;&#229;&#236;,&#240;&#224;&#226;&#237;&#251; &#235;&#232; &#238;&#237;&#232; &#241;&#238;&#241;&#242;&#224;&#226;&#235;&#255;&#254;&#249;&#232;&#236; &#247;&#232;&#241;&#235;&#224; &#234;&#238;&#236;&#239;&#252;&#254;&#242;&#229;&#240;&#224;
case a of
e:begin
s:=s+1;
n:=n+1;
end;
f:s:=s+1;
g:s:=s+1;
end;

case b of
f:begin
s:=s+1;
n:=n+1;
end;
e:s:=s+1;
g:s:=s+1;
end;

case c of
g:begin
s:=s+1;
n:=n+1;
end;
f:s:=s+1;
e:s:=s+1;
end;

//&#197;&#241;&#235;&#232; &#247;&#232;&#241;&#235;&#238; &#234;&#238;&#236;&#239;&#224;=&#247;&#232;&#241;&#235;&#243; &#239;&#238;&#235;&#252;&#231;&#238;&#226;&#224;&#242;&#229;&#235;&#255;,&#232; &#238;&#237;&#232;
//&#241;&#242;&#238;&#255;&#242; &#237;&#224; &#241;&#226;&#238;&#232;&#245; &#236;&#229;&#241;&#242;&#224;&#245;,&#242;&#238; &#239;&#238;&#231;&#228;&#240;&#224;&#226;&#235;&#255;&#229;&#236; &#229;&#227;&#238;.
if (s=n)and(n=3) then
begin
writeln('******** VI UGADALI ! ********');
writeln('Nazmite <Enter> dla zaveshnia.');
readln:
end
else
//&#197;&#241;&#235;&#232; &#247;&#232;&#241;&#235;&#238; &#229;&#249;&#229; &#237;&#229; &#243;&#227;&#224;&#228;&#224;&#237;&#238;,&#226;&#251;&#226;&#238;&#228;&#232;&#236; &#240;&#229;&#231;&#243;&#235;&#252;&#242;&#224;&#242;
//&#232; &#239;&#240;&#238;&#241;&#232;&#236; &#226;&#226;&#229;&#241;&#242;&#232; &#237;&#238;&#226;&#238;&#229; &#247;&#232;&#241;&#235;&#238;.
begin
writeln('Vash variant -> 'e,f,g,' Ugadano:',s,'. na svoih mestah:',n);
goto nachalo;
end;
END
ELSE
//&#197;&#241;&#235;&#232; &#247;&#232;&#241;&#235;&#238; &#236;&#229;&#237;&#252;&#248;&#229; 100 &#232;&#235;&#232; &#225;&#238;&#235;&#252;&#248;&#229; 999,&#242;&#238;
//&#226;&#251;&#226;&#238;&#228;&#232;&#236; &#241;&#238;&#238;&#225;&#249;&#229;&#237;&#232;&#229; &#238;&#225; &#238;&#248;&#232;&#225;&#234;&#229;.
begin
writeln('Dotustimie znachenia:100-999');
readln;
end;
end.

387
10 декабря 2006 года
Ihbif19
421 / / 28.10.2004
Цитата: DarkKnight
Вот.программа,которая загадывает число,пользователь должен его отгадать.Все вроде правильно.Проблема в case.
код:


Если честно, то лично мне ничего не понятно, и что за проблема в case???

 
Код:
здесь код напиши
303
11 декабря 2006 года
makbeth
1.0K / / 25.11.2004
Цитата:

Код:
var
 a,b,c,d,e,f,g,n,s:integer;
//...
case a of
    e: begin
        s:=s+1;
        n:=n+1;
    end;
    f: s:=s+1;
    g: s:=s+1;
end;
//...


Так бы сразу и сказал, что компилятор ругается...
Case таким способом не работет. e, f, g - должны быть не переменными, а константами.

14K
11 декабря 2006 года
DarkKnight
41 / / 18.11.2006
жопа,блин.
3.2K
12 декабря 2006 года
Sania
186 / / 28.10.2006
Цитата: DarkKnight
жопа,блин.


Мало того, в case не запихиваются неперечисляемые типы (string например) :(

14K
14 декабря 2006 года
DarkKnight
41 / / 18.11.2006
да я уже с IF сделал,если кому-то надо,могу выложить исходник...
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог