2. Запишите математические уравнения в линейном виде (см.Табл.2)

3. Вычислить функцию Y по формуле (см. табл.2):

Требования к выполнению задания:

а) выберите номер варианта для выполнения задания и условие своего варианта;

б) нарисуйте блок-схему решения задачи;

в) напишите текст программы;

г) покажите преподавателю полученные при расчетах численные результаты.

Таблица 2

Номер варианта	Функция
1
2
3
4
5
6
7
8
9
10
11
12
13
14

Тема №23. Основы алгоритмизации задач

Цель: Знакомство с основными операторами ветвления и цикла языка Turbo Pascal. Решение практических задач с использованием операторов ветвления и цикла. Выработка навыков работы в Turbo Pascal.

Задачи обучения: Формирование умений и навыков определения типов данных для реквизитов задач, составления алгоритмов и программирования медицинских задач.

Основные вопросы темы:

1. Алгоритмические структуры: разветвляющиеся, циклические.

2. Составление и решение простейших медицинских задач.

Методы обучения и преподавания: выполнение типовых заданий

Литература:

1. С. И. Бобровский. Учебный курс Delphi7. Питер, 2006г.

2. Г.Г. Рапаков, С.Ю. Ржеуцкая. Программирование на языке Паскаль. Санкт-Петербург, 2005 г.

3. Н.Культин. Учебный курс Delphi Санкт-Петербург, 2005 г.

4. Н.Культин. Delphi в задачах и примерах. Санкт-Петербург, 2005 г.

5. Е.Р. Алексеев, О.В. Чесноков. Шаг за шагом. Москва, 2005 г.

Контроль

Вопросы:

1. Что понимают под алгоритмом ветвления;

2. Как обозначается ветвление в блок-схемах;

3. Какие операторы ветвления существуют в языке Turbo Pascal;

4. Какой формат имеет оператор IF;

5. Какие различия между полной и сокращенной формой оператора IF;

6. Что называется циклом, телом цикла;

7. Какие операторы языка Turbo Pascal знаете;

8. Какой формат имеет оператор While;

9. Какой формат имеет оператор Repeat;

10. С каким шагом может изменяться параметр оператора For;

11. Как можно рассчитать число шагов в операторе For;

12. Отличия в операторах цикла с предпроверкой и постпроверкой условий;

13. В каком случае прекращаются повторения в операторе Repeat.

Тесты : См. Сборник тестовых заданий по «Информатике», тема «Алгоритмизация. Программирование»

Задачи:

1. Содержания гемоглобина в норме у мужчин (13,8-18,5%). Если гемоглобин больше нормы – патология, а меньше - анемия.

Составить алгоритм диагностики анемии по содержанию гемоглобина в крови:

А) словесный;

В) графический;

С) программу на языке Pascal.

2. Содержание эозинофилов в крови, соответствующее норме 2-4%, повышение от нормы свидетельствует о появлении аллергического заболевания.

Составить алгоритм диагностики аллергии:

А) словесный;

В) графический;

С) программу на языке Pascal.

3. Диастолическое давление D. Составьте алгоритм определения давления, если известно, что: D = 70 80 – норма; D > 80 – высокое давление; D < 70 – низкое давление.

Составить алгоритм определения диастолического давления D:

А) словесный;

В) графический;

С) программу на языке Pascal.

4. Составьте программу определения массы новорожденного ребенка. Если 2,700>М>3,500 – норма, если М<2,700 – недовес, а если М>3,500 - перевес.

Составить алгоритм определения массы новорожденного ребенка:

А) словесный;

В) графический;

С) программу на языке Pascal.

5. Составить алгоритм:

А) словесный;

В) графический;

С) программу на языке Pascal.

1) Определение знака вводимого числа;

2) Определение суммы квадратов чисел от 1 до 9.

6. Вычислить функцию S по формуле (см. табл.):

Требования к выполнению задания:

а) выберите номер варианта для выполнения задания и условие своего варианта;

б) нарисуйте блок-схему решения задачи;

в) напишите текст программы;

г) покажите преподавателю полученные при расчетах численные результаты.

Тема №24. Современные программные средства: Основы языка Delphi

Цель: Знакомство со средой быстрой разработки приложений Delphi. Сформировать первые сведения о языке Delphi. Выработка навыков работы в Delphi.

Задачи обучения: Формирование умений и навыков работы с интегрированной средой Delphi 7, с панелями библиотеки визуальных компонентов, с компонентами работы с текстом (Label, Edit), компонентами управления – Button, BitBtn.

Основные вопросы темы:

1. Обзор объектно-ориентированных программ.

2. Технология разработки программ.

3. Создание приложений в среде Delphi 7.

4. Компоненты работы с текстом (Label, Edit).

5. Компоненты управления – кнопки (Button, BitBtn).

Методы обучения и преподавания: выполнение типовых заданий

Задание №1

Разработка первого проекта

Создать программу, с помощью которой можно выполнить:

после запуска программы, щелкнув мышью на кнопке "Приветствие" появится сообщение "Первые успехи!" (см. рис.22.5). Для выхода из программы необходимо щелкнуть мышью на кнопке Выход.

Рисунок 22.5 Рисунок 22.6

Пояснения: Новым в этой работе является использование компонент Label и Button на странице палитры компонентов Стандартные (Standard) и обработка события на нажатие кнопки (OnClick).

План разработки программы

1. Открыть новый проект.

2. Разместить в форме следующие компоненты: метку Label и две кнопки Button (см. рис.22.6).

3. Выделить кнопку Button2 , перейти в Инспектор объектов (Object Inspector) на страницу Параметры (Properties), найти Caption (заголовок) и изменить заголовок Button2 на заголовок Выход.

4. Перейти на страницу События (Events) окна Инспектора объектов (Object Inspector), найти событие OnClick, справа от него дважды щелкнуть мышкой. Оказавшись в коде программы, точнее, в заготовке процедуры кнопки Button2, надо написать лишь одну команду: Close; обязательно поставить точку с запятой после Close.

5. Сохранить проект в отдельной папке под именем, например, Pr1.pas и Project1.dpr

6. Запустить программу, затем закрыть окно проекта кнопкой Выход.

7. Выделить форму, в Инспекторе объектов (Object Inspector) в свойстве Caption заменить слово Form1 на Проект-1. Это и будет заголовком основного окна программы.

8. Выделить кнопку Button1, найти в Инспекторе объектов (Object Inspector) свойство Caption и заменить слово Button1 на название кнопки Приветствие. При необходимости увеличить длину кнопки.

9. Перейти на страницу События (Events) окна Инспектора объектов (Object Inspector) и найти событие OnClick, справа от него дважды щелкнуть мышкой. Попав в код программы, но теперь в процедуру кнопки Button1, надо написать следующий код:

Label1.Caption:=‘Первые успехи!’;

10. Сохранить проект окончательно, запустить и протестировать его.

Краткое описание плана разработки программы

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

1. Открыть новый проект.

2. Разместить в форме следующие компоненты: метку Label и две кнопки Button.

3. Выполнить следующие действия:

   Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
   Button2	Параметры (Properties)	Caption	Выход
   	События (Events)	OnClick	Close;

4. Сохранить проект в отдельной папке под именем, например, Pr1.pas и Project1.dpr

5. Запустить программу, затем закрыть окно проекта кнопкой Выход.

6. Выполнить следующие действия:

   Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
   Form1	Параметры (Properties)	Caption	Проект-1
   Button1	Параметры (Properties)	Caption	Приветствие
   	События (Events)	OnClick	Label1.Caption:=‘Первые успехи!’;

7. Сохранить проект окончательно, запустить и протестировать его.

Дополнительные задания:

1. Сделать шрифт выводимой реплики отличным от стандартного по виду, цвету и размеру.

Подсказка. Для метки в Инспекторе объектов (Object Inspector) справа от свойства Font щелкнуть мышкой дважды.

2. Заменить простую кнопку Выход на более привлекательную кнопку.

Подсказка. Для замены кнопки надо удалить существующую, а другую найти в палитре компонентов на странице Дополнительно (Additional). Она называется BitBtn. Затем изменить ее вид в свойстве Kind.

3. Сделать так, чтобы при запуске проекта на экране вместо названия Label1 появлялся текст Первые успехи! , а после нажатия кнопки Приветствие появлялось новое сообщение Первые и не последние!

Подсказка. Изменить свойство Caption и для события OnClick внести изменения.

4. Запустить исполняемый файл Project1.exe не в среде Delphi, а в Windows.

Подсказка. Выйти из Delphi в Windows. Использовать диспетчер программ или проводник Windows.

Задание №2