на языке программирования Pascal
1. Поместить на форму как показано на рисунке:
- кнопку Button1 для запуска событийной процедуры;
- четыре надписи Label1, Label2, Label3 и Label4 для изображения базовых логических элементов;
- два текстовых поля EditA и EditB для ввода логических значений на входе полусумматора;
- четыре надписи для вывода промежуточных логических значений Label0r и LabelNot, а также итоговых значений суммы LabelS и переноса LebelP.
2. Создать событийную процедуру, реализующую;
- ввод значений на входе и преобразование их из строкового типа в логический с использованием функции StrToBool () ;
- определение логических значений на выходе каждого базового логического элемента;
- вывод полученных логических значений на надписи с использованием функции преобразования логического типа данных в строковый BoolToStr () :
var
A: BooLean;
B: Boolean;
P: Boolean;
S: Boolean;
procedure TForm1. Button1Click (Sender: TObject) ;
begin
A:=StrToBool (EditA. Text) ;
B:=StrToBool (EditB. Text) ;
P:= (A And B) ;
S:= (A Or B) And (Not (A And B) ) ;
LabelP. Caption :=BoolToStr (P, True) ;
LabelNo. Caption :=BoolToStr (Not (P), True) ;
LabelOr. Caption :=BoolToStr ( (A Or B) , True) ;
LabelS. Caption :=BoolToStr (S, True) ;
end;
end.
3. Запустить проект, ввести логические значения аргументов и щелкнуть по кнопке Сумма и перенос.
На надписи будут выведены логические значения на выходах логических элементов.
Проект сохраняется в папке: Windows-CD\llKT11Prof\VB2005\Полусумматор
Автор: Щербаков Юрий Николаевич
Источник учебник "Информатика и ИКТ" 11 класс профильный уровень Н.Д. Угринович.
