Case <выражение> of

<значение выражения>:<оператор1>;

< значение выражения >:< оператор2>;

< значение выражения >:< оператор n>

else < оператор n+1>;

end;

На месте <выражения> может стоять любое выражение порядкого типа.

На месте <значение выражения> может стоять любая постоянная этого типа.

На месте операторов может стоять любой оператор Turbo Pascal.

Зам! Оператор Case всегда заканчивается служебным словом End.

Оператор Case выполняется следующим образом:

1. Вычисляется выражение, стоящее после слова Case.

2. Просматривается список значений выражения, если вычисленное значение найдено в списке, то выполняется оператор, помеченный этим значением.

3. Если в списке нет вычисленного значения, то выполняется оператор, стоящий после слова Else, если же нет служебного слова Else, то действие передается следующему за Case оператору.

На блоксхеме оператор изображается следующим образом:

 
 


Задачи:

1. По введенному числу написать день недели, соответствующий ему.

Program _;

Uses CRT;

Var x:1..7;

Begin

ClrScr;

Writeln(‘введите номер дня недели);

Readln(x);

Case x of

1: writeln(‘понедельник’);

2: writeln(‘вторник’);

3: writeln(‘среда’);

4: writeln(‘четверг’);

5: writeln(‘пятница’);

6: writeln(‘суббота’);

7: writeln(‘воскресенье’);

end;

Readkey;

End.

 

2. Написать программу, которая по введенному числу К от 1 до 99 пишет фразу: «Мне К лет». Причем, при необходимости слово лет заменять на года, год. Например, «мне 1 год», «мне 2 года», «мне 5 лет».

 

Program _;

Uses CRT;

Var k:byte;

Begin

ClrScr;

Writeln(‘введите свой возраст);

Readln(k);

Write(‘мне ’, k);

If (k>=10) and (k<=15) then writeln(‘ лет’)

Else

Case k mod 10 of

1: writeln(‘год);

2, 3, 4: writeln(‘года);

else 3: writeln(‘лет’);

end;

Readkey;

End.

 

 


Лекция 17.








Дата добавления: 2016-05-25; просмотров: 637; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2022 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.006 сек.