Урок № 49. Тема "Елементи для введення даних: текстове поле, прапорець, розкривний список"
17.03.2020 р.
Переглянути презентацію.
Домашнє завдання. Опрацювати пункт 6,5 с. 207-208 підручника. Переписати в зошит та зрозуміти опис процедури для опрацювання події Chlick с. 208. Замість того що там написане переписати таке: Зверніть увагу! Дописане =true у рядку де умова після if
If CheckBox1.Checked=true
Then Form1.Caption:='Заголовок змінений';
If CheckBox2.Checked=true
Then Form1.Color:=clRed';
If CheckBox3.Checked=true
Then
begin
Form1.Width:=500;
Form1.Height:=200;
end;
Урок 50. Елементи для введення даних: текстове поле, прапорець, випадаючий список
19.03. 2020 р.
Переглянути презенатцію.
Домашнє завдання. Опрацювати пункт 6,5 с. 208-209 підручника. Виписати в зошит "Найважливіше в розділі ". Подуматии над написанням коду для обробки кнопки задачі с. 211 завдання 6. Процедуру обробки кнопки записати в зошит.
Урок № 51. Тема. Алгоритми з повтореннями для опрацювання величин. Цикл з лічильником
31.03.2020 р.
Переглянути презентацію за посиланням (подано нижче). Намагайтеся зрозуміти матеріал викладений у ній, випишіть основне в зошит. Те що виділено червоним шрифтом виписати обов'язково і вивчити.
https://drive.google.com/file/d/17KPKUskFJkMXgivHxT4k3M92COtTKul9/view?usp=sharing
Блок-схему команди циклу з лічильником с.213, Мал. 6.30 перекреслити в зошит.
Запам'ятати загальний вигляд команди повторення (циклу) з лічильником:
for <ім'я змінної>: =<вираз 1> to <вираз 2> do
begin
оператори циклу;
end;
Примітки:
Змінні описуються після слова var перед службовим словом begin тіла програми.
Якщо операторів (команд) у тілі циклу бульше однієї, тобто дві і більше то вони беруться в операторні дужки
begin ... end;
Лічильник це ціле число. Вираз 1 у конструкції циклу з повторенням це початкове значення лічильника. Вираз 2 у конструкції циклу з повторенням це кінцеве значення лічильника.
Приклад використання циклу з лічильником.
Перегляньте відео за адресою: https://www.youtube.com/watch?v=KQIVQ0ewvkM
Задача. (Її умову та процедуру написану у середовищі програмування Lasarus зрозуміти і переписати в зошит)
Скласти фрагмент проекту, в якому обчислюється сума 5 натуральних чисел 1,2,3,4,5. ( Після // пишуться пояснення)
var s,i:integer; //описуються змінні: s - для суми, і - обов'язково ціле число, лічильник циклу
begin // початок фрагменту якй формує суму
S:=0; //початкове значення суми
for i:=1 to 5 do //цикл від 1 до 5
s:=s+i; // формування суми чисел від 1 до 5
Label1.Caption:=IntToStr(s); //виведення результату у напис. Відповідь s=1+2+3+4+5=15
end; //закінчення фрагмента
Розглянути у підручнику на с. 214 ілюстрацію роз'язку іншої задачі та результати виконання команд в ході виконання фрагменту (таблицю). Намагайтеся зрозуміти, що виконується на кожному кроці.
Домашнє завдання. Опрацювати параграф 6,6 с. 213-216, та матеріал за конспектом.
02.04.2020 р.
Урок 52. Тема: Цикл з лічильником
1. Перевірка знань попередніх тем.
Пройдіть тестування за вказаною адресою: Вірні на вашу думку відповіді записуйте у зошит. Кнопку надіслати в кінці не натискайте. https://docs.google.com/forms/d/e/1FAIpQLSdFkOFrgwc48CC2thfU1yvST6d8oMqYHzh16iG63_wJjdo8qA/viewform?usp=sf_link
2. Мотивація навчальної діяльності
Під час розв'язування багатьох задач обчислювальний процес має циклічний характер, тобто частина операторів багаторазово виконується при різних значеннях змінних. Для організації повторення дій (циклів) під час запису алгоритмів мовою Lazarus використовуються три різновиди операторів циклу з параметром, з передумовою і з післяумовою.
На уроці ви ознайомитесь із синтаксисом і правилами виконання оператору циклу з лічильником.
3. Опрацюйте презентацію. У зошит випишіть цикли з лічильниками мовою Pasсal. (достатній рівень)
Переглянути відеорозвязок задачі Завдання 8. с. 216 підручника за посиланням (див. нижче). Постарайтеся зрозуміти пояснення автора.
https://www.youtube.com/watch?v=V8HvmbRZ8lY
Домашнє завдання. Опрацювати матеріал переглянутої презентації. В зошит записати процедуру обробки кнопки Обчислити задачі 8 с. 216 , тієї, що писплася у відео, а саме, я дублюю її текст нижче
Procedure TForm1.Button1.Click (Sender .....);
var s:real;
i, n:integer;
begin
s:=StrToFloat(Edit1.Text);
n:=StrToInteger(Edit2.Text);
for i:=1 to n do
begin
s:=s+0,2*s;
end;
Label1.Caption:=FloatToStr(s);
end;
Якщо хочете перевірити чи впорались ви з тестом перегляньте наступний документ. Зробіть самооцінку відповідей.
https://docs.google.com/document/d/1NsGbigB3N1SBbWlUCuTIpC-QHI5fhzrHfBLLMOvyoRE/edit?usp=sharing