Министерство образования и науки Российской Федерации

Федеральное агентство по образованию

Саратовский государственный технический университет

Кафедра "Приборостроение"

Паскаль:

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

Методические указания

к лабораторным работам

для студентов специальностей 190100, 190500

Одобрено

редакционно-издательским советом

Саратовского государственного технического университета

Саратов 2006

Содержание

Лабораторная работа № 1 3

Цель работы 3

Теоретическая часть 3

Варианты заданий 4

Лабораторная работа № 2 6

Цель работы 6

Теоретическая часть 6

Варианты заданий 8

Лабораторная работа № 3 10

Цель работы 10

Теоретическая часть 10

Варианты заданий 12

Лабораторная работа № 4 13

Цель работы 13

Теоретическая часть 13

Варианты заданий 15

Содержание и оформление отчета 16

Литература 16

Лабораторная работа № 1 Цель работы

Изучение работы с операторами ветвления If и Case.

Теоретическая часть

Составной оператор

Составной оператор - это совокупность последовательно выполняемых операторов, заключенных в операторные скобки begin…end

begin

<оператор1>;

<оператор2>;

…

<операторN>;

end;

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

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

Реализует алгоритмическое ветвление.

Существует 2 варианта записи:

• if S then A else B; (полное ветвление)

• if S then A; (укороченное)

Здесь:

S – некоторое логическое выражение;

A – оператор, выполняемый, если S истинно;

B - оператор, выполняемый, если S ложно.

Во втором случае, если S ложно, не выполняется никаких действий.

Пример 1:

var X, Y : Integer; begin readln(X); if X<0 then begin {* составной оператор *} writeln('X – отрицательное число'); Y := abs(X); writeln('Модуль от X равен ',Y); end else writeln('X – неотрицательное число'); end.

В примере использован составной оператор, так как в случае выполнения условия (X<0) необходимо выполнить 3 действия, тогда как по правилам языка в ветке then возможен только один операнд.

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

Выбор одного варианта из любого количества.

case A of

C1 : <инструкция 1>;

C2 : <инструкция 2>;

…

else <инструкция N>;

end;

Здесь:

A – выражение любого порядкового типа;

C1, C2, …, CN – константы, с которыми сравнивается значения выражения A;

Инструкция1, Инструкция2,… ИнструкцияN – операторы. которые выполняются, если значение A совпадает с одной из констант C1, C2, …, CN.

Ветвь else необязательная. Она выполняется, если A не совпадает ни с одной из констант C1, C2, …, CN (см. пример 2).

Пример 2:

var I : Integer; begin case I of {* тело условного оператора Case *} 0, 2, 4, 6, 8 : writeln('Четная цифра'); 1, 3, 5, 7, 9 : writeln('Нечетная цифра'); else writeln('Отрицательное число или больше 9!'); end; end.

Варианты заданий

	Вычисление корней квадратного уравнения.
	Ввести число X и вычислить значение функции .
	Ввести число X и вычислить значение функции
	Ввести число X и вычислить значение функции
	Ввести 5 чисел и подсчитать среднее арифметическое только положительных.
	Ввести 5 чисел и подсчитать среднее геометрическое (корень n-й степени из произведения n чисел) только положительных.
	Ввести 5 чисел и подсчитать число отрицательных чисел.
	Подсчитать максимум из двух введенных чисел.
	В зависимости от введенного числа (от 1 до 7) вывести название дня недели.
	В зависимости от введенного числа (от 1 до 12) вывести название месяца.
	Ввести коэффициенты a, b, c для параболы y=ax2+bx+c, определить и вывести координаты вершины параболы, а также каким экстремумом она (вершина) является: минимумом или максимумом.
	Подсчитать количество дробных чисел из 5 введенных.
	Подсчитать количество четных чисел из 5 введенных.
	Ввести три стороны треугольника. Если он является прямоугольным, то вывести значения sin и cos углов, в противном случае вывести периметр треугольника.
	Ввести значения sin и cos угла. Определить квадрант, к которому относится угол.
	Организовать вычислитель формул вида A oper B, где A, B – числа, oper – знак операции, которую нужно выполнить: +, -, *, /.
	Определить, является ли введенный символ цифрой, строчной, прописной буквой или другим символом и вывести соответствующее сообщение.
	Для двух заданных углов определить, являются ли они смежными.

Требования к оформлению отчета приведены в разделе "Содержание и оформление отчета".