1-2_1 (Delphi. Лабы. Много неизвестных вариантов и примеров)
Описание файла
Файл "1-2_1" внутри архива находится в папке "Delphi. Лабы". Документ из архива "Delphi. Лабы. Много неизвестных вариантов и примеров", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве НИУ «МЭИ» . Не смотря на прямую связь этого архива с НИУ «МЭИ» , его также можно найти и в других разделах. .
Онлайн просмотр документа "1-2_1"
Текст из документа "1-2_1"
ЗАДАЧА 1.2 (задание 1).пример
Тема: Обработка данных логического типа. Логические выражения.
Задание: Установить истинность (ложность) логического выражения.
1)Условие задачи: a b > 0 c a < 3
Обозначения: - и, - или , - не
2а) Использумые компоненты
Имя компонента (Name) | Для чего используется | Примечание |
Form1 | Для размещения всех требуемых в задаче компонент | |
Label1 | Для размещения текста ‘a=’ | |
Label2 | Для размещения текста ‘ b’ | |
Label3 | Для размещения текста ‘c’ | |
Label4 | Для размещения текста ‘d=’ | |
Label5 | Для размещения текста ‘rez=’ | |
Edit1 | Для ввода значения a | |
Edit2 | Для ввода значения b | |
Edit3 | Для ввода значения c | |
Edit4 | Для ввода значения d | |
Edit5 | Для вывода значения rez | |
Button1 | Для запуска проекта на решение | |
Button2 | Для очистки всех компонент |
2в) Таблица событий
Имя компонента (Name) | Название события | Описание События | Реакция на событие | Имя соответствующей процедуры – обработчика события |
Button1 | OnClick | Щелчок по мышке | Решение задачи, результат выводится в окошки Edit2, Edit3 | TForm1.Button1Click |
Button1 | OnClick | Щелчок по мышке | Очистка компонент | TForm1.Button2Click |
3) procedure Form1.Button1Click, Form2.Button1Click :
3а) Таблица данных для procedure Form1.Button1Click
Вид данного | Обозначение | Смысл | Тип | Примечан |
Исходные данные (ИД) | a,b,d | Заданные величины | Веществ ( real) | |
c | Заданная величина | Логический (boolean) | ||
Результирующие данные (РД) | rez | Значение логического выражения | Логический (boolean) |
3б)Программа
unit Unit1;
. . .
procedure TForm1.Button1Click(Sender: TObject);
var a,b,d: real;
c,rez: boolean;
begin
a:= StrToFloat(Edit1.text);
b:= StrToFloat(Edit2.text);
d:= StrToFloat(Edit4.text);
if(Edit3.text ='true') then
c:= true
else
c:= false;
rez:=(a*b>0) or not c and (d<3);
if (rez) then
Edit5.text:= 'true'
else
Edit5.text:= 'false';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.text:=' ';
Edit2.text:=' ';
Edit3.text:=' ';
Edit4.text:=' ';
Edit5.text:=' ';
end;
4)Тестирование
4а)Аномалии: 1) n>10 2) в массиве w нет элементов, синус которых отрицателен
4б) Тесты
№ пп | Что проверяется | Значения исходных данных | Ожидаемый результат |
1 | true or false = true | a=1, b=2.5, c= true, d=1 | true |
2 | false or false = false true and false = false | a=-1, b=2.5, c= false, d=1 | false |
3 | false and true = false not true = false | a=-1, b=2.5, c= true, d=5 | false |
4 | not false = true false or true = true | a=-1, b=2.5, c= false, d=5 | true |