Практична робота "Циклічні програми"
Практична робота "Цикли" для учнів 11 класу з теми "Основи алгоритмізації та програмування". Практичні роботи з програмування також місять додаткові завдання, що дасть можливість диференційованого підходу до вивчення цієї теми. Розробки практичних занять дають можливість ефективно використовувати час на уроках інформатики.
Увага! Під час роботи з комп’ютером дотримуйтеся правил техніки безпеки.
Практична робота «Цикли»
Завдання: Знайти найбільший спільний дільник (НСД) двох даних натуральних чисел a i b (a>b)
- Відкрийте Lazarus.
- Створіть нову форму з назвою НСК, задайте колір та розмір форми за власним бажанням.
- Pозмістіть на формі 4 написи, 2 поля та кнопку.
- Змініть властивість надпис Label1 на а, Label2 – на b; Label3 – НСД, Label4 - зробіть пустою, а також пустими значення об’єктів Edit1 та Edit2.
- Для кнопки Button1 змініть властивість на значення “Знайти дільник”.
- Створіть події кнопки OnClick з кодом.
var a, b, r: Integer;
begin
a := StrToInt (Edit1.Text);
b := StrToInt (Edit2.Text);
r := a mod b;
while r <> 0 do
begin
a := b;
b := r;
r := a mod b;
end;
Label4.Caption := IntToStr (b);
end;
- Виконайте проект. Створіть у власній папці папку Практична 6 і збережіть у ній проект.
- Створіть нову форму у цьому ж проекті для розв’язання задачі «Обчислити суму додатних членів арифметичної прогресії з додатним першим членом і від’ємною різницею».
- Створіть у власній папці папку Практична 7 і збережіть у ній проект.
про публікацію авторської розробки
Додати розробку