Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / Практическое занятие 2. Lazarus

Практическое занятие 2. Lazarus

Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • Информатика

Поделитесь материалом с коллегами:


Инструкционная карта №6

Тема: Основные компоненты Delphi. Использование и создание компонентов для ввода и редактирования данных


Цель работы: отработка навыков работы с компонентами ввода и редактирования данных.

Оборудование: ПК, инструкционные карты, принтер.

Время выполнения: 4 часа.


Ход работы:

Теоретический материал

Функция FloatToStrF(x, ffFixed, W, D), где x - вещественное число или переменная вещественного типа, ffFixed - константа, вписывается без изменений, W - ширина поля, отводимого под всё число, если W = 0, то ширина определяется автоматически по длине числа, D - количество цифр в дробной части.

Пример

x := 2.718291829;

Label1.Caption := FloatToStrF(x, ffFixed, 0, 3);

Дает вывод: 2,718

Работа со строковыми переменными:

hello_html_m61dc962d.png

hello_html_m14d7a10a.png

hello_html_6c3e1d7b.png


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

Задание 1. Определите, для чего используют компонент Edit и его свойства.


Задание 2. Определите, для чего используют компонент Label и его свойства.


Задание 3. Определите, для чего используют компонент Button и его свойства.


Задание 4. Ввести в Edit1 текст, вывести в Edit3 длину этого текста. В Edit 2 вывести n первых символов из Edit1, число n задать в Edit4.

procedure TForm1.Button1Click(Sender: TObject);

var s,a : string;

n:integer;

begin

s:=Edit1.Text;

Edit2.Text:= IntToStr(length(s));

a:= Edit3.Text;

n:=StrToInt(a);

Edit4.Caption:= copy(s,1,n);

end;


Задание 5. В поле Edit1 введена строка, в которой цифры и буквы стоят вперемешку. При нажатии на кнопку Button1 вывести все цифры этой строки в Edit 2, а все буквы - в Edit3.

rocedure TForm1.Button1Click(Sender: TObject);

var s,s1 : string;

i:integer;

begin

s:=Edit1.Text;

s1:='';

\\ создать пустую строку для букв

For I:=1 to length(s) do

if (copy (s,i,1)='1') or (copy (s,i,1)='2')... \\ перебор всех цифр

then s1:=s1+copy (s,i,1);

\\ организовать проверку букв латинского алфавита

Edit2.Text:= s1;

\\вывод букв в Edit3

end;


Задание 6. При каждом щелчке по кнопке изменить значение переменной x на заданную величину a и отобразить новое значение на форме.

Используйте компоненты: Edit1 - ввод начального значения x, Edit2 - ввод значения a, Edit3- вывод измененного значения x, Button1 - изменение значения x и его вывод.


Задание 7. Основные моменты теоретической части законспектировать в тетрадь.


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

  1. Какой алгоритмический язык используется для программирования в Delphi?

  2. Каким образом в Delphi создается стандартная заготовка для обработчиков событий?

  3. Какие функции используются для преобразования строковых значений в численные и наоборот.

  4. Что такое исключения и как они используются?

  5. Что будет, если в программе ввести в строку ввода не число?


Литература:

Мезенцев К.Н.. Автоматизированные информационные системы: учебник / - М : Academia, 2014. - 176 с.

Федорова Г.Н. Информационные системы: учебник для студ.учреждений сред. Проф. Образования – М.: Издательский центр Академия, 2013. – 208с.

Фуфаев Д.Э., Фуфаев Э.В., Разработка и эксплуатация автоматизированных информационных систем, Москва, Издательский центр Академия, 2014.



4


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

Предлагаем учителям воспользоваться 50% скидкой при обучении по программам профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy

Автор
Дата добавления 12.04.2016
Раздел Информатика
Подраздел Конспекты
Просмотров114
Номер материала ДБ-025382
Получить свидетельство о публикации

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

от проекта "Инфоурок" с указанием данных образовательной лицензии, что важно при прохождении аттестации.

Если Вы учитель или воспитатель, то можете прямо сейчас получить документ, подтверждающий Ваши профессиональные компетенции. Выдаваемые дипломы и сертификаты помогут Вам наполнить собственное портфолио и успешно пройти аттестацию.

Список всех тестов можно посмотреть тут - https://infourok.ru/tests

Похожие материалы

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