Вопросы для самоконтроля - Объектно-ориентированное, визуальное программирование в Delphi на уроках

    1. Какую новую конструкцию языка Pascal Вы узнали? 2. Почему в первом цикле переменная A начинается с 1, а переменные B и C с ноля. 3. Какие переменные и для чего используются в процедуре? 4. Как и где можно объявить переменные, встречающиеся в процедуре? 5. Зачем используется #13? 6. Почему в процедуре использовали три цикла с параметром? 7. Сколько циклов с параметром Вы запишете в алгоритме для пятизначных чисел? 8. Для чего после вывода числа добавляли два пробела?

Восьмой урок - цикл с предусловием (While ... do)

Познакомимся с новым оператором - цикл с предусловием:

While <1> do // делать, пока условие верно

<2>;

    1 - логическое выражение (условие); 2 - оператор;

- цикл выполняется до тех пор, пока логическое выражение истинно;

- после ключевого слова Dо выполняется Один оператор. Если нужно выполнить более одного оператора, то их заключают в операторные скобки Begin ... End;

- в теле цикла обязательно должно произойти событие, которое сделает логическое выражение Ложным.

Нам надо решить следующую задачу:

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

    А) она откусывает от большей головки столько, сколько весит меньшая головка; Б) если они окажутся не равными, то повторит откусывание для большей головки; В) иначе - закончит дележ.

Если найденные головки сыра весят M и N гр., то сколько будут весить они после дележа, сколько раз будет лиса откусывать и сколько грамм сыра она съест?

Пусть наша форма будет иметь следующий вид:

Вывод результатов будем производить в три объекта Label.

Код процедуры Click для кнопки Подсчитать

Procedure TForm1.Button1Click(Sender: TObject);

Var

A, b, z, n : integer; // Локальные переменные

Begin

A := strtoint(Edit1.Text); // вес первой головки сыра в граммах

B := strtoint(Edit2.Text); // вес второй головки сыра в граммах

N := 0; // количество откусываний

Z := a + b; // вес двух головок сыра до дележа

While a <> b do

Begin

Inc(n);

If a > b then

A := a - b

Else

B := b - a;

End;

Label7.Caption := inttostr(a) + ' гр.';

Label8.Caption := inttostr(z - 2*a) + ' гр.';

Label9.Caption := inttostr(n) + ' раз.';

End;Вопросы для самоконтроля

    1. Какую новую конструкцию языка Pascal Вы узнали? 2. Почему тип переменных a и b целочисленный? 3. Какие переменные и для чего используются в процедуре? 4. Зачем переменную n перед использованием обнулили (n := 0;)? 5. Как и где еще можно объявить переменные, встречающиеся в процедуре? 6. Зачем в цикле были использованы ключевые слова: begin, end? 7. Почему в Label7 использовали переменную a, а не b? 8. Что представляет собой в математическом смысле результат выполнения цикла? 9. Для чего использовались функции Strtoint и Inttostr?

Девятый урок - цикл с постусловием (Repeat ... Until)

Познакомимся с новой конструкцией - цикл с постусловием:

Repeat <1> Until <2>;

    1 - операторы; 2 - логическое выражение (условие);

- после выполнения тела цикла происходит проверка условия выхода. Выход по верному условию.

- ключевые слова Repeat и Until являются операторными скобками, поэтому между ними можно вставить более одного оператора;

- в теле цикла обязательно должно произойти событие, которое сделает логическое выражение Верным.

Пусть надо решить следующую задачу:

Денис после изучения темы циклы заинтересовался, как для натурального числа N с помощью компьютера получить другое число, записанное в обратном порядке. А вы сможете это сделать?

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

Введено число 12023, новое число 32021.

Пусть наша форма будет иметь следующий вид:

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




Вопросы для самоконтроля - Объектно-ориентированное, визуальное программирование в Delphi на уроках

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