рефераты конспекты курсовые дипломные лекции шпоры

Реферат Курсовая Конспект

Лабораторная работа №8

Лабораторная работа №8 - раздел Программирование, Объектно-ориентированное программирование на языке Delphi Задача: Написать Программу, Которая По Введенному Числу 1..3 Выводит Его Назв...

Задача: Написать программу, которая по введенному числу 1..3 выводит его название.

Опишем переменную Var a: integer;

Для события по щелчку кнопки в теле процедуры напишем:

Begin

a:=(Edit1.text); // ввод числа

case a of

1: Memo1.text:=IntToStr(‘один’);

2: Memo1.text:=IntToStr(‘два’);

3: Memo1.text:=IntToStr(‘три’);

else Memo1.text:=IntToStr(‘Введите число 1, 2 или 3’);

end;

End;

Задания для самостоятельной работы:

1. Составить программу, которая по заданному числу (1-12) выводит название соответствующего месяца.

2. Написать программу, которая по введенному номеру времени года выдавала соответствующие этому времени года месяцы и число дней в каждом месяце.

3. Составить программу, которая для любого натурального числа 1-1000 печатает количество цифр в записи этого числа.

4. Для целого числа k от 1 до 99 напечатать фразу «я прочел k книг», согласовав окончание слова «книга» с числом k.

– Конец работы –

Эта тема принадлежит разделу:

Объектно-ориентированное программирование на языке Delphi

Алгоритмы и исполнители... Основные понятия объектно ориентированного программирования... Проверочная работа Алгоритмы и исполнители Основные понятия ООП...

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Лабораторная работа №8

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Объектно-ориентированное программирование на языке Delphi
Информатика – это область человеческой деятельности, связанная с процессами преобразования информации с помощью компьютеров и их взаимодействием со средой применения. Информатика появилась благодар

Алгоритмы и исполнители
Термин алгоритм происходит от имени узбекского ученого 9в. Аль-Хорезми, который в своем труде "Арифметический трактат", переведенном в 12в. с арабского на латынь, изложил правила а

Форма и размещение на ней простейших объектов
Среда программирования Delphi состоит из: 1. Главного меню. В нем располагаются стандартные операции работы с файлами (создать, сохранить, закрыть и т.д.) Ниже располагаютс

Лабораторная работа №1
1. Запустите среду программирования Delphi 2. Перед вами открылся новый проект, состоящий из Формы (Form), на которую будете наносить объекты и окно Программного кода (Uni

Расположение объектов на форме
Местоположение объекта, которое он будет занимать на форме после запуска приложения на выполнение, можно легко изменить. Для этого достаточно перетащить объект с помощью мыши в любое место

Лабораторная работа №2
Расположение управляющих элементов на форме.Расположение на форме и размеры управляющих элементов можно легко изменять с помощью мыши. Для этого необходимо активизировать объект ще

Дополнительные возможности при работе с объектами Edit, Memo. Кнопка с изображением BitBtn
Для межстрочного поля Memo существует способность отображать множество строк. Все они, как известно, содержаться в свойстве Lines. Метод Add добавляет новую строчку к имеющемус

Лабораторная работа №3. MainMenu - главное меню формы
Компонент класса TMainMenu определяет главное меню формы (программы). 1. Установите компонент на форму 2. Создайте пункты меню. Для этого следует дважды щелкнуть по компоне

Проверочная работа №2. Работа с компонентами.
Вариант №1. 1. Что такое компонент? ________________________________________________________________________________________________________________________ 2. Охарактеризу

Лабораторная работа № 4
Решим простейший пример: найти сумму трех чисел. 1. Описываем после служебного слова VAR несколько переменных целого типа для удобства решения: Var a, b, c, s: integer;

Лабораторная работа №5. Алгоритм решения математический задачи на языке.
Алгоритм решения задачи имеет 3 основные части: 1. ввод данных Например: a:=StrToInt(Memo1.text); // занести в переменную а содержимое многострочного редакт

Стандартные арифметические функции
abs(x) Модуль х cos(x) Косинус х exp(x) Экспонента

Лабораторная работа №7
Флажки. При активизации двойным щелчком мыши CheckBox1 появится процедура TForm1.CheckBox1Click(Sender: TObject); Задача: При установке флажка текст в Метке1 должен становиться жирн

Лабораторная работа №9
Рассмотрим алгоритм решения задачи, в которой нужно подсчитать количество вхождений символа «а» в строку. Используем компоненты классов TEdit и TMemo для ввода строки и вывода

Лабораторная работа №10
Задача: Вывести 5 одинаковых надписей: «Программа цикла» Для вывода повторяюще

Проверочная работа №4. Строки. Циклы
Вариант №1. 1. Опишите строку s. ________________________________________________________________ 2. Напишите программу для проверки количества вх

Рассмотрение дополнительных компонентов для ввода/вывода строк
Для ввода и вывода информации в объектно-ориентированном программировании существует целый ряд вариантов. В библиотеке визуальных компонентов Delphi существует множество компонентов, позволя

Графические компоненты
TImage – изображение Данный компонент служит для размещения на форме одного из трех поддерживаемых Delphi типов изображений: растрового рисунка (*.bmp), значка (*.ico) или метафайла

Лабораторная работа №11
Создадим несложную программу просмотра изображений: 1. Поместите на форму панель TPanel, очистите ее свойство Caption. 2. Разместите на панели кнопку TButton с надписью Загрузить.

Лабораторная работа №12
Для обращения к ячейке [0,0] нужно использовать свойство Cells: StringGrid1.Cells[0,0]:=IntToStr(5) 1. Проиллюстрируйте возможности рассмотренного компонента, состав

Массивы
Массив – упорядоченный набор однотипных значений – компонент массива. Тип компонент называется базовым типом массива. В Delphi массив рассматривается как переменная структури

Лабораторная работа №13
Задания для самостоятельной работы: 1.Заполнить линейный массив произвольными числами и вывести его на экран. 2.Заполнить линейн

Проверочная работа №5. Массивы
Вариант №1. 1. Опишите массив a, состоящий из 10 элементов. ________________________________________________________________ 2. Опишите двумерный

Обработка событий мыши. Регулировка прозрачности формы
Обработчики событий OnMouseDown и OnMouseUp определяют реакцию программы на соответственно нажатие и отпускание кнопки мыши, OnMouseMove –на перемещение указателя мыши на компо

Процедуры и функции вызова диалоговых окон
Процедура ShowMessage (‘<строка>’) отображающая окно с сообщением и кнопкой ОК. Пример: ShowMessage (‘До свидания!’) Процедура ShowMessageFmt(‘Задано %d параметров и

Лабораторная работа №14
Пример: В теле процедуры запишем Begin … if MessageDlg('Yo!',mtWarning,[mbYes, mbNo],0)=mrYes then close; end.

Работа с датой и временем
Тип TDateTime Var t: TDateTime; Для обработки даты и времени модуль SysUtils содержит следующие основные функции: function Date: TDataTime;

Лабораторная работа №15
Рассмотрим пример, в котором числа 2006, 1, 1 выводятся в формате даты 1.1.2006. var MyTime: TDateTime; begin MyTime := EncodeDate(2006, 1, 1);

Компоненты вкладки Samples. Обработка событий OnDownClick и OnUpClick
TSpinButton – спаренные кнопки Для данного компонента след

Лабораторная работа №16
Задача: При нажатии на верхнюю спаренную кнопку выводится сообщение Up, на нижнюю – Down. procedure TForm1.SpinButton1DownClick(Sender: TObject); begin

Компоненты вкладки Dialogs
TOpenDialog – открытие файлов и TSaveDialog – сохранение файлов Компоненты имеют идентичные свойства. Свойство Описание

Лабораторная работа №17
Программа для просмотра содержимого текстового файла. 1. На пустую форму нанести компонент TOpenDialog, кнопку TButton и многострочное поле TMemo. 2. При рабо

Контрольная работа
Вариант №1 1. Найти наибольшее из 3 чисел a, b, c. 2. Найти сумму чисел s=1/(p+2)+ 2/(p+2)+…+ p/(p+2) 3. Дана строка. Найти количество вхождений букв А. 4

Хотите получать на электронную почту самые свежие новости?
Education Insider Sample
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
Реклама
Соответствующий теме материал
  • Похожее
  • Популярное
  • Облако тегов
  • Здесь
  • Временно
  • Пусто
Теги