инфа / Программирование / П_Лаба2

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

ФИЛИАЛ ГОСУДАРСТВЕННОГО ОБРАЗОВАТЕЛЬНОГО УЧРЕЖДЕНИЯ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«МОСКОВСКИЙ ЭНЕГРЕТИЧЕСКИЙ ИНСТИТУТ

(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)» в г. СМОЛЕНСКЕ

Кафедра информатики

Отчет по лабораторной работе №2

Тема: «Разветвляющиеся алгоритмы»

По курсу: «Информатика»

Студент: Юшковский С.Л.

Группа: ПЭ-09

Преподаватель:

Бояринов Ю.Г.

Смоленск 2010

Подготовка к работе.

Цель работы – освоение приемов разработки алгоритмов и программирования разветвляющихся программ.

1. Изучить выражения в ТР: арифметические, выражения отношения, логические выражения; простой и составной операторы.

Арифметические выражения в ТР записываются с помощью следующих математических символов + - * / (сложение, вычитание, умножение, деление), также возможно использовать скобки. Например:

A:= B+C*(1/4*K – 5);

Выражения отношения записываются известными математическими символами < > = >< (меньше, больше, равно, не равно). Например

A>B, A<>B, C= B и т.д.

Логические выражения в ТР записываются с помощью зарезервированных слов and or not (логическое и, или, не соответственно). Например.

(A< 7) and (A><4)

Простым оператором в ТР называется оператор, состоящий из одной команды . Например.

Readln(a); Writeln(b);

Составным оператором в ТР называется оператор состоящий из нескольких команд, но участвующий в программе в качестве единого оператора. Например

If (a=b) and (b=5) then begin {оператор1;

Оператор2;

….

Оператор n;}

End;

2. Записать формат условного оператора if – then, if –then – else.

Формат оператора if-then

If {логическое выражение} then { следующие операторы выполняются если логическое выражение истинно} begin {Оператор1;

Оператор2;

….

Оператор n;} end;

Формат оператора if-then-else.

If {логическое выражение} then { следующие операторы выполняются если логическое выражение истинно} begin {Оператор1;

Оператор2;

….

Оператор n;} end else { следующие операторы выполняются если логическое выражение ложно} begin {Оператор1;

Оператор2;

….

Оператор n;} end;

3. Записать формат оператора Case.

Case <селектор> of

<значение селектора>: < оператор 1 >; <значение селектора>: < оператор 2 >; … <значение селектора>: <оператор N > else <оператор> end;

В качестве селектора могут служить переменные символьного и целочисленного типов. Данные типа real и string для селектора запрещены.

В зависимости от значения селектора выполняется соответствующий этому значению оператор. Значения селектора могут быть заданы тремя способами: перечислением (1,3,5,7); диапазоном (‘a’..’z’); перечислением + диапазоном (1..5, 7, 9, 11, 21..31).

Техническое задание.

Составить алгоритм и программу решения задачи. В программе использовать очистку экрана, установку цвета фона и цвета выводимых символов. Определить принадлежит ли данная точка к заштрихованной области. Определить какой координатной четверти принадлежит данная точка.

2

-1 1

Определить какой координатной четверти принадлежит данная точка.

Анализ технического задания.

Для того чтобы определить принадлежит ли данная область заштрихованной области необходимо проверить удовлетворяют ли координаты точки системе уравнений.

Для того чтобы определить какой координатной четверти принадлежит данная точка необходимо последовательно проверить несколько условий если то точка принадлежит первой координатной четверти.

если то точка принадлежит второй координатной четверти.

если то точка принадлежит третьей координатной четверти.

если то точка принадлежит четвертой координатной четверти.

Задача 1. Определить принадлежит ли данная точка к заштрихованной области

Блок схема.

Н

X,Y

Данная точка принадлежит заштрихованной области

Данная точка не принадлежит заштрихованной области

к

Текст программы.

Program example1;

Uses crt;

Var x,y: real;

Begin

Clrscr;

Writeln(‘введите координаты точки’);

Readln (x,y);

If ((sqr(x)+sqr(y))<=1) and (x>=-1) and (x<=1) and (y>=0) and (y<=2) then

writeln(‘Данная точка принадлежит заштрихованной области’)

else

writeln(‘Данная точка не принадлежит заштрихованной области’);

readln;

end.

Результаты тестирования.

Результаты тестирования	x	y	вывод
Корректные значения	0,5	1,5	Данная точка принадлежит заштрихованной области
Корректные значения	1	0,5	Данная точка не принадлежит заштрихованной области
Граничные значения	1	1	Данная точка принадлежит заштрихованной области
Граничные значения	0	1	Данная точка принадлежит заштрихованной области
Некорректные значения	a	4	Ошибка ввода

Вывод: программа работает некорректно в случае ввода символа вместо цифры. Во всех остальных случаях результаты работы программы соответствуют действительности.

Задача 2. Определить какой координатной четверти принадлежит данная точка.

Блок схема.

Н

X,Y

x>0 and y>0

к

x<0 and y>0

x<0 and y<0

x>0 and y<0

I четверть

II четверть

III четверть

IV четверть

Точка (0,0)

нет да

нет да

нет да

да

нет

Текст программы.

Program examle2;

Uses crt;

Var x,y: real;

Begin

Clrscr;

Writeln(‘введите координаты точки’);

Readln (x,y);

If (x>0) and (y>0) then

writeln(‘Данная точка принадлежит первой координатной четверти’)

if (x<0) and (y>0) then

writeln(‘Данная точка принадлежит второй координатной четверти’);

if (x<0) and (y<0) then

writeln(‘Данная точка принадлежит третьей координатной четверти’);

if (x>0) and (y<0) then

writeln(‘Данная точка принадлежит третьей координатной четверти’)

else

writeln(‘это точка (0,0)’);

readln;

end.

Результаты тестирования.

Результаты тестирования	x	y	вывод
Корректные значения	0,5	1,5	Данная точка принадлежит первой координатной четверти
Корректные значения	-1	0,5	Данная точка принадлежит второй координатной четверти
Корректные значения	-1	-0,5	Данная точка принадлежит третьей координатной четверти
Корректные значения	1	-0,5	Данная точка принадлежит четвертой координатной четверти
Корректные значения	0	0	Это точка (0,0);
Некорректные значения	a	4	Ошибка ввода

Вывод: программа работает некорректно в случае ввода символа вместо цифры. Во всех остальных случаях результаты работы программы соответствуют действительности.

Вывод: освоили приемы разработки алгоритмов и программирования разветвляющихся программ.