Управляющие конструкция языка OP. Оператор условия if, case. Визуальные компоненты
Автор: makarvidi • Май 1, 2018 • Лабораторная работа • 405 Слов (2 Страниц) • 556 Просмотры
Министерство образования и науки Республики Казахстан
Карагандинский государственный технический университет
Кафедра ИТПС
Лабораторная работа №3
Приняла:
Ст. преподаватель Аймагамбетова Р. Ж.
Выполнил:
Студент гр. ПС16-2
Ведяшкин В.Е.
Караганда 2018
Лабораторная работа №3
Тема: Управляющие конструкция языка OP. Оператор условия if, case. Визуальные компоненты.
Цель: Создать проект, используя визуальные компоненты и управляющие конструкции – операторы if и case.
Ход работы
Вариант 4
Базовый уровень. Записать условие, которое является истинным , когда целое А кратно двум или трем.
Интерфейс программы:
[pic 1]
Полный текст программы:
procedure TFpktLb03.Result_1_ButtonClick(Sender: TObject);
Var Value: integer;
begin
if not(Value1.Text='') then begin
Value:=StrToInt(Value1.Text);
Result1.Font.Color:=clGreen;
if ((Value mod 2)=0) then begin
Result1.Caption:='Число '+Value1.Text+' кратнодвум: Истина';
end;
if ((Value mod 3)=0) then begin
Result1.Caption:='Число '+Value1.Text+' кратнотрём: Истина';
end;
if (((Value mod 2)=0)and((Value mod 3)=0)) then begin
Result1.Caption:='Число '+Value1.Text+' кратно и двум и трём: Истина';
end;
if (((Value mod 2)>0)and((Value mod 3)>0)) then begin
Result1.Font.Color:=clRed;
Result1.Caption:='Число '+Value1.Text+' некратнонидвум, нитрём: Ложь';
end;
end;
end;
Средний уровень. Записать логическое выражение, которое является истинным , когда число N делится на 3, то не делится на 9, если делится на 4, то делится на 5 и 24 без остатка.
Интерфейс программы:
[pic 2]
Полный текст программы:
procedure TFpktLb03.ClearP2Click(Sender: TObject);
begin
Value2.Text:='';
Result2.Caption:='';
Memo2.Lines.Clear();
end;
procedure TFpktLb03.Result_2_ButtonClick(Sender: TObject);
Var N, i, max: integer;
begin
if not(Value2.Text='') then begin
Memo2.Lines.Clear();
N:=StrToInt(Value2.Text);
if ((N mod 3) = 0)and(not((N mod 9) = 0))and((N mod 4) = 0)and((N mod 5) = 0)and((N mod 24) = 0) then begin
Result2.Font.Color:=clGreen;
Result2.Caption:='Истина.';
end else begin
...