Парная работа: Обсуждение нового материала: Полное условие: if условие then оператор 1 else оператор 2 Неполное условие: if условие then оператор 1 Важно! Перед ключевым словом else (иначе) точка с запятой не ставится! При необходимости учащиеся могут записать данные структуры в тетрадях. Акцентировать внимание учащихся на то, что нужно брать в операторные скобки, если нужно выполнять несколько задач при выполнении или не выполнении условия. if условие then оператор 1 else Begin оператор 2 оператор 3 оператор 4 End; Так же учащиеся при необходимости могут записать в тетради. Парная работа Практическая часть. Задание 1. Сравните два введенные значения, и выведите результат: "первое число больше" или "второе число больше" Фрагмент кода procedure TForm1.Button1Click(Sender: TObject); begin a:=strtoint(edit1.text); b:=strtoint(edit2.text); if ab then Edit3.text:='Первое значение больше' else Edit3.text:='Второе значение больше'; end; Дифференцированное индивидуальное задание Задание 2. Напишите код программы, которая проверяет текстовое значение ответа. Вопрос: Напишите название самой большой ягоды программа должна проверить введенный ответ и вывести результат правильно или не правильно. Задание 2 выполняется самостоятельно. Есть список задач, которые должны сделать учащиеся, а как сделать они должны найти сами. Нужно показать, как можно проверить текстовое значение на соответствие (условие с использованием текстового значения). а = ’арбуз’ Учащиеся, которые закончили раньше остальных, могут попробовать улучшить свою программу. Фрагмент кода var Form1: TForm1; a: string; … procedure TForm1.Edit1Change(Sender: TObject); begin a:=Edit1.Text; end; procedure TForm1.Button1Click(Sender: TObject); begin if a='арбуз' then Edit2.Text:='Верно' else Edit2.Text:='Не верно' end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; |