I дастурлаш тиллари, уларнинг классификацияси pascal дастурлаш тили

Мустахкамлаш учун саволлар
1. case фармойишнинг бичими қандай ёзилади?
2. Фармойишда else ёзилмаса дастурнинг бажарилиш кетмакетлиги қандай амалга оширилади.

Таянч тушунчалар: case, of, ифода, else.

Адабиётлар: [1],[2],[3],[5],[6],[7],[8],[9],[10].
8мавзу
Repeat … until цикл фармойиши
Режа:
1. Repeat … until фармойишлари
2. Repeat … until фармойишига мисол.
Repeat … until фармойиши такрорланиш фармойиши бўлиб, улар фармойишлар жуфтлиги дейилади. Бу фармойиш орасига бирор шартга кўра такрорланиши зарур бўлган фармойишлар кетмакетлиги ёзилади.
Бичими:
Repeat
фармойиш 1
………
фармойиш n
until a  b
Бунда repeat  такрорлаш фармойиш номи; фармойиш 1, …, фармойиш n  такрорий бажарилиши зарур бўлган фармойишлар кетмакетлиги; until  гача фармойиши номи; ab  муносабат; a ва b катталиклар;   муносабат белгиси.
Бу ҳолда фармойишлар кетма-кетлиги бажарилади. Сўнгра муносабат қийматининг чинлиги (true, false) текширилади. Агар муносабат true – чин бўлса, цикл такрорланади, false – ёлғон бўлса, until дан кейинги фармойишлар бажарилади.
1-масала. Пароль қўйиш дастури тузилсин.
program par;
var parol, qiymat: string;
begin
parol:='evrika'
repeat
writeln('Паролни киритинг'); readln(qiymat);
if parol<>qiymat then writeln('Сиз фойдаланувчи эмассиз')
else writeln('Парол тўғри');
until parol<>qiymat
end.
2-масала. Киритилаётган белгининг мазмунини аниқлаш дастурини тузинг.
program mazmun;
const lat='Лотин ҳарфи'; raq='рақам';
kiril='Кирилл ҳарфи'; tin='Тиниш белгиси';
graf='Псевдографик белги'; boshqa='Бошқа белги';
var b, x:char;
begin
repeat write('Белгини киритинг - '); readln(b);
case ord(b) of
64..90,97..122: writeln(lat);
48..57: writeln(raq);
128..175, 224..239: writeln(kiril);
33, 34, 38, 44, 46, 58, 59, 63: writeln(tin);
176..223: writeln(graf) else writeln (boshqa);
end;
write('Такрорлайсизми (y/n) - ? '); readln(x);
until (x<>'y');
end.