Вправа 38. Компоненти вибору | 8 клас | Бондаренко

8 клас. Практичні завдання з інформатики за підручником О.О.Бондаренко 2016 року.

Вправа 38. Компоненти вибору.

Завдання. Скласти  програму,  в  якій  реалізовано  головоломку  Лойда:  із заданого  набору  чисел  вибрати  ті,  сума  яких  дорівнює  50.
1) Створіть  новий  проект.  Змініть  заголовок  форми  на  «Головоломка  Лойда».
2) Додайте на форму десять компонентів CheckBox згідно з рисунком. Змініть заголовки компонентів CheckBox на числа з набору, запропонованого С. Лойдом: 25, 27, 3, 12, 6, 15, 9, 30, 21, 19.
Додайте  на  форму  два  компоненти  Label.  Змініть  заголовок напису  Label1  на «Сума чисел:».  Напис Label2 призначений для виведення суми чисел, які відповідають вибраним прапорцям.
3) Опишіть  змінну  S  як  глобальну:
var Form1: TForm1;
S: Integer;
4) Створіть  процедуру  обробки  події OnCreate  для  форми.
Змінна  S  набуває  значення  0  при  завантаженні  форми:
procedure  TForm1.FormCreate(Sender: TObject);
begin
S := 0;
end;
5) Створіть  спільний  для  всіх  прапорців  обробник  події  OnСlick. 
У  програмному  коді  реалізується  такий  алгоритм:  якщо  прапорець  установлений,  відповідне  число  додається  до  суми  S, якщо  прапорець  скинутий,  відповідне  число  віднімається  від суми  S.  Після  цього  значення  суми  виводиться  в  напис  Label2.
procedure  TForm1.CheckBox1Click(Sender: TObject);
begin
with (Sender as TCheckBox) Do begin
If Checked Then
S := S + StrToInt(Caption)
Else S := S – StrToInt(Caption);
end;
Label2.Caption := IntToStr(S);
end;
6) Запустіть проект на виконання. Перевірте роботу програми. Розв’яжіть головоломку Лойда. Збережіть проект у папці Вправа 38.

[sophiaaaa]

Дуже дякую вам за ваші відео. Дуже помагають під час дистанційного навчання 👍

[ВоваЛахтин-жй]

респект, я уже неделю мучался над 4 заданиями

[oklti]

unit1.pas(58, 3)Error:ldentifien not found "Labe12" переглятув раза 3 і не знайшов чому так.Допоможіть!!!

[slent]

Что делать, если выдает ошибку Fatal: Syntax error, " ; " expected but "ELSE" found?
Уже всё пересмотрел, и не могу понять в чём проблема?

[ВладДемченко-чд]

Что если выдаёт ошибку: Error: Identifier not found “S”