TForm1.Button1Click(Sender: TObject);, Вопросы для самоконтроля - Объектно-ориентированное, визуальное программирование в Delphi на уроках

Var

A, b : integer;

Begin

// В переменные a и b заносим целочисленные

//значения

A := StrToInt(Edit1.Text);

B := StrToInt(Edit2.Text);

Label5.Caption := IntToStr(a + b);

End;

Примерные задания для третьего урока

1. Катя нашла A грибов, а Слава B. Среди этих грибов оказалось C несъедобных. Сколько съедобных грибов было собрано?

Контрольный пример:

А = 64, В = 89, С = 17, ответ: 136

2. Монгольский воин за 7 секунд выпускает обычную стрелу, а за 10 - зажженную. За какое время воин выпустит А обычных и В зажженных стрел?

Контрольный пример:

    4 обычных, 5 зажженных - 78 секунд 3. У фермера дяди Вася в загоне паслись коровы и гуси. Каждый час дядя Вася заходил в загон и подсчитывал количество голов и общее количество ног и лап, не считая людские головы и конечности. После этого он сверял результаты со своими цифрами. Помогите подсчитать фермеру дяде Васе количество голов и количество ног и лап, если известно, что на данный момент в загоне А коров и В гусей.

Контрольный пример:

12 коров, 4 гуся, ответ: 16 голов и 56 ног и лап.

Вопросы для самоконтроля
    1. С помощью какого компонента ввели числа в этой программе? 2. Какие данные хранит компонент Edit? 3. Какой функцией воспользовались для получения целых чисел? 4. Какой функцией воспользовались для получения из целых чисел строковой величины? 5. Как поменять цвет шрифта в Label и Edit? 6. Как создать процедуру Click (щелчок по кнопке)?

Четвертый урок - использование оператора ветвления

До этого урока все алгоритмы программ (процедур) были линейными, т. е. все команды выполнялись друг за другом. В данном уроке рассмотрим задачи, в которых нужно, в зависимости от условия, выполнить различные действия. Перед вами следующая задача:

Константину нужно вычислить модуль введенной числовой величины (расстояние от начала координат) с помощью программы. Он не знает стандартной функции Pascal abs. Помогите ему это сделать (использовать стандартную функцию нельзя).

Контрольный пример:

-17,78 ответ: 17,78 3 ответ: 3

После запуска форма может выглядеть так:

По щелчку на кнопке ОПРЕДЕЛИТЬ появится результат:

После изменения данных в любом из компонентов Edit можно снова пересчитать результат, нажав на кнопку ОПРЕДЕЛИТЬ.

Похожие статьи




TForm1.Button1Click(Sender: TObject);, Вопросы для самоконтроля - Объектно-ориентированное, визуальное программирование в Delphi на уроках

Предыдущая | Следующая