Приложение 5
Государственное образовательное учреждение
высшего профессионального образования
«Рязанский государственный медицинский университет
имени академика И.П.Павлова
Федерального агентства по здравоохранению
и социальному развитию»
Кафедра математики и информатики
ОТЧЕТ
по лабораторной работе
Дисциплина “ Информатика ”
Тема:
“ Программирование разветвляющихся процессов ”
Выполнила:. ст-ка 1 курса
лечебного ф-та
4 группы
Верещагина Н.Н.
Проверил:
асс. Петрова Ю.А.
Рязань 2005
Цель работы: изучение логических операций, операторов условных и безусловного переходов и правил программирования разветвляющихся алгоритмов.
Задача. По номеру у (у>0) некоторого года определить номер его столетия (учесть, что, к примеру, началом 20-го столетия был 1901, а не 1900 год).
Решение.
Program Usloviya;
Var
y,c: Integer;
Begin
WriteLn('Введите год');
ReadLn(y);
If (y Mod 100) > 0 Then
c:=(y Div 100)+1
Else
c:=y Div 100;
WriteLn(c,' столетие');
End.
Результаты работы программы
Введите год
2005
21 Столетие Библиографический список
Булаев М.П. Turbo Pascal 7.0: практикум/М.П.Булаев [и др.]; под ред. М.П.Булаева. - Рязань, РГМУ, 2001. -164с.
Зубов В.С. Программирование на языке Turbo Pascal (версии 6.0 и 7.0)- М.: Информационно-издательский дом "Филинъ", 1997. – 304 с.
Меняев М.Ф. Информационные технологии управления: Учебное пособие. В 3 кн.: Книга 1: Информатика. – М.: Омега –Л, 2003. – 464 с.
Могилев А.В. Информатика: учебное пособие для студ. пед. вузов / А.В. Могилев, Н.И. Пак, Е.К. Хеннер; под ред. Е.К. Хеннера. – 2-е изд., стер. – М.: Издательский центр “Академия”, 2003. – 816 с.
Сергиевский М.В., Шалашов А.В. Турбо Паскаль 7.0.: Язык, среда программирования. – М: Машиностроение. – 1994. – 254с.
Сухарев М. Turbo Pascal 7.0, теория и практика программирования. – СПб.: Наука и Техника, 2003. – 576 с.
Фаронов В. В. Программирование на персональных ЭВМ в среде Turbo-Pascal. -М.: Изд-во МГУ, 1997.
Фаронов В. В. Turbo Pascal. – СПб.: БХВ-Петербург, 2003. –1056 с.
Шелест В.Д. Программирование. – СПб.: БХВ-Петербург, 2001. – 592 с.
Содержание
Введение 3
1. Арифметические основы построения ЭВМ 6
2. Интегрированная среда Turbo Pascal 7.1 16
3. Элементы языка Turbo Pascal 26
4. Лабораторная работа №1: Программирование линейных вычислительных процессов 36
5. Лабораторная работа №2: Программирование разветвляющихся процессов 45
6. Лабораторная работа №3: Циклический процесс 58
7. Лабораторная работа №4: Вложенные циклы 71
8. Лабораторная работа №5: Массивы 81
9. Лабораторная работа №6: Сортировки 91
Приложение 1 102
Приложение 2 107
Приложение 3 110
Приложение 4 111
Приложение 5 120
Библиографический список 122