Практическая часть

Задачи для самостоятельного решения:

1. Напишите программу, состоящую из трех процедур и основной программы. Первая процедура организует ввод двух целых чисел X и Y, вторая проверяет их сумму, третья выводи результат. Используйте эти процедуры в основной программе. Используйте X и Y как глобальные переменные.

1. Напишите программу вычисления площади поверхности и длины экватора на основе известного радиуса планет солнечной системы. Форму планет будем считать шаром. Вычисление площади поверхности и длины экватора оформите отдельными функциями.

2. Напишите программу поиска большего из четырех чисел с использованием подпрограммы поиска большего из двух чисел.

3. Даны координаты вершин многоугольника (x1, y1,x2,y2,…x10,y10). Напишите программу для вычисления его периметра (вычисление расстояния между вершинами оформить подпрограммой).

4. Напишите программу вычисления суммы: 1! + 2! + 3! + … + n!, используя функцию вычисления факториала числа k.

5. Напишите программу для вычисления числа сочетаний из N по M. Число сочетаний определяется по формуле N!/(M!*(N-M)!, где N – количество элементов перебора. Используйте подпрограмму вычисления факториала.

6. Напишите программу для определения НОД трех натуральных чисел.

7. Даны действительные числа s,t. Составить программу вычисления выражения f(t, -2s, 1.17) + f(2.2, t, s-t), где f(a,b,c) = (2a – b – sin(c)) / (5 + |c|).

8. Даны натуральные m и n (m<n). Составить программу, сокращающую дробь m/n.

9. Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N).

10. Напишите программу подсчета числа четных цифр, используемых в записи N-значного числа M.

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

12. Составьте программу вывода на экран всех натуральных чисел, не превосходящих N и делящихся на каждую из своих цифр.

13. Составьте программу нахождения наименьшего натурального N-значного числа X (X>=10), равного утроенному произведению своих цифр.

14. Составьте программу подсчета числа всех натуральных чисел, меньших М, квадрат суммы цифр которых равен X.

Контрольные вопросы:

1. Данные каких типов используются в ЯП ПАСКАЛЬ?

2. Как происходит ввод данных в программу?

3. Как вывести результаты работы программы?

4. Какие стандартные функции вы знаете?

Практическое занятие №24. Изучение интегрированной среды разработчика.

ЗАДАЧА ОБ АНКЕТЕ

Объекты: форма, текстовое поле, изображение, кнопка. Программирование кнопок

Цель работы. Создать форму «Анкета студента» с данными о себе и двумя фотографиями (портретной и художественной), ко­торые перекрывают друг друга и должны появляться в результате нажатия на кнопки (рис. 4).

Ознакомиться с такими объектами: форма (Form), текстовое поле (Label), рисунок (Image), кнопка (Button) и их основными свойствами: подпись (Caption), цвет (Color), шрифт (Font), види­мость (Visible), ширина (Width), высота (Height) и другими.

Теоретические часть. Объект Formиспользуют длясоздание окна программы-приложения. Рассмотрим такие свойства:

Свойство	Описание свойства	Примеры значений
ActiveControl	Для задачи активно­го объекта (фокуса) в форме	Buttonl, Edit2
AutoScroll	Наличие в форме полос прокручива­ния	True, False
BorderStyle	Возможность менять размеры окна	bsSizeable (окно с произволь­ными размерами), bsDilog, bsNone (окно с фиксирован­ными размерами)
Width, Height	Ширина и высота окна в пикселях	503, 224 (числовые значе­ния)
Font	Шрифт	Комплексное свойство, зада­ется в диалоговом окне
HorizScrollBar VertScrolIBar	Параметры полос прокручивания	Комплексное свойство
Icon	Задаем пиктограмму, которая будет раз­мещена в заголовке формы при выполне­нии программы	(None) - стандартная пикто­грамма для Delphi, или за­груженная с определенного файла *.ico
Name	Имя формы	Forml (идентификатор)

Caption	Заголовок формы	Произвольная строка символов
Color	Цвет фона формы	clGreen, clInfoBk (перечис­лимый тип)или $004525В1 (числовое значе­ние - задается в диалоговом окне)
Cursor	Вид курсора на сво­бодном месте окна на этапе выполнения	crDrag, crCross, crHelp, crArrow (перечислимыйтип)
Enabled	Доступность для действий над объек­тами в форме во время выполнения	True, False
Left, Top	Координаты левого верхнего угла окна в пикселях	200, 108 (числовые значе­ния)
Position	Размещение и раз­меры окна в момент запуска программы	poScreenCenter, poDesigned
WindowState	Состояние окна в момент запуска про­граммы	wsNormal, wsMaximized, wsMinimized

Объект текстовое поле (Label) используют для создания тек­стов Надписей) в окне программы. Кроме аналогичных к выше приведенным в предшествующей таблице свойств Width, HeightFont, Color, Name,Caption, Cursor, Enabled, Let, Top, он владеет еще и такими:

Свойство	Описание свойства	Примеры значений
Align	Выравнивание поля относительно объекта, который его содержит (формы)	alBottom, al- Client, alLeft, alNone, alTop
Alignment	Выравнивание текста в границах поля	taCenter, taLeft- Justify, taRight- Justify
AutoSize	Приведение границ поля к границам текста	True, False
Visible	Видимость объекта	True, False
WordWrap	Перенесение слов текста в новую строку	True, False

Объект картинка (Image, изображение) используют для встав­ки графических объектов из файлов типа *.bmp, *.emf, *.ico, *.wmf в форму. Кроме известных свойств Elign, Width, Height, Name, Cursor, Enabled, Left, Top, Visible, он обладает еще таки­ми:

Свойство	Описание свойства	Примеры значение
Center	Выравнивание рисунка по центру относительно содержащего его поля	True, False
Picture	Имя графического файла	Задают в диалоговом окне
Stretch	Приведение размера изображения к задан­ным размерам объекта	True, False
AutoSize	Приведение размера объекта к реальным размерам изображения	True, False

Объект кнопка (Button) используют для размещения элемента управления — кнопки на форме. Кнопкиимеюттакиесвойства: Visible, Width, Height, Font, Color, Name, Caption, Cursor, En­abled, Left, Top идругие.

Практическая часть