8 клас. Урок №33

Тема уроку: Алгоритми з розгалуженнями для опрацювання величин.

Блок-схеми:

Звертаю вашу увагу: якщо після ключових слів Then і Else слідує тільки по одній команді, то операторні дужки begin і end можна не ставити; перед Else ставити крапку з комою не можна.

Задача: перевірити, чи введене користувачем число по модулю ≤ 5.

З'язувати, що означає, що число по модулю ≤ 5.

Це означає, що задачу задовольнять числа в проміжку від -5 до 5. Тобто складена умова буде така: (x≥-5) i (x≤ 5).

1. 

2. Для розв'язання задачі достатньо однієї змінної х дійсного типу.

var x: real;

3. В цьому уроці на формі вчимося розміщати малюнок і створювати обробник події натиснення по малюнку. Тобто малюнок використовуємо в якості кнопки.

4. Текст програми:

procedure TForm1.Image1Click(Sender: TObject);

begin

  x:=StrToFloat(Edit1.Text);

  if (x>=-5) and (x<=5)

  then Label2.Caption:='Число належить проміжку'

  else Label2.Caption:='Число проміжку не належить';

end;  

Домашнє завдання:

1. с. 200-206;

2. придумати текст задачі на алгоритми з повним/неповним розгалуженням;

3. онлайн: