Контрольная работа по теме "Оператор выбора Case".

ВАРИАНТ №1.

№1. Написать программу преобразования чисел от 0 до 9 в слова используя оператор выбора. (Например, программа выводит сообщение «Введите число от 0 до 9», вводим число 7 и программа выводит на экран «Введено число семь».)

№2. Разобрать программу случайного предсказания, которая сначала случайно выбирает день недели, а затем один из десяти вариантов ближайшего будущего. (Например, программа выводит сообщение «Предсказание будущего. В понедельник вас ожидает удача»).

!!! Для дней недели и вариантов будущего отдельный операторы выбора.

Var n, k: integer;

day, predskazanie: string;

begin

writeln('ПРЕДСКАЗАНИЕ БУДУЩЕГО');

Randomize; //подключение функции случайного выбора

k:=Random(7)+1; // в переменную k записывается случайное число от 1 до 7

case k of

1 : day:='В понедельник';

2 : day:='Во вторник';

3 : day:='В среду';

4 : day:='В четверг';

5 : day:='В пятницу';

6 : day:='В субботу';

7 : day:='В воскресенье';

end;

n:=Random(15); // в переменную n записывается случайное число от 1 до 14

case n of

1 : predskazanie:='счастье';

2 : predskazanie:='пятерка';

3 : predskazanie:='дорога';

4 : predskazanie:='двойка';

5 : predskazanie:='подарок';

6 : predskazanie:='здоровье';

7 : predskazanie:='деньги';

8 : predskazanie:='любовь';

9 : predskazanie:='встреча';

10 : predskazanie:='мороженка'

else predskazanie:='неудача';

end;

writeln('Ваше предсказание:', day, ' вас ждет ', predskazanie );

end.

ВАРИАНТ №2.

№1. Написать программу, позволяющий получить словесное наименование школьных оценок. (Например, программа выводит сообщение «Введите оценку», вводим число 3 и программа выводит на экран «Оценка - удовлетворительно!».)

№2. Разобрать программу случайного предсказания, которая сначала случайно выбирает день недели, а затем один из десяти вариантов ближайшего будущего. (Например, программа выводит сообщение «Предсказание будущего. В понедельник вас ожидает удача»).

!!! Для дней недели и вариантов будущего отдельный операторы выбора.

Var n, k: integer;

day, predskazanie: string;

begin

writeln('ПРЕДСКАЗАНИЕ БУДУЩЕГО');

Randomize; //подключение функции случайного выбора

k:=Random(7)+1; // в переменную k записывается случайное число от 1 до 7

case k of

1 : day:='В понедельник';

2 : day:='Во вторник';

3 : day:='В среду';

4 : day:='В четверг';

5 : day:='В пятницу';

6 : day:='В субботу';

7 : day:='В воскресенье';

end;

n:=Random(15); // в переменную n записывается случайное число от 1 до 14

case n of

1 : predskazanie:='счастье';

2 : predskazanie:='пятерка';

3 : predskazanie:='дорога';

4 : predskazanie:='двойка';

5 : predskazanie:='подарок';

6 : predskazanie:='здоровье';

7 : predskazanie:='деньги';

8 : predskazanie:='любовь';

9 : predskazanie:='встреча';

10 : predskazanie:='мороженка'

else predskazanie:='неудача';

end;

writeln('Ваше предсказание:', day, ' вас ждет ', predskazanie );

end.

ВАРИАНТ №3

№1. Напишите программу, которая по номеру дня недели выводит на экран его название. (Например, программа выводит сообщение «Введите номер недели», вводим число 4 и программа выводит на экран «Выбран четверг!».)

№2. Разобрать программу случайного предсказания, которая сначала случайно выбирает день недели, а затем один из десяти вариантов ближайшего будущего. (Например, программа выводит сообщение «Предсказание будущего. В понедельник вас ожидает удача»).

!!! Для дней недели и вариантов будущего отдельный операторы выбора.

Var n, k: integer;

day, predskazanie: string;

begin

writeln('ПРЕДСКАЗАНИЕ БУДУЩЕГО');

Randomize; //подключение функции случайного выбора

k:=Random(7)+1; // в переменную k записывается случайное число от 1 до 7

case k of

1 : day:='В понедельник';

2 : day:='Во вторник';

3 : day:='В среду';

4 : day:='В четверг';

5 : day:='В пятницу';

6 : day:='В субботу';

7 : day:='В воскресенье';

end;

n:=Random(15); // в переменную n записывается случайное число от 1 до 14

case n of

1 : predskazanie:='счастье';

2 : predskazanie:='пятерка';

3 : predskazanie:='дорога';

4 : predskazanie:='двойка';

5 : predskazanie:='подарок';

6 : predskazanie:='здоровье';

7 : predskazanie:='деньги';

8 : predskazanie:='любовь';

9 : predskazanie:='встреча';

10 : predskazanie:='мороженка'

else predskazanie:='неудача';

end;

writeln('Ваше предсказание:', day, ' вас ждет ', predskazanie );

end.

ВАРИАНТ №4.

№1. Написать программу, которая может определить какой является введенная буква (гласной, согласной, мягкий знак и твердый знак).

№2. Разобрать программу случайного предсказания, которая сначала случайно выбирает день недели, а затем один из десяти вариантов ближайшего будущего. (Например, программа выводит сообщение «Предсказание будущего. В понедельник вас ожидает удача»).

!!! Для дней недели и вариантов будущего отдельный операторы выбора.

Var n, k: integer;

day, predskazanie: string;

begin

writeln('ПРЕДСКАЗАНИЕ БУДУЩЕГО');

Randomize; //подключение функции случайного выбора

k:=Random(7)+1; // в переменную k записывается случайное число от 1 до 7

case k of

1 : day:='В понедельник';

2 : day:='Во вторник';

3 : day:='В среду';

4 : day:='В четверг';

5 : day:='В пятницу';

6 : day:='В субботу';

7 : day:='В воскресенье';

end;

n:=Random(15); // в переменную n записывается случайное число от 1 до 14

case n of

1 : predskazanie:='счастье';

2 : predskazanie:='пятерка';

3 : predskazanie:='дорога';

4 : predskazanie:='двойка';

5 : predskazanie:='подарок';

6 : predskazanie:='здоровье';

7 : predskazanie:='деньги';

8 : predskazanie:='любовь';

9 : predskazanie:='встреча';

10 : predskazanie:='мороженка'

else predskazanie:='неудача';

end;

writeln('Ваше предсказание:', day, ' вас ждет ', predskazanie );

end.