Laba3Ivanov
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
_______________________________________________________________________________________________________
Государственное образовательное учреждение
Высшего образования
МОСКОВСКИЙ ЭНЕРГЕТИЧЕСКИЙ ИНСТИТУТ
(технический университет)
филиал в городе Смоленске
Отчеты по лабораторным работам
по дисциплине:
«ИНФОРМАТИКА И ПРОГРАММИРОВАНИЕ»
Группа: ЭО-15
Студент: Витюк А.Д.
Преподаватель: Пучков А.Ю.
Смоленск 2015
3. Лабораторная работа № 3. Разветвленные алгоритмы
Задание. Ввести три действительных числа. Вывести те их них, которые ближе всего к 10.
Математическое описание решения. Для данной задачи математическое описание присутствует в самом задании.
Схема алгоритма. В соответствии с заданием разработан алгоритм, схема которого отражена блок-схемой на рисунке 1.1
Рисунок 1.1 – Блок-схема алгоритма задания к лаб. раб. № 1
Разработка программы. Разработка программы проводилась на языке высокого уровня Паскаль [1]. Список идентификаторов для программы, разрабатываемой в соответствии с алгоритмом, отраженном на рисунке 1.1, представлен в таблице 1.1.
Таблица 1.1 – Список идентификаторов для задания лаб. раб. № 1
№ |
Наименование переменной и ее смысл |
Обозначение в алгоритме |
Обозначение в программе |
1 |
Первое число |
a |
a |
2 |
Второе число |
b |
b |
3 |
Третье число |
g |
g |
Текст программы представлен на рисунке 1.2.
Результаты тестирования программы. Тестирование является процессом прогона программы на различных входных данных с целью обнаружения в ней ошибок. Результаты тестирования отражены в таблице 1.2.
Таблица 1.2 – Результаты тестирования программы задания № 1
№ теста |
Тестовые воздействия
|
Результат программы
|
||
1 |
Ввод слагаемых
|
Вводимые данные являются числами из диапазона 10-37 до 1037 |
Программа выполняется верно |
|
Вводимые данные лежат вне диапазона 10-37 до 1037 |
Выдача сообщения об ошибке |
|||
Вводимые данные являются буквами |
Выдача сообщения об ошибке |
Program Lena3;
Uses Crt;
Label M1;
Var a,b,g:real;
Begin
TextBackground(14); TextColor(11);Clrscr;
M1:writeln(‘Vvedite dlinny diagonali a’);
readln(a);
writeln(‘Vvedite dlinny diagonali b’);
readln(b);
writeln('(‘Vvedite ugl g’);
readln(g);
If (a>0) and (b>0) and (180>g) and (g>0) then
Begin
If (a=b) and (g=90) then
Begin
writeln(‘Kvadrat’);
end;
If (a=b) and (g<>90) then
Begin
writeln(‘Priamoygolnik’);
end;
If (a<>b) and (g=90) then
Begin
writeln(‘Romb’)
end
If (a<>b) and (g<>90) then
begin
writeln(‘Paralelologram’)
end;
readkey;
end;
end.
Рисунок 1.2 – Текст программы на языке Паскаль для задания лаб. раб. № 3
Отчеты по лабораторным работам
по дисциплине:
«ИНФОРМАТИКА И ПРОГРАММИРОВАНИЕ»
Группа: ЭО-15
Студент: Витюк А.Д.
Преподаватель: Пучков А.Ю.