Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 20 - 21
§1.7. Модели распознавания химических волокон






Содержание урока

1.7.1. Построение информационной модели распознавания химических волокон
1.7.2. Модель распознавания химических волокон на языке Visual Basic
1.7.3. Модель распознавания химических волокон на языке Turbo Delphi

Проект «Распознавание волокон» на языке Turbo Delphi

Компьютерный эксперимент

Контрольные вопросы


1.7.3. Модель распознавания химических волокон на языке Turbo Delphi


Проект «Распознавание волокон» на языке Turbo Delphi


Реализуем модель распознавания волокон с использованием языка Turbo Delphi. В проекте пользователю задается серия вопросов, анализируются ответы и сравниваются с имеющимися фактами. При этом производится логический вывод и формируется ответ на интересующий пользователя вопрос, т. е. определяется название волокна.

Результаты распознавания (названия волокон) будем помещать в управляющий элемент ListBox (список), который удобен для ввода элементов списка с помощью метода Items.Add().

Проект «Распознавание волокон» на языке Turbo Delphi

1. Поместить на форму (рис. 1.38) кнопку Button1 и список ListBox1.

Первую развилку (условие Горит быстро) реализуем в форме событийной процедуры, а остальные — в форме общих процедур:

• для идентификации волокон первой группы (1-го и 3-го) создадим процедуру Rastvor (условие Растворяется в ацетоне);
• для идентификации волокон второй группы сначала необходимо создать процедуру Niti (условие Из расплава можно вытянуть нити);
• для идентификации 4-го и 5-го волокон надо создать процедуру Zapax (условие При горении ощущается запах).

2. Определить переменные и процедуры. Создать событийную процедуру TForm1.ButtonlClick (), которая содержит вызовы общих процедур Rastvor и Niti:


var
A: integer;
Forml; TForml;
procedure Rastvоr;
procedure Niti;
procedure zapax;
procedure TForml.Button1Click(Sender: TObject);
begin
A:=MessageDlg('Горит быстро?', MtConfirmation, [mbYes,mbNo],0);
if A=idYes then Rastvor else Niti;
end;

3. Создать общую процедуру Rastvor, которая позволяет распознать 1-е и 3-е волокна:


procedure Rastvor;
begin
A:=MessageDlg('Растворяется в ацетоне?', MtConfirmation, [mbYes,mbNo],0);
If A=idYes Then
Form1.ListBoxl,Items.Add('3.Ацетатное волокно') Else Forml,ListBoxl.Items.Add('1.Хлопок');
end;

4. Создать общую процедуру Niti, которая позволяет распознать 2-е волокно и содержит вызов общей процедуры Zapax:


procedure Niti;
begin
A:=MessageDlg(’Из расплава можно вытянуть нити?', MtConfirmation, [mbYes,mbNo],0);
If A=idYes Then Zapax Else Form1.ListBox1.Items.Add('2.Шерсть');
end;

5. Создать общую процедуру Zapax, которая позволяет распознать 4-е и 5-е волокна:


procedure Zapax;
begin
A:=MessageDlg('При горении ощущается запах?', MtConfirmation, [mfoYes,mbNo],0);
If A=idYes Then Form1.ListBox1.Items.Add('4.Капрон') Else Form1.ListBox1.Items.Add('5.Лавсан');
end;


Следующая страница Компьютерный эксперимент



Cкачать материалы урока





Наверх