Вопросы по Паскалю обьясните КОД

[Tik-Tik]

Прошу модераторов не закрывайте пожалуйсто мои темы я спецально создаю тему для себя чтоб вней походу обучения задавать вопросы чтоб не создавать 100 клон тем !
Вопрос обьясните код


VAR bukva : Char;
BEGIN
WriteLn ('Введи строчную букву русского алфавита');
ReadLn (bukva);
case bukva of
а','е','и','о','у','ы','э','ю','я' :WriteLn('гласная');
'б','з','в','г','д','ж' :WriteLn('согласная звонкая');
'п','с','ф','к','т','ш' :WriteLn('согласная глухая');
'й','л','м','н','р','х','ц','ч','щ' ,'ъ','ь' :WriteLn('другая');
else WriteLn('Таких букв не знаю');
end;
ReadLn
end.
Вобшем в книги в конце каждой главы даеться задача
ну по коду вы поняли что за задача мне была дана я ее решил но у меня так не че и не получилось заглянув в ответы обнаружел вот этот код с двумя End обьясните пожалуйста для чего выделеная красным Еnd если можно более простым языком !

[tsergey]

консрукция case обязательно закрываеться end-ом твой выделенный end как раз таки закрывает конструкцию case вот и все

[Tik-Tik]

Спасиб. А много еше таких как Case которых обезательно закрывать end ?

[KORN]

то что после begin нужно закрывать end;

[Tik-Tik]

LABEL m1,met5;
VAR  n,k : Integer;
BEGIN
		n:=10;
		k:=0;
		WriteLn('Считаем зайцев' );
 met5:	Write(n);
		n:=n+k;
		goto m1;
		n:=n+1;
 m1:  	Write(' зайцев  ');
		ReadLn;
		k:=k+1;
		goto met5;
		WriteLn('Посчитали зайцев')
END.

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

[tsergey]

еще record тоже закрывается end

[puporev]

В программе есть начальные значения n,k и две метки, которые ссылаются друг на друга. Поэтому программа снчала выведет начальное значение n=10, потом n=10+0; 10+0+1;10+0+1+2;10+0+1+2+3 и так до бесконечности, так как условие выхода из программы не прописано.
Действие n:=n+1;никогда выполняться не будет, так находится между метками и его вообще можно убрать.

[tsergey]

чтобы увидеть что делается в программе т.е. чтоб увидеть все по шагам запиши эту прогу в паскале затем используй "клавишу f7" возможно тебе не понятно потому что ты используешь метки. Кстати при программирование метки уже не используются или используются очень редко так что желательно метки не использовать.Метки использовались раньше когда не было циклов в основном чтоб зациклить программы и т.д.

[Tik-Tik]

ну да это для циклов ,а шас как проделывают цикл в програмах?
Книга просто 1999 года можит уже устарела ! но книга хорошая мне нравится но видемо уже не актуальна

[puporev]

Разработке алгоритмов можно учится и по более древним книгам, а вот синтаксис желательно по более свежим, хотя по Паскалю мало что издается.
А программу с циклом можно сделать например так:

uses crt;
VAR n,k : Integer;
    c:byte;
BEGIN
clrscr;
n:=10;
k:=0;
WriteLn('Считаем зайцев');
repeat
Write(n);
n:=n+k;
Write(' зайцев');
ReadLn;
k:=k+1;
WriteLn('Поcчитали зайцев?');
writeln('Yes!-1 No!-2');
readln(c);
until c=1;
END.