case n of

Условный оператор

Неполная форма: IF условие THEN оператор;

УСЛОВИЕ - это логическое выражение, принимающее значение истина или ложь.

Выполняется инструкция так: если условие истинно, то выполняется оператор,

иначе выполняется следующая за IF..THEN инструкция.

Полная форма: IF условие THEN оператор1

ELSE оператор2;

Если условие истинно, то выполняется оператор1, иначе выполняется оператор2.

В Н И М А Н И Е! Перед словом ELSE точка с запятой не ставится!!

Пример. При нажатии цифры 1 печатается слово1, а при нажатии любой клавиши слово2.

Program Text;

Uses crt;

var x: integer;

Begin

ClrScr;

write('Введите цифру 1 или любую:'); readln(x); ClrScr;

if x=1 then write(' Вася')

else write(' Петя');

readln;

End.

Задание 1. Составить программу для одной задачи из ниже приведенного списка (номер задания получить у преподавателя). Программы набрать и отладить с помощью системы программирования Turbo Pascal. Исходный текст программы сохранить в своей папке под именем Tp4.1_№ группы_фамилия.

Задания для программирования:

1.

Вычислить y=f(x), где функция f(x) задана графиком.

2. Даны два числа А и В. Найти наибольшее из них и вывести его на экран.

3. Составить программу вычисления для любого х функции Y =1/x,

при х=0 выдать сообщение ' функция не существует '.

4. Найти наибольшее из трех чисел.

при x<0

5. Вычислить: Y=

при x ³0

6. Дано действительное число x, вычислить y, если

7. Вычислить y= f(x), где функция f(x) задана графиком, описать в виде одного оператора:

8. Вычислить y= f(x), где функция f(x) задана графиком, описать в виде одного оператора:

9. Составить программу, которая при ответе на вопрос о результате умножения двух чисел (числа нужно вводить) выводила на экран сообщение о правильности ответа.

Пример оформления экрана:

Сколько будет 6*8?

Правильно!

Сколько будет 6*8?

Не правильно!

Оператор варианта

Оператор варианта является обобщением условного оператора: он дает

возможность выполнить один из нескольких операторов в зависимости

от значения некоторого выражения, называемого СЕЛЕКТОРОМ.

CASE <селектор> OF { case (кейс) - выбор }

< список меток1 >: < оператор1 >; { of (oф) - из }

< список меток2 >: < оператор2 >;

.......:......;

< список метокN >: < операторN >;

ELSE <оператор>

END;

селектор - выражение любого перечисляемого типа, кроме вещественного;

integer, byte - целые из [0;255], char - символьный тип.

оператор - любой оператор языка, в том числе и составной;

список меток - список разделенных запятыми значений выражения 'селектор' или одно его значение; тип метки и селектора одинаков;

Оператор варианта выбирает для исполнения тот ОПЕРАТОР, одна из меток которого равна текущему значению выражения СЕЛЕКТОР. Если ни одна из меток не равна текущему значению селектора, то никакие операторы не выполняются, либо выполняются операторы, следующие за зарезервированным словом ELSE (если такое имеется).

Пример

Program Primer_Case1; Uses crt;

var n:integer;

Begin

clrscr; write('Нажмите цифру 1..8'); readln(n);

case n of

1,7: write('Ваня');

2: write('В а с я');

3: write('В а л я');

4: write('В а р я');

5: write('В а д я');

6: write('в а з а');

else write(' Нет такой метки')

end; readln;

End.

Задание 2. Составить программу для одной задачи из ниже приведенного списка (номер задания получить у преподавателя). Программы набрать и отладить с помощью системы программирования Turbo Pascal. Исходный текст программы сохранить в своей папке под именем Tp4.2_№ группы_фамилия.

Задания для программирования:

1. Для каждой введенной цифры (0-9) вывести соответствующее ей название на английском языке (0 —zero, 1 —one, 2 —two,.., …).

2. Составить программу, которая по данному числу (1-12) выводит название соответствующего ему месяца.

3. Составить программу, которая по данному числу (1-7) выводит название соответствующего дня недели.

4. Составить программу, которая по порядковому номеру дня недели выводит соответствующую фразу – “суббота”, “воскресенье” или “рабочий день”.

5. Составить программу, которая по порядковому номеру семестра выводит название курса. Например, “Первый курс”.

Дата добавления: 2015-08-09