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

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ

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

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

(ДГТУ)

 

Кафедра «Программное обеспечение вычислительной техники и автоматизированных систем»

 

ЛАБОРАТОРНАЯ РАБОТА

«РАЗВЕТВЛЯЮЩИЕСЯ ПРОГРАММЫ»

 

Ростов-на-Дону

Цель работы: научиться составлять разветвляющиеся алгоритмы и выполнять их программную реализацию.

 

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

 

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

 

Условный оператор имеет полную и краткую формы.

 

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

 

if условие then оператор1

else оператор2

 

Краткая форма условного оператора имеет вид:

 

if условие then оператор

Вложенное условие:

 

 

if условие1 then

if условие2 then оператор1

else оператор2

 

if условие1 then

begin

if условие2 then оператор1

end

else оператор2

 

Пример 1. Определение знака числа

 

1. Блок-схема

 

 

2. Программа

 

program exm1;

 

объявление переменной целого типа

var

n:integer;

 

begin

 

вывод поясняющего сообщения

write('Введите число: ');

 

ввод с клавиатуры значения переменной n

readln(n);

 

проверка условия

if n > 0 then

 

если условие выполняется (ветвь +)

writeln('Число положительное!!!') вывод на экран сообщения

 

else

если условие не выполняется (ветвь -)

writeln('Вы ввели число', N); вывод на экран сообщения и значения переменной n

 

end.

 

Пример 2: Определить знак числа, если оно отлично от нуля

 

1. Блок-схема

 

 

2. Программа

 

program exm2;

var

n:integer;

 

begin

 

write('Введите число: ');

readln(n);

if n > 0 then

writeln('Число положительное!!!')

else

if n < 0 then

writeln('Число отрицательное!!!')

else

writeln('Число равно нулю');

end.