Практичне завдання до уроку Вказівка розгалуження .Вирази. 8 клас

Інформатика

Для кого: 8 Клас

26.01.2021

189

4

0

Опис документу:
Даний документ "Практичне завдання до уроку : Вказівка розгалуження. . Вирази.", ( 8 клас ) можна використати для проведення уроку в 8 класі при вивченні теми Вказівки розгалуження в програмі Lazarus.
Перегляд
матеріалу
Отримати код

Практичне завдання до уроку

Вказівка розгалуження. Вирази.

Виконайте практичне практичне завдання:

Обчисліть значення функції

  1. Відкрийте програму

  2. На формі створіть кнопку Button1 і 2 написи (мітки label) і 2 поля Edit.

  3. Розмістіть, як показано на рисунку.

  4. Для label1 у влсастивості Caption пропишіть символ ?

  5. Для label2 у влсастивості Caption пропишіть слово Розв’язок

  6. Створіть два поля Edit.

  7. Для Button1 у влсастивості Caption пропишіть слово Виконати

  8. Зробіть для кнопки подію Click

Пропишіть команди:

procedure TForm1.Button1Click(Sender: TObject);

begin

x:= StrToFloat(Edit1.Text);

y:= StrToFloat(Edit2.Text);

if (x > y) then

begin

z:= (x+y*y)/2*x;

Label2.Caption:= ' z = ' + FloatToStr(z);

Label1.Caption:= ' > ';

end

else

begin

z:= y*5*x+x*3.2;

Label2.Caption:= ' z = ' + FloatToStr(z);

Label1.Caption:= ' < ';

end;

end;

  1. Не забудьте прописати тип змінних x, y, z: real; в описовій частині

  1. Збережіть програму у папці Вираз .

  2. Запустіть програму на виконання.

Продемонструйте програму вчителю.

Можливі такі варіанти

Відображення документу є орієнтовним і призначене для ознайомлення із змістом, та може відрізнятися від вигляду завантаженого документу.