Объект Свойство Значение Label1 Caption Моя первая программа
жүктеу/скачать 1.52 Mb.
|
| 9. Интеллект
9 – данный от природы ум следует развивать упорным трудом, иначе есть риск «скатиться» в дремучее невежество. 99 – «врождённый интеллект». Такие люди неохотно овладевают знаниями, которые даются им слишком легко. Наделены чувством юмора, не дают собой манипулировать. 999 – очень умные люди, прекрасные собеседники. Хоть и склонны к сарказму. Ярко выражена способность к преподавательской деятельности. 9999 – этим людям открывается истина. Если при этом развита интуиция, то они гарантированны от провала в любом из своих начинаний. Но резкий ум делает их грубыми, немилосердными и жестокими. Ваша задача составить программу, которая при выборе пользователем даты его рождения, будет выводить на экран расшифровку по описанным выше правилам. Интерфейс программы разработайте самостоятельно ЛИТЕРАТУРА Delphi 5: учебный курс, С. Бобровский, Питер 2002 г. Аладьев В.З., Хунт Ю.Я., Шишаков М.Л., Основы информатики. Учебное пособие, М., Филин, 1998, 496с. Информатика. Учебник под ред. Проф. Н.В. Макаровой, Финансы и статистика, 2001, 768с. Балафанов Е.К., Бурибаев Б., Даулеткулов А.. 30 уроков по информатике, Алматы, Джагамбек, 1999г, 442с (на русском и казахском языках) Фигурнов В.З. IBM PC для пользователя, 7 изд., Москва, ИНФРА, 1998, 328с. Каймин В.А., Питеркин В.М., Уртминцев А.Г. Информатика. Учебное пособие, 1998, 208с. Кенин А.М., Печенкин Н. Окно в мир компьютеров, Екатеринбург, Деловая книга, 1996 Лабораторная работа № 11 Кубики Косса ЦЕЛЬ РАБОТЫ Цель лабораторной работы – освоение студентами основных понятий программирования, интерфейса среды программирования методов управления свойствами компонент. ГРАФИКА К убиками Коса называют квадрат 4х4 квадратика. Каждый квадратик разделён по диагонали на две половины, одна из которых закрашена белым цветом, а другая чёрным. Каждый квадратик может находится в одном из чётырёх положений. Всего существует 4294967296 возможных комбинаций. Пример показан рядом. Откройте среду программирования Delphi Бросьте на форму компонент таймер Объявляем две глобальные переменные bm: TBitMap; Rect: TRect; определяющие битовую карту и прямоугольник для прорисовки На создание формы запишите следующий код: randomize; bm:=TBitMap.Create; bm.Width := 480; bm.Height := 480; Rect.Left:=0; Rect.Top:=0; Rect.Right:=480; Rect.Bottom:=480; Form1.ClientWidth:=480; Form1.ClientHeight:=480; Теперь необходимо написать функции, рисующие одно из 4-х возможных состояний маленького квадратика. Примерная функция показана далее: жүктеу/скачать 1.52 Mb. Достарыңызбен бөлісу:
|