Embedded Files
Перегляньте презентацію та законспектуйте матеріал
Перегляньте презентацію та законспектуйте матеріал
Практичне завдання
Практичне завдання
Увага! Під час роботи з комп'ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.
Повторіть правила безпечної роботи за комп’ютером.
Завантажте і встановіть: Середовище програмування Лазарус (для тих, хто не завантажив)
Завдання 1.Створіть проєкт, у якому будуть обчислюватися значення виразу z для різних значень змінних a і b за формулою:
Побудуємо математичну модель для цієї задачі:
вхідні дані: два довільних числа а та b;
кінцеві результати: значення виразу z;
формули: z = (a + 2*b)/(a – 3*b).
Останній вираз містить ділення на вираз a – 3*b, який може дорівнювати нулю (наприклад, при а = 3 і b = 1), а може і не дорівнювати нулю (наприклад, при а = 5 і b = 2). Тому алгоритм розв'язування цієї задачі повинен містити розгалуження, у якому буде враховано два можливих випадки: значення дільника a – 3*b дорівнює 0 і значення дільника a – 3*b не дорівнює 0.
Блок-схему алгоритму розв'язування цього завдання зображено на малюнку.
Для вхідних даних необхідно на формі розмістити два поля, для здійснення обчислень - кнопку та для виведення результату - напис.
Процедуру для кнопки, яка буде опрацьовувати даний алгоритм, можна записати мовою програмування Pascal так:
procedure TForm1.Button1Click(Sender: TObject);
var a, b, x, y, z: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
x := a – 3*b;
if x=0
then Label1.Caption := 'Вираз значення не має: ділення на 0'
else begin
y := a + 2*b;
z := y/x;
Label1.Caption := FloatToStr(z);
end;
end;
Відео в допомогу:
Завдання 2. Обчислити значення функції
Побудуємо математичну модель для цієї задачі:
вхідні дані: довільне число х;
кінцеві результати: значення функції у;
формули: у = 2*x – 12, якщо -3 < x < 5; y = 7 – 8*x для всіх інших х.
Для вхідних даних необхідно на формі розмістити поле, для здійснення обчислень - кнопку та для виведення результату - напис.
Тоді процедуру для кнопки, яка буде опрацьовувати даний алгоритм, можна записати мовою програмування Pascal так:
procedure TForm1.Button1Click(Sender: TObject);
var x, y: real;
begin
x := StrToFloat(Edit1.Text);
if (x>-3) and (x<5)
then y := 2*x - 12
else y := 7 - 8*x;
Label1.Caption := FloatToStr(y);
end;
Завдання 3. Дано два числа. Визначити, чи рівні вони. Якщо ні, то яке з них більше.
Побудуємо математичну модель для цієї задачі:
вхідні дані: два довільних числа х та у;
кінцеві результати: висновок: числа рівні, або перше число більше, або друге число більше;
формули: числа рівні, якщо х = у; перше число більше, якщо виконується нерівність x > y; друге число більше, якщо не виконується нерівність x > y.
Блок-схема для розв'язання даного завдання зображено на малюнку.
Для вхідних даних необхідно на формі розмістити два поля, для виконання алгоритму - кнопку та для виведення результату - напис.
Тоді процедуру для кнопки, яка буде опрацьовувати даний алгоритм, можна записати мовою програмування Pascal так:
procedure TForm1.Button1Click(Sender: TObject);
var x, y: real;
begin
x := StrToFloat(Edit1.Text);
y := StrToFloat(Edit2.Text);
if x=y
then Label1.Caption := 'Числа рівні'
else if x>y
then Label1.Caption := 'Перше число більше'
else Label1.Caption := 'Друге число більше';
end;
Завдання 4. Дано чотири нерівних між собою числа. Визначити найбільше з них.
Побудуємо математичну модель для цієї задачі:
вхідні дані: чотири довільних числа х1, х2, х3, х4;
кінцеві результати: найбільше із цих чисел.
Блок-схему алгоритму розв'язування цього завдання зображено на малюнку.
Для вхідних даних необхідно на формі розмістити два поля, для виконання алгоритму - кнопку та для виведення результату - напис.
Процедура для кнопки, яка буде опрацьовувати даний алгорит, буде мати наступний вигляд:
procedure TForm1.Button1Click(Sender: TObject);
var x1, x2, x3, x4, max: real;
begin
x1 := StrToFloat(Edit1.Text);
x2 := StrToFloat(Edit2.Text);
x3 := StrToFloat(Edit3.Text);
x4 := StrToFloat(Edit4.Text);
if x1>x2
then max := x1
else max := x2;
if x3 > max then max := x3;
if x4 > max then max := x4;
Label1.Caption := FloatToStr(max);
end;
За підручником
За підручником
"Інформатика, 8 клас" (Й.Я. Ривкінд та їнші):
Прочитайте та розберіть теоретичний матеріал пункту 6.8 (стор. 217-222).
Дайте усні відповіді на питання 1-9 (стор. 222).
Виконайте вправу 4 (стор. 223)
Для моніторингу засвоєння знань пройдіть тестування
Для моніторингу засвоєння знань пройдіть тестування
Page updated
Google Sites
Report abuse