Інформатика

Запиши у зошит:

Для реалізації розгалуження в проекті можна використати такі елементи керування як перемикачі та прапорці. Працюючи з текстовими і графічними редакторами, редактором презентацій, іншими програмами, ви неодноразово бачили, що за вибору перемикача або прапорця всередині з’являється позначка.

З групи перемикачів може бути вибраний тільки один, а в групі прапорців позначка може бути встановлена або на одному з них, або на кількох, або на жодному. Перемикачі призначені для того, щоб у ході виконання проекту вибрати один з можливих варіантів. Наприклад, установити для певної властивості об’єкта одне значення з деякого визначеного набору значень. Прапорці призначені для того, щоб у ході виконання проекту вибрати або один з можливих варіантів, або кілька. Наприклад, установити значення однієї або кількох властивостей об’єкта з деякого визначеного набору властивостей.

Для розміщення на формі перемикача потрібно встановити вказівник на рядок TRadioButton (англ. radio button – кругла кнопка) та двічі клацнути ліву кнопку миші, а для розміщення прапорця – встановити вказівник на рядок TCheckBox (англ. check box – коробка для перевірки) і також двічі клацнути ліву кнопку миші.

Перемикач і прапорець мають більшість властивостей, які ми розглядали для форми, поля, кнопки і напису, та ще деякі, серед яких розглянемо властивість Checked (англ. checked – вибраний), яка може набувати одне з двох значень True або False і яка визначає, встановлена позначка в даному об’єкті чи ні (вибраний цей об’єкт чи ні). Тому значення цієї властивості можна використовувати в команді розгалуження замість логічного виразу.

Виконай завдання:

Створити проект, у якому можна обчислити периметр правильного трикутника, чотирикутника, п’ятикутника або шестикутника, використовуючи відповідні перемикачі. Довжину сторони фігури користувач вводить з клавіатури.

procedure TForm1.Button1Click(Sender: TObject);
var a, p:real; t:string;
begin
a:=StrToFloat(Edit1.Text);
If RadioButton1.Checked then p:=a*3;
If RadioButton1.Checked then t:='трикутника = ';
If RadioButton2.Checked then p:=a*4;
If RadioButton2.Checked then t:='чотирикутника = ';
If RadioButton3.Checked then p:=a*5;
If RadioButton3.Checked then t:='п`ятикутника = ';
If RadioButton4.Checked then p:=a*6;
If RadioButton4.Checked then t:='шестикутника = ';
Label3.Caption:=t + FloatToStr(p);
end;

Домашнє завдання: Опрацювати параграф 6.5 ст. 207. Виконай завдання №6 ст. 213.

«Інформатика», підручник для 8 класу ЗНЗ. Автори: Ривкінд Й.Я., Лисенко Т.І., Чернікова Л.А., Шакотько В.В. ТОВ «Видавництво «Генеза», 2016. – Відкрити…