Практична робота "Циклічні програми"

Про матеріал

Практична робота "Цикли" для учнів 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 і збережіть у ній проект.