Інструкція для проведення лабораторного заняття №10 з предмету “Інформатика”. Тема: Введення й виведення даних, робота зі змінними
Мета: навчитися розробляти програми, в яких дані вводяться та виводяться за допомогою елементів керуваня
Робоче місце: Лабораторія інформатики та обчислювальної техніки.
Тривалість заняття: 80 хв.
Матеріально-технічне оснащення робочого місця: ПК, OC Windows,
Правила охорони праці:
На робочих місцях розташовано обладнання, яке має складові, що працюють під високою напругою. Необережне поводження з апаратурою може призвести до травм. Тому суворо заборонено:
вмикати і вимикати апаратуру без вказівки учителя;
доторкатись до роз'ємів з'єднувальних кабелів та самих кабелів;
доторкатись до екрану та тильної частини монітора;
переміщувати увімкнені складові обчислювальної системи (системних блок, монітор тощо),;
класти будь-які предмети на системний блок, монітор, клавіатуру;
приносити та використовувати носії даних (дискети, компакт-диски) без дозволу вчителя.
Зміст і послідовність виконання завдань:
Завдання 1. Проект “Квадратне рівняння”
Створити форму для розв’язування квадратного рівняння
Хід роботи
Завантажте систему візуального програмування Delphi.
Задайте розмір і заголовок форми “Квадратне рівняння”. Збережіть створену програму у власній папці (File Save All).
Вставте у форму текстові поля Labell-Label4 і надайте їм відповідні властивості. Задайте властивість Caption: для Label 1 – “Розв'язування квадратного рівняння”, для Label2 – “х^2”, що означає х2, для Label3 – “х”, для Label4 – “=0” (див. рис. 1).
Вставте у форму три поля редагування (об'єкти типу Edit), як показано на рис. 1, і вилучіть значення Edit у властивості Text.
Вставте Label5 і вилучіть текст-значення властивості Caption.
Збережіть створену форму. Запустіть програму. Огляньте і закрийте її вікно.
Вирівняйте всі об'єкти на формі та задайте для них однакові розміри (крім Labell).
Вставте у форму дві кнопки і надайте їм відповідні назви. Задайте властивості Caption для кнопки Buttonl – “Обчислити”, а для кнопки Button2 – “Інше рівняння”.
Рис. 1. Макет форми і вікно програми для задачі про квадратне рівняння
Запрограмуйте кнопку “Обчислити”. Для цього клацніть двічі лівою клавішею миші на кнопці “Обчислити” і у заготовці процедури програмного модуля введіть:
procedure TForml.ButtonlClick(Sender: TObject); {Це вже є} var a,b,c:real; {Коефіцієнти рівняння}
d,xl,x2:real; {Дискримінант і корені рівняння}
sl,s2:string[6]; code:integer;
begin
val(editl.text,a,code);
val(edit2.text,b,code);
val(edit3. text, с, code);
d:=b*b-4*a*c;
if d<0 then label5.Caption:='Коренів немає';
if d=0 then
begin
xl:=-b/(2*a); str(xl:6:2, si);
label5.Caption:='Kopiнь рівняння:' +chr(10)+'xl='+sl;
{chr(10) — це вказівка перейти на новий рядок}
end;
if d>0 then
begin
xl :=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a);
str(xl:6:2,sl); str(x2:6:2,s2);
label5.Caption:='KopeHi рівняння:' +chr(10)+'xl='+sl +chr(10)+'x2='+s2;
end; {Цей end; вводимо,}
end; {а цей вже є на екрані}
Запрограмуйте кнопку “Інше рівняння”, ввівши у відповідну заготовку процедури текст, який записаний між begin і end: procedure TForml.Button2Click(Sender: TObject); begin
editl.Text:="; {Очистимо поля для коефіцієнтів}
edit2.Text:="; {або методом edit2.clear;}
edit3.Text:="; label5.Caption:=";
editl.Setfocus; {Активізуємо поле editl методом Setfocus} end;
Вставте у форму ще одну кнопку (типу BitBtn). Для цього на закладці Additional палітри компонентів виберіть компонент BitBtn та перенесіть його на форму. Для цієї кнопки задайте такі властивості: Caption – “Кінець” або “Вийти”, Kind – bkClose.
Збережіть проект. Запустіть програму.
Створіть exe-файл програми.
Продемонструйте проект викладачу.