Case (Pascal)

[L_Killer]

Пытаюсь сделать вложенную менюшку из кейсов, а компилятор ругается при переходе на вторую ветку. может вложенный вообще делать нельзя и замутить все это дело как-нибудь через процедуры - просто засунуть туда вызов нескольких других процедур и просто вызывать через кейс и не париться с вложенностью - не было бы это решение тупым? Как решить эту проблему? просто раньше такой нужды не возникало.

[Stilet]

может вложенный вообще делать нельзя

Можно. показывай.

[L_Killer]

begin
	  list_init(Last,start);
     w:=0;
     while w<>11 do begin
     readln(w);
     case w of

          1 :begin
               readln(w2);
               case w2 of
               1: begin
                  	readln(e);
                  	readln(k);
                  	readln(br);
                  	readln(vr);
                  	Add_first(last,start,e,k,br,vr);
            	end;

          	2: begin
                  	readln(e);
                  	readln(k);
                  	readln(br);
                  	readln(vr);
                  	Add_last(start,last,e,k,br,vr);
            	end;
            end;    

          2: begin              {и вот тут он на двойку ругается, пишет, что 
                                   идентификатор не объявлен или не видем в этом блоке}
               readln(w3);
               case w3 of
          			1: del_first(last,start);
          			2: del_last(last,start);
          	end;
     end;
     end;
     end;
end.

[Stilet]

            	end;
            end;  
     end;

Забыл ты еще один )))

[L_Killer]

И правда! Спасибо, а то что-то я совсем затупил))

[iBuTTHead]

Совет (хотите не воспринимайте):

Чтобы исключить такие ошибки. стройте сначала скелет оператора а зачем начинайте писать код в тела.

Пример:

if then
    begin
    
    end
else
    begin
    
    end;

И вы будете уверены что программа будет функционировать так как вы планировали.