Всё для Учёбы — студенческий файлообменник
1 монета
docx

Студенческий документ № 058261 из НИУ МЭИ

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

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

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

ИССЛЕДОВАТЕЛЬСКИЙ УНИВЕРСИТЕТ "МЭИ" В Г.СМОЛЕНСКЕ"

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

Отчет

по лабораторной работе № 3

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

по курсу: "Программирование"

Студент: Ефимов Д.С

Группа: ИВТ-2-16

Преподаватель: Бояринов Ю.Г.

Вариант: 9

Смоленск, 2016

Цель работы:

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

Для подготовки к работе изучить:

1. операторы ветвления;

2. основные логические операторы ("И", "ИЛИ", "НЕ" и т.д.)

Теоретическое введение

Операторы ветвления

К операторам, позволяющим из нескольких возможных вариантов выполнения программы (ветвей) выбрать только один, относятся If и Case.

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

Оператор if выбирает между двумя вариантами развития событий:

if

then [else ];

Обратите внимание, что перед словом else (когда оно присутствует, конечно же) символ ";" не ставится - ведь это разорвало бы оператор на две части.

Условный оператор if работает следующим образом:

1) Сначала вычисляется значение - это может быть любое выражение, возвращающее значение типа Boolean.

2) Затем, если в результате получена "истина" (True), то выполняется оператор, стоящий после ключевого слова then, а если "ложь" (False) - без дополнительных проверок выполняется оператор, стоящий после ключевого слова else. Если же else-ветвь отсутствует, то не выполняется ничего.

Что же произойдёт, если написать несколько вложенных операторов if?

В случае, когда каждый оператор if имеет собственную else-ветвь, всё будет в порядке. А вот если некоторые из них этой ветви не имеют, может возникнуть ошибка. Компилятор языка Pascal всегда считает, что else относится к самому ближнему оператору if.

Основные логические операторы

Приоритет операции Условный знак Выражение Название операции Тип переменных в выражении Тип результата выполнения операции ЛОГИЧЕСКИЕ ОПЕРАЦИИ

1 not not A Логическое "не" Логический целый Логический целый 2 and A and b Логическое "и" Логический целый Логический целый 3 or A or B Логическое "или" Логический целый Логический целый 3 xor A xor B Логическое исключающее "или" Логический целый Логический целый Таблица 1.2.1 Логические операции

Приоритет операции Условный знак Выражение Название операции Тип переменных в выражении Тип результата выполнения операции ОПЕРАЦИИ СРАВНЕНИЯ 4 = x=y Равно Число=число Логический 4 <> X<>y Не равно Строка=символ Логический 4 > x>y Больше Строка=символ Логический 4 Меньше Строка=символ Логический 4 >= x>=y Больше или равно Строка=символ Логический 4 <= x<=y Меньше или равно Строка=символ Логический

Задание

Заменить меньшее из трех введенных чисел их полусуммой, а большее - их удвоенным произведением.

Блок-схема

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

program psc3;

var s,p,min,max: real;

i: integer; mas: array [0..2] of real;

begin s:=0; p:=1;

for i:=0 to 2 do

begin writeln('введите число',i+1,':');

readln(mas[i]);

s:=s+mas[i];

p:=p*mas[i];

end;

for i:=0 to 2 do

begin write('число ',i+1,': ',mas[i],' ');

end;

writeln; s:=s/2;

p:=p*2; writeln('полусумма: ',s,' удвоенное произведение: ',p);

min:=mas[0];

max:=mas[0];

for i:=0 to 2 do

begin if (mas[i]

then min:=mas[i]

else

max:=mas[i]; end;

writeln('max: ',max,'; min: ',min);

for i:=0 to 2 do

begin

if (mas[i]=min)

then mas[i]:=s;

if (mas[i]=max)

then

mas[i]:=p; end;

for i:=0 to 2 do

begin write('число ',i+1,': ',mas[i],' ');

end;

readln; end.

Режим тестирования Ввод A Ввод B Ввод C Сообщение Корректные данные 5 2 -19 полусумма: -6 удвоенное произведение: -380

max: 5; min: -19

число 1: -380 число 2: 2 число 3: -6 Корректные данные 0 -319 25 полусумма: -147 удвоенное произведение: 0

max: 25; min: -319

число 1: 0 число 2: -147 число 3: 0 Некорректные данные ds Ошибка

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

Показать полностью…
101 Кб, 27 января 2017 в 4:52 - Россия, Москва, НИУ МЭИ, 2017 г., docx
Рекомендуемые документы в приложении